From 1093b4a43060cdd1e481e8570a7293538ab201ce Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Wed, 3 Nov 2010 17:16:34 -0600 Subject: [PATCH] get the line number from the paragraph --- collects/framework/private/text.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/text.rkt b/collects/framework/private/text.rkt index 17194413c8..7d9e1d5150 100644 --- a/collects/framework/private/text.rkt +++ b/collects/framework/private/text.rkt @@ -3715,6 +3715,7 @@ designates the character that triggers autocompletion get-visible-position-range find-position line-location + line-paragraph line-start-position line-end-position) @@ -3763,7 +3764,7 @@ designates the character that triggers autocompletion (for ([line (in-range start-line end-line)]) (define y (line-location line)) (when (between top y bottom) - (draw-text (number->string (add1 line)) 0 (+ dy y))))) + (draw-text (number->string (add1 (line-paragraph line))) 0 (+ dy y))))) ;; draw the line between the line numbers and the actual text (define (draw-separator dc top bottom dy x)