From 3de91884328d7df523a5ecf7508405527f82e9dd Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Thu, 18 Dec 2003 00:22:58 +0000 Subject: [PATCH] *** empty log message *** original commit: eb7327d4a0488440ae09a1b331540408f883f6d2 --- collects/framework/private/color.ss | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index bb404d29..56b63f18 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -322,8 +322,10 @@ (opt-lambda ((clear-colors #t)) (set! stopped? #t) (when (and clear-colors (not frozen?)) + (begin-edit-sequence #f #f) (change-style (send (get-style-list) find-named-style "Standard") - start-pos end-pos #f)) + start-pos end-pos #f) + (end-edit-sequence)) (match-parens #t) (reset-tokens) (set! pairs null) @@ -380,8 +382,10 @@ (do-insert/delete start-pos 0)) ((and should-color? (not on?)) (set! should-color? on?) + (begin-edit-sequence #f #f) (change-style (send (get-style-list) find-named-style "Standard") - start-pos end-pos #f)))) + start-pos end-pos #f) + (end-edit-sequence)))) ;; see docs (define/public (force-stop-colorer stop?)