From c2d222ebec3e51b948e952ef85d7a456a10f5eca Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 3 Sep 2001 17:58:56 +0000 Subject: [PATCH] *** empty log message *** original commit: 3cd30a8fcd41509e60f1074c36acf462802d22aa --- collects/framework/private/keymap.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index bc4d9521..27b4122f 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -265,7 +265,7 @@ (send edit get-start-position))] [bt (box 0)] [bb (box 0)]) - (send edit get-visible-line-range bt bb) + (send edit get-visible-line-range bt bb #f) (let* ([half (sub1 (quotient (- (unbox bb) (unbox bt)) 2))] [last-pos (send edit position-line (send edit last-position))] [top-pos (send edit line-start-position