From 77a1b55c32a08484b55cec7796c6e93fc9825af8 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 2 Apr 2013 21:26:11 -0500 Subject: [PATCH] hide the testing of the close parens with an edit-sequence --- collects/framework/private/color.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/color.rkt b/collects/framework/private/color.rkt index 2164b0c3ea..bf48797cf7 100644 --- a/collects/framework/private/color.rkt +++ b/collects/framework/private/color.rkt @@ -1024,6 +1024,7 @@ added get-regions ;; See docs ;; smart-skip : (or/c #f 'adjacent 'forward) (define/public (insert-close-paren pos char flash? fixup? [smart-skip #f]) + (begin-edit-sequence) (define closers (map symbol->string (map cadr pairs))) (define closer (get-close-paren pos (if fixup? ;; Ensure preference for given character: @@ -1066,7 +1067,7 @@ added get-regions (format "invalid smart-skip option: ~a" smart-skip))])] [else (insert)])) - + (end-edit-sequence) (when (and flash? (not stopped?)) (flash-from end-pos))) ;; find-closer : exact-nonnegative-integer? -> (or/c #f string?)