# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1209002560 0
# Node ID 67bb4886287390a78af2d70c153fee11a92dab56
# Parent  bc48ced5cf89d4e260833df3bd5f13e74038c2e5
(easy-menu-make-symbol): Don't wrap keyboard macros within lambdas.

diff -r bc48ced5cf89 -r 67bb48862873 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 23 21:01:31 2008 +0000
+++ b/lisp/ChangeLog	Thu Apr 24 02:02:40 2008 +0000
@@ -1,3 +1,8 @@
+2008-04-24  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/easymenu.el (easy-menu-make-symbol): Don't wrap keyboard
+	macros within lambdas.
+
 2008-04-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* minibuffer.el (completion-try-completion): Add `point' argument.
diff -r bc48ced5cf89 -r 67bb48862873 lisp/emacs-lisp/easymenu.el
--- a/lisp/emacs-lisp/easymenu.el	Wed Apr 23 21:01:31 2008 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Thu Apr 24 02:02:40 2008 +0000
@@ -470,7 +470,10 @@
 	 (make-symbol (format "menu-function-%d" easy-menu-item-count))))
     (setq easy-menu-item-count (1+ easy-menu-item-count))
     (fset command
-	  (if (or (keymapp callback) (functionp callback) noexp) callback
+	  (if (or (keymapp callback) (commandp callback)
+                  ;; `functionp' is probably not needed.
+                  (functionp callback) noexp)
+              callback
 	    `(lambda () (interactive) ,callback)))
     command))