*** empty log message ***

original commit: 40ad5121076188dd519f81349f70029a7e91fc1d
2003-11-13 06:17:03 +00:00 · 2003-11-13 06:17:03 +00:00 · b6ec6b57ff
commit b6ec6b57ff
parent a08f825f72
1 changed files with 3 additions and 1 deletions
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@ -194,9 +194,11 @@
                   (set! tokens valid-tree)
                   (set! invalid-tokens-start (+ change-length invalid-tokens-start))
                   (set! current-pos (+ start-pos tok-start)))))))
+
+          (inherit is-locked?)
          
          (define (colorer-callback)
-            (unless (in-edit-sequence?)
+            (unless (or (in-edit-sequence?) (is-locked?))
              (thread-resume background-thread)
              (sleep .01)    ;; This is when the background thread is working.
              (semaphore-wait lock)