Mercurial > emacs

comparison lisp/edmacro.el @ 49588:37645a051842

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 11:26:42 +0000
parents 51b92fc1f484
children 6be32b5661a6 d7ddb3e565de
comparison
equal deleted inserted replaced
49587:e82b3fe06d4c 49588:37645a051842
30 ;; 30 ;;
31 ;; The `C-x C-k' (`edit-kbd-macro') command edits a keyboard macro 31 ;; The `C-x C-k' (`edit-kbd-macro') command edits a keyboard macro
32 ;; in a special buffer. It prompts you to type a key sequence, 32 ;; in a special buffer. It prompts you to type a key sequence,
33 ;; which should be one of: 33 ;; which should be one of:
34 ;; 34 ;;
35 ;; * RET or `C-x e' (call-last-kbd-macro), to edit the most 35 ;; * RET or `C-x e' (call-last-kbd-macro), to edit the most
36 ;; recently defined keyboard macro. 36 ;; recently defined keyboard macro.
37 ;; 37 ;;
38 ;; * `M-x' followed by a command name, to edit a named command 38 ;; * `M-x' followed by a command name, to edit a named command
39 ;; whose definition is a keyboard macro. 39 ;; whose definition is a keyboard macro.
40 ;; 40 ;;
103 (let ((cmd (if (arrayp keys) (key-binding keys) keys)) 103 (let ((cmd (if (arrayp keys) (key-binding keys) keys))
104 (mac nil)) 104 (mac nil))
105 (cond (store-hook 105 (cond (store-hook
106 (setq mac keys) 106 (setq mac keys)
107 (setq cmd nil)) 107 (setq cmd nil))
108 ((or (memq cmd '(call-last-kbd-macro kmacro-call-macro 108 ((or (memq cmd '(call-last-kbd-macro kmacro-call-macro
109 kmacro-end-or-call-macro kmacro-end-and-call-macro)) 109 kmacro-end-or-call-macro kmacro-end-and-call-macro))
110 (member keys '("\r" [return]))) 110 (member keys '("\r" [return])))
111 (or last-kbd-macro 111 (or last-kbd-macro
112 (y-or-n-p "No keyboard macro defined. Create one? ") 112 (y-or-n-p "No keyboard macro defined. Create one? ")
113 (keyboard-quit)) 113 (keyboard-quit))