*** empty log message ***

original commit: aff85a0d42c176de780142c10b5adbdab72d1e6f
2003-11-26 20:24:05 +00:00 · 2003-11-26 20:24:05 +00:00 · a3e2648d39
commit a3e2648d39
parent 92f4a92627
1 changed files with 4 additions and 1 deletions
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@ -183,7 +183,10 @@
                   (send parens split-tree orig-token-start)
                   (set! invalid-tokens invalid-tree)
                   (set! tokens valid-tree)
-                   (set! invalid-tokens-start (+ start-pos orig-token-end change-length))
+                   (set! invalid-tokens-start
+                         (if (send invalid-tokens is-empty?)
+                             +inf.0
+                             (+ start-pos orig-token-end change-length)))
                   (set! current-pos (+ start-pos orig-token-start))
                   (set! up-to-date? #f)
                   (queue-callback colorer-callback #f)))