*** empty log message ***

original commit: 87e1013862d771df4668130687ab5b3d76f6ab5c
2003-11-10 04:17:30 +00:00 · 2003-11-10 04:17:30 +00:00 · 144a4335d4
commit 144a4335d4
parent 571266c919
1 changed files with 1 additions and 0 deletions
--- 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-)