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

fix flash highlight

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-14 12:56:21 -06:00
parent f51345b512
commit 3a17b284a7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wxme/text.rkt
View File

@ -5261,8 +5261,8 @@
(and s-caret-snip (not (pair? show-caret))) (and s-caret-snip (not (pair? show-caret)))
(not hilite-on?) (not hilite-on?)
(= -startpos -endpos) (= -startpos -endpos)
(endpos . < . pcounter) (-endpos . < . pcounter)
(startpos . > . (+ pcounter (mline-len line))))] (-startpos . > . (+ pcounter (mline-len line))))]
[(hilite-some? hsxs hsxe hsys hsye old-style) [(hilite-some? hsxs hsxe hsys hsye old-style)
(process-snips draw-first? #f old-style)]) (process-snips draw-first? #f old-style)])
(when (and (positive? wrap-bitmap-width) (when (and (positive? wrap-bitmap-width)