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

...

Browse Source 
original commit: 68476f7d0cba9c25e2e8e4422cf4f03dfb90256c
This commit is contained in:
Robby Findler 2000-08-13 14:49:40 +00:00
parent a16ddc1dcd
commit ad2528e6ad
1 changed files with 81 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/framework/scheme.ss
View File

@ -119,7 +119,7 @@
[(= (position-line f) line) [(= (position-line f) line)
(let ([f-1 (- f 2)]) ;; -1 to go back one, -1 to be before char (let ([f-1 (- f 2)]) ;; -1 to go back one, -1 to be before char
(cond (cond
[(= f 0) [(< f-1 0)
#t] #t]
[(and (= (position-line f-1) line) [(and (= (position-line f-1) line)
(not (char=? (get-character f-1) #\\ ))) (not (char=? (get-character f-1) #\\ )))
@ -246,11 +246,8 @@
[mismatch-color (make-object color% "PINK")]) [mismatch-color (make-object color% "PINK")])
(opt-lambda ([just-clear? #f]) (opt-lambda ([just-clear? #f])
(when highlight-parens? (when highlight-parens?
(dynamic-wind
(lambda ()
(set! in-highlight-parens? #t) (set! in-highlight-parens? #t)
(begin-edit-sequence)) (begin-edit-sequence)
(lambda ()
(clear-old-locations) (clear-old-locations)
(set! clear-old-locations void) (set! clear-old-locations void)
(unless just-clear? (unless just-clear?
@ -274,8 +271,6 @@
(when (and (= here there) (when (and (= here there)
(not (in-single-line-comment? here))) (not (in-single-line-comment? here)))
(let/ec k
;; before, after : (list number number boolean) ;; before, after : (list number number boolean)
;; numbers indicate the range to highlight ;; numbers indicate the range to highlight
;; boolean indicates if it is an errorneous highlight ;; boolean indicates if it is an errorneous highlight
@ -329,10 +324,9 @@
(handle-single before)] (handle-single before)]
[after (handle-single after)] [after (handle-single after)]
[before (handle-single before)] [before (handle-single before)]
[else (void)]))))))) [else (void)])))))
(lambda ()
(end-edit-sequence) (end-edit-sequence)
(set! in-highlight-parens? #f))))))] (set! in-highlight-parens? #f))))]
[get-limit (lambda (pos) 0)] [get-limit (lambda (pos) 0)]