From 233f0c9f8786570011d784056a65c5195fb6020f Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 3 Mar 2010 12:31:50 -0500 Subject: 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). --- lisp/macros.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/macros.el') 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)) -- cgit v1.2.1