change pref name to match docs

2011-01-02 14:45:14 -08:00 · 2011-01-02 14:45:14 -08:00 · 47e3db06ff
commit 47e3db06ff
parent dbd8faee1b
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/const.rkt
+++ b/collects/mred/private/const.rkt
@ -38,7 +38,7 @@
  (define arrow-cursor (make-object wx:cursor% 'arrow))

  (define default-x-prefix (if (eq? 'unix (system-type))
-			       (let ([v (get-preference '|MrEd:defaultMenuPrefix| (lambda () 'ctl))])
+			       (let ([v (get-preference '|GRacket:defaultMenuPrefix| (lambda () 'ctl))])
 				 (if (memq v '(meta ctl alt ctl-m))
 				     v
 				     'ctl))