diff options
Diffstat (limited to 'lisp/macros.el')
| -rw-r--r-- | lisp/macros.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index c1348295eb7..fc65489fe65 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -140,8 +140,9 @@ use this command, and then save the file." (prin1 definition (current-buffer)))) (insert ")\n") (if keys - (let ((keys (where-is-internal (symbol-function macroname) - '(keymap)))) + (let ((keys (or (where-is-internal (symbol-function macroname) + '(keymap)) + (where-is-internal macroname '(keymap))))) (while keys (insert "(global-set-key ") (prin1 (car keys) (current-buffer)) |