From e650c7c2e2b37de911152671608c2280958a7c9d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 21 Feb 2000 22:54:03 +0000 Subject: [PATCH] ... original commit: 399ec607ab2531c3f778bcbc71742e2272c629b8 --- collects/framework/editor.ss | 3 +-- collects/framework/keymap.ss | 12 ++++++------ 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/collects/framework/editor.ss b/collects/framework/editor.ss index 9c9b2767..023bc068 100644 --- a/collects/framework/editor.ss +++ b/collects/framework/editor.ss @@ -299,8 +299,7 @@ do-autosave remove-autosave)) - ; wx: what about checking the autosave files when a file is - ; opened? + ; what about checking the autosave files when a file is opened? (define backup-autosave-mixin (mixin (basic<%>) (backup-autosave<%>) args (inherit is-modified? get-filename save-file) diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss index f11b010b..ea03a09d 100644 --- a/collects/framework/keymap.ss +++ b/collects/framework/keymap.ss @@ -771,9 +771,9 @@ (make-make-repeater n)) (loop (sub1 n))))) - (add "do-saved-macro" do-macro) - (add "start-macro-record" start-macro) - (add "end-macro-record" end-macro) + (add "keyboard-macro-run-saved" do-macro) + (add "keyboard-macro-start-record" start-macro) + (add "keyboard-macro-end-record" end-macro) (add-m "copy-clipboard" mouse-copy-clipboard) (add-m "cut-clipboard" mouse-cut-clipboard) @@ -942,9 +942,9 @@ (map-meta s (string-append "command-repeat-" s)) (loop (sub1 n))))) - (map "c:x;e" "do-saved-macro") - (map "c:x;(" "start-macro-record") - (map "c:x;)" "end-macro-record") + (map "c:x;e" "keyboard-macro-run-saved") + (map "c:x;(" "keyboard-macro-start-record") + (map "c:x;)" "keyboard-macro-stop-record") (map "leftbuttontriple" "select-click-line") (map "leftbuttondouble" "select-click-word")