From 91b5b362d7bf94d614dfe34aab82ba681b1cef04 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 25 Jun 1997 22:03:10 +0000 Subject: [PATCH] fixed some bugs original commit: fd49d54ebc826a6ea756feb8ef8fb137824ccd8f --- collects/mred/keys.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/mred/keys.ss b/collects/mred/keys.ss index 4b003cb8..046a0c1a 100644 --- a/collects/mred/keys.ss +++ b/collects/mred/keys.ss @@ -84,10 +84,9 @@ (add "find-string-reverse" find-string-reverse) (add "find-string-replace" find-string-replace) - (map "c:x;c:s" "save-file") - (map "d:s" "save-file") - (map "c:x;c:w" "save-file-as") - (map "c:x;c:f" "load-file"))))) + (map "c:s" "find-string") + (map "c:r" "find-string-reverse") + (map-meta "%" "find-string-replace"))))) (define setup-global-file-keymap (let* ([rcs