32 |
;; in a special buffer. It prompts you to type a key sequence, |
;; in a special buffer. It prompts you to type a key sequence, |
33 |
;; which should be one of: |
;; which should be one of: |
34 |
;; |
;; |
35 |
;; * RET or `C-x e' (call-last-kbd-macro), to edit the most |
;; * RET or `C-x e' (call-last-kbd-macro), to edit the most |
36 |
;; recently defined keyboard macro. |
;; recently defined keyboard macro. |
37 |
;; |
;; |
38 |
;; * `M-x' followed by a command name, to edit a named command |
;; * `M-x' followed by a command name, to edit a named command |
105 |
(cond (store-hook |
(cond (store-hook |
106 |
(setq mac keys) |
(setq mac keys) |
107 |
(setq cmd nil)) |
(setq cmd nil)) |
108 |
((or (memq cmd '(call-last-kbd-macro kmacro-call-macro |
((or (memq cmd '(call-last-kbd-macro kmacro-call-macro |
109 |
kmacro-end-or-call-macro kmacro-end-and-call-macro)) |
kmacro-end-or-call-macro kmacro-end-and-call-macro)) |
110 |
(member keys '("\r" [return]))) |
(member keys '("\r" [return]))) |
111 |
(or last-kbd-macro |
(or last-kbd-macro |