Mercurial > emacs

diff lisp/macros.el @ 107332:e09a216f2aab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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).
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 03 Mar 2010 12:31:50 -0500
parents e8f9df14b15b
children 280c8ae2476d 376148b31b5e
line wrap: on
line diff
--- a/lisp/macros.el	Wed Mar 03 11:14:16 2010 -0500
+++ b/lisp/macros.el	Wed Mar 03 12:31:50 2010 -0500
@@ -138,7 +138,8 @@
 	(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))