From 144a4335d4b3effd12e189f88a42ef633a218425 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 10 Nov 2003 04:17:30 +0000 Subject: [PATCH] *** empty log message *** original commit: 87e1013862d771df4668130687ab5b3d76f6ab5c --- collects/framework/private/color.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index 83ef6401..8227e112 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -242,6 +242,7 @@ (define/public (start-colorer prefix- get-token- pairs-) (set! stopped? #f) (reset-tokens) + (set! should-color? (preferences:get (string->symbol (format "syntax-coloring:~a:active" prefix-)))) (set! prefix prefix-) (set! get-token get-token-) (set! pairs pairs-)