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

fix flash highlight

Browse Source 
original commit: 3a17b284a7f454567340e97bf59a9806bedce3ed
This commit is contained in:
Matthew Flatt 2010-09-14 12:56:21 -06:00
parent 3b7c5a78ea
commit 883b6c972b
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)))
(not hilite-on?)
(= -startpos -endpos)
(endpos . < . pcounter)
(startpos . > . (+ pcounter (mline-len line))))]
(-endpos . < . pcounter)
(-startpos . > . (+ pcounter (mline-len line))))]
[(hilite-some? hsxs hsxe hsys hsye old-style)
(process-snips draw-first? #f old-style)])
(when (and (positive? wrap-bitmap-width)