original commit: cb28e3357f725ea1be9c3969d4638dd65ae0672f
This commit is contained in:
Robby Findler 2004-07-05 01:04:50 +00:00
parent 10bebd4c0f
commit 8a2f834c74

View File

@ -819,7 +819,6 @@ WARNING: printf is rebound in the body of the unit to always
set-unread-start-point
set-allow-edits
get-allow-edits
has-between?
insert-between
submit-to-port?
on-submit
@ -886,12 +885,6 @@ WARNING: printf is rebound in the body of the unit to always
(insert str unread-start-point unread-start-point)
(set! unread-start-point (+ unread-start-point (string-length str))))
;; has-between? : -> boolean
;; indicates if there is currently some text after the insertion
;; point, but before the unread region
(define/public-final (has-between?)
(not (= insertion-point unread-start-point)))
(define/public-final (get-insertion-point) insertion-point)
(define/public-final (set-insertion-point ip) (set! insertion-point ip))
(define/public-final (get-unread-start-point) unread-start-point)