[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easymenu.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/04/24 02:02:40

Index: emacs-lisp/easymenu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/easymenu.el,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -b -r1.89 -r1.90
--- emacs-lisp/easymenu.el      15 Jan 2008 22:33:05 -0000      1.89
+++ emacs-lisp/easymenu.el      24 Apr 2008 02:02:40 -0000      1.90
@@ -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))