diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-04 06:45:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-04 06:45:26 +0000 |
| commit | ea158007079e130e435ed71f7218a959e85b4e78 (patch) | |
| tree | 5493107c4ccb6cdffee3f55be2f805a91d8653b8 /lisp/edmacro.el | |
| parent | dd840699b7edc80b0ff831afa16a5d428c13dcfa (diff) | |
| download | emacs-ea158007079e130e435ed71f7218a959e85b4e78.tar.gz | |
(edit-kbd-macro, edmacro-finish-edit, insert-kbd-macro):
Pass (keymap) as KEYMAP arg to where-is-internal.
Diffstat (limited to 'lisp/edmacro.el')
| -rw-r--r-- | lisp/edmacro.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index ab2a6c1631f..6c913b7b0fb 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -143,7 +143,7 @@ With a prefix argument, format the macro in a more concise way." (insert ";; Original keys: " fmt "\n") (unless store-hook (insert "\nCommand: " (if cmd (symbol-name cmd) "none") "\n") - (let ((keys (where-is-internal (or cmd mac) nil))) + (let ((keys (where-is-internal (or cmd mac) '(keymap)))) (if keys (while keys (insert "Key: " (edmacro-format-keys (pop keys) 1) "\n")) @@ -278,7 +278,7 @@ or nil, use a compact 80-column format." (fset cmd mac))) (if no-keys (when cmd - (loop for key in (where-is-internal cmd nil) do + (loop for key in (where-is-internal cmd '(keymap)) do (global-unset-key key))) (when keys (if (= (length mac) 0) @@ -682,7 +682,7 @@ use this command, and then save the file." (prin1 definition (current-buffer)) (insert "))\n") (if keys - (let ((keys (where-is-internal macroname nil))) + (let ((keys (where-is-internal macroname '(keymap)))) (while keys (insert (format "(global-set-key %S '%s)\n" (car keys) macroname)) (setq keys (cdr keys))))))) |