From b6ec6b57ff984baa0e7134aa58d388138539bedc Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Thu, 13 Nov 2003 06:17:03 +0000 Subject: [PATCH] *** empty log message *** original commit: 40ad5121076188dd519f81349f70029a7e91fc1d --- collects/framework/private/color.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index 2db5eea9..0eea8ae1 100644 --- 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)