From dbed637bfef4275d3238a1494c992458172c9f2c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 28 Jul 2010 15:13:05 -0500 Subject: [PATCH] from commentary following up in PR 11054 original commit: 2309856e2a18e36c5bbedac346cd009ef798b3ad --- collects/framework/private/frame.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt index 46c89c73..9cff2880 100644 --- a/collects/framework/private/frame.rkt +++ b/collects/framework/private/frame.rkt @@ -1807,7 +1807,7 @@ [bt (box 0)] [bb (box 0)]) (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))] [last-pos (send text position-line (send text last-position))] [top-pos (send text line-start-position