From: Kim F. Storm <storm@cua.dk>
Date: Thu, 12 Sep 2002 21:52:26 +0000 (+0000)
Subject: (kmacro-keymap): Changed bindings:
X-Git-Tag: ttn-vms-21-2-B4~13196
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28241c47e7bf04054c0827a1d9f353b49e55c8e5;p=emacs.git

(kmacro-keymap): Changed bindings:
C-x C-k s to kmacro-start-macro, C-x C-k b to kmacro-bind-to-key.
---

diff --git a/lisp/kmacro.el b/lisp/kmacro.el
index 01b2618c207..324878623bc 100644
--- a/lisp/kmacro.el
+++ b/lisp/kmacro.el
@@ -174,7 +174,7 @@ macro to be executed before appending to it."
 
 (defvar kmacro-keymap
   (let ((map (make-sparse-keymap)))
-    (define-key map "\C-s" 'kmacro-start-macro)
+    (define-key map "s"    'kmacro-start-macro)
     (define-key map "\C-k" 'kmacro-end-or-call-macro-repeat)
     (define-key map "\C-e" 'kmacro-edit-macro-repeat)
     (define-key map "\r"   'kmacro-edit-macro)
@@ -190,7 +190,7 @@ macro to be executed before appending to it."
     (define-key map "\C-f" 'kmacro-set-format)
     (define-key map "\C-c" 'kmacro-set-counter)
     (define-key map "\C-t" 'kmacro-swap-ring)
-    (define-key map "\C-b" 'kmacro-bind-to-key)
+    (define-key map "b"    'kmacro-bind-to-key)
     (define-key map "\C-d" 'kmacro-delete-ring-head)
     ;; Compatibility bindings
     (define-key map "q"    'kbd-macro-query)