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

missed a call to do-search

Browse Source
This commit is contained in:
Robby Findler 2016-07-26 01:10:55 -05:00
parent 1801eac125
commit a8574ce5e6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui-lib/framework/private/text.rkt
View File

@ -1268,7 +1268,7 @@
(when to-replace-highlight (when to-replace-highlight
(unhighlight-replace))] (unhighlight-replace))]
[else [else
(define next (do-search (get-start-position) 'eof)) (define next (do-search (get-start-position)))
(begin-edit-sequence #t #f) (begin-edit-sequence #t #f)
(cond (cond
[(number? next) [(number? next)