.

original commit: 3a09d8f16d8b1cc5f7ac68bb3282b377cece8729
2005-02-05 02:35:48 +00:00 · 2005-02-05 02:35:48 +00:00 · 4cc72cb4c9
commit 4cc72cb4c9
parent a9372be346
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@ -620,7 +620,7 @@
                     (get-close-paren pos (if fixup? (map symbol->string (map cadr pairs)) null)))))
              (end-edit-sequence)
              (let ((insert-str (if closer closer (string char))))
-                (insert insert-str)
+                (for-each (lambda (c) (insert c)) (string->list insert-str))
                (when flash?
                  (unless stopped?
                    (let ((to-pos (backward-match (+ (string-length insert-str) pos) 0)))