From 14747de35e012117baf1b6c18fece2d958f3cdbf Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 4 Nov 2012 19:01:24 -0600 Subject: [PATCH] audit the calls to invalidate-bitmap-cache in the framework and in drracket and try to make them happen less often (or, if there will be multiple ones, try to guarantee that there is an edit sequence) original commit: 81dc3bae37690e066204051b8b32d7db16ce4a67 --- collects/framework/private/text.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/text.rkt b/collects/framework/private/text.rkt index d66f8579..0ed33675 100644 --- a/collects/framework/private/text.rkt +++ b/collects/framework/private/text.rkt @@ -3855,7 +3855,9 @@ designates the character that triggers autocompletion ;; draws line numbers on the left hand side of a text% object (define line-numbers-mixin (mixin ((class->interface text%) editor:standard-style-list<%>) (line-numbers<%>) - (inherit get-visible-line-range + (inherit begin-edit-sequence + end-edit-sequence + get-visible-line-range get-visible-position-range last-line line-location @@ -4194,6 +4196,7 @@ designates the character that triggers autocompletion (when (showing-line-numbers?) (define dc (get-dc)) (when dc + (begin-edit-sequence #f #f) (define bx (box 0)) (define by (box 0)) (define tw (text-width dc (number-space+1))) @@ -4209,7 +4212,8 @@ designates the character that triggers autocompletion tw th) (unless (= line (last-line)) - (loop (+ line 1)))))))) + (loop (+ line 1))))) + (end-edit-sequence)))) (super-new) (setup-padding)))