.
original commit: cb28e3357f725ea1be9c3969d4638dd65ae0672f
This commit is contained in:
parent
10bebd4c0f
commit
8a2f834c74
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user