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

fix a bug in highlight-range exposed by the contour window

Browse Source 
closes PR 13488
related to PR 13491
This commit is contained in:
Robby Findler 2013-02-05 15:37:40 -06:00
parent 12ebfa2cf4
commit deac3fa2b3
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/framework/private/text.rkt
View File

@ -377,19 +377,13 @@
(define color (if (is-a? in-color color%)
in-color
(send the-color-database find-color in-color)))
(define found-one? #f)
(unhighlight-ranges
(λ (r-start r-end r-color r-caret-space? r-style r-adjust-on-insert/delete? r-key)
(cond
[found-one? #f]
[(and (equal? start r-start)
(equal? end r-end)
(equal? color r-color)
(equal? caret-space? r-caret-space?)
(equal? style r-style))
(set! found-one? #t)
#t]
[else #f]))))
(and (equal? start r-start)
(equal? end r-end)
(equal? color r-color)
(equal? caret-space? r-caret-space?)
(equal? style r-style)))))
(define/public (unhighlight-ranges/key key)
(unhighlight-ranges