suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug fix where io would get syntax colored

Browse Source 
svn: r1004
This commit is contained in:
Robby Findler 2005-10-06 19:47:43 +00:00
parent 4ccc351b3b
commit 5840bea8f6
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/drscheme/private/rep.ss
View File

@ -737,17 +737,21 @@ TODO
(define/augment (after-insert start len)
(inner (void) after-insert start len)
(cond
[(in-edit-sequence?) (set! had-an-insert? (cons start len))]
[(in-edit-sequence?)
(set! had-an-insert (cons (cons start len) had-an-insert))]
[else (update-after-insert)]))
(define had-an-insert? #f)
(define/augment (on-edit-sequence)
(set! had-an-insert? #f))
;; private field
(define had-an-insert '())
(define/augment (after-edit-sequence)
(when had-an-insert?
(update-after-insert (car had-an-insert?) (cdr had-an-insert?))))
(inner (void) after-edit-sequence)
(let ([to-clean had-an-insert])
(set! had-an-insert '())
(for-each
(lambda (pr)
(update-after-insert (car pr) (cdr pr)))
to-clean)))
(define/private (update-after-insert start len)
(unless inserting-prompt?
@ -765,7 +769,6 @@ TODO
(when (space . > . max-space)
(let ([to-delete-end (+ start (- space max-space))])
(delete/io start to-delete-end))))))
(set! prompt-position (get-unread-start-point))
(reset-region prompt-position 'end)))