From 6d3ab9487f533d0d3b5c692ba1f78ede5e956e0b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 7 Jul 2008 03:12:43 +0000 Subject: [PATCH] adjusted keybindings svn: r10639 --- collects/framework/private/keymap.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index e9dcde3155..1232075fe3 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -1392,13 +1392,13 @@ (string-append (case (system-type) [(macosx macos) "d:"] - [(windows) "c:"] - [(unix) "a:"] + [(windows unix) "c:"] [else (error 'keymap.ss "unknown platform: ~s" (system-type))]) key) func))]) (add/map "editor-undo" 'undo "z") - (add/map "editor-redo" 'redo "y") + (unless (eq? (system-type) 'macosx) + (add/map "editor-redo" 'redo "y")) (add/map "editor-cut" 'cut "x") (add/map "editor-copy" 'copy "c") (add/map "editor-paste" 'paste "v")