diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2010-03-03 12:31:50 -0500 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2010-03-03 12:31:50 -0500 |
commit | 233f0c9f8786570011d784056a65c5195fb6020f (patch) | |
tree | 295551fb4aefca6fd750f2868b62d39ef5dfc885 /lisp/macros.el | |
parent | 93cafb328b429b5cce5a99ce7684b2ca63c3bd7f (diff) | |
download | emacs-233f0c9f8786570011d784056a65c5195fb6020f.tar.gz |
Fix keyboard macro key lookup (Bug#5481).
* src/keymap.c (Fwhere_is_internal): Use Fequal to compare
definitions, so that keyboard macros are correctly handled
(Bug#5481).
* lisp/macros.el (insert-kbd-macro): Look up keyboard macro
using the definition, not the name (Bug#5481).
Diffstat (limited to 'lisp/macros.el')
-rw-r--r-- | lisp/macros.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index 4188a432fe5..fa45d8c6108 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -138,7 +138,8 @@ use this command, and then save the file." (prin1 definition (current-buffer)))) (insert ")\n") (if keys - (let ((keys (where-is-internal macroname '(keymap)))) + (let ((keys (where-is-internal (symbol-function macroname) + '(keymap)))) (while keys (insert "(global-set-key ") (prin1 (car keys) (current-buffer)) |