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

from commentary following up in PR 11054

Browse Source
This commit is contained in:
Robby Findler 2010-07-28 15:13:05 -05:00
parent 9e41ab031f
commit 2309856e2a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/frame.rkt
View File

@ -1807,7 +1807,7 @@
[bt (box 0)] [bt (box 0)]
[bb (box 0)]) [bb (box 0)])
(send text get-visible-line-range bt bb #f) (send text get-visible-line-range bt bb #f)
(unless (<= (unbox bt) search-result-line (unbox bb)) (unless (< (unbox bt) search-result-line (unbox bb))
(let* ([half (sub1 (quotient (- (unbox bb) (unbox bt)) 2))] (let* ([half (sub1 (quotient (- (unbox bb) (unbox bt)) 2))]
[last-pos (send text position-line (send text last-position))] [last-pos (send text position-line (send text last-position))]
[top-pos (send text line-start-position [top-pos (send text line-start-position