.

original commit: 90ae527b508977d5bcf7dd99990d76e1d8f1c7ef
2005-02-21 20:07:27 +00:00 · 2005-02-21 20:07:27 +00:00 · 1d882e9a54
commit 1d882e9a54
parent 98923fc7ef
1 changed files with 0 additions and 7 deletions
--- a/collects/framework/private/color-prefs.ss
+++ b/collects/framework/private/color-prefs.ss
@ -168,13 +168,6 @@
          (for-each (λ (fs v) ((cdr fs) style v)) style-delta-get/set info)
          style))
      
-      (define (set-default sym code-style)
-        (preferences:set-default
-         sym
-         code-style
-         (λ (x)
-           (is-a? x style-delta%))))
-      
      (define (make-style-delta color bold? underline? italic?)
        (let ((sd (make-object style-delta%)))
          (send sd set-delta-foreground color)