diff options
| author | Richard M. Stallman | 1994-02-04 06:45:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-04 06:45:41 +0000 |
| commit | 16f635545126842f3c732cc7300c92b866d7c826 (patch) | |
| tree | 5d46597a31153085cfb97f27a61cb8cd4d143f59 | |
| parent | 3f5e6d796bac2a9deccad05a6630dcead8ed4f63 (diff) | |
| download | emacs-16f635545126842f3c732cc7300c92b866d7c826.tar.gz emacs-16f635545126842f3c732cc7300c92b866d7c826.zip | |
(insert-kbd-macro): Pass (keymap) as KEYMAP arg to where-is-internal.
| -rw-r--r-- | lisp/macros.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index 1e093a7630a..cbb612494b0 100644 --- a/lisp/macros.el +++ b/lisp/macros.el | |||
| @@ -95,7 +95,7 @@ use this command, and then save the file." | |||
| 95 | (insert "\\M-C-?")))))) | 95 | (insert "\\M-C-?")))))) |
| 96 | (insert ")\n") | 96 | (insert ")\n") |
| 97 | (if keys | 97 | (if keys |
| 98 | (let ((keys (where-is-internal macroname nil))) | 98 | (let ((keys (where-is-internal macroname '(keymap)))) |
| 99 | (while keys | 99 | (while keys |
| 100 | (insert "(global-set-key ") | 100 | (insert "(global-set-key ") |
| 101 | (prin1 (car keys) (current-buffer)) | 101 | (prin1 (car keys) (current-buffer)) |