(easy-menu-make-symbol): Don't treat (lambda () ...) as an expression.

diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 8bde63f697a8316d4b3d2b674012acf44e2b016a..bf2e190e4892283161a6539c7b64a8844c391fc8 100644 (file)
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -410,7 +410,7 @@ KEY does not have to be a symbol, and comparison is done with equal."
   "Return t if NAME is the name of menu item ITEM.
 NAME can be either a string, or a symbol."
   (if (consp item)
-      (if (symbolp name) 
+      (if (symbolp name)
          (eq (car-safe item) name)
        (if (stringp name)
            ;; Match against the text that is displayed to the user.
@@ -434,7 +434,7 @@ When non-nil, NOEXP indicates that CALLBACK cannot be an expression
         (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) noexp) callback
+         (if (or (keymapp callback) (functionp callback) noexp) callback
            `(lambda () (interactive) ,callback)))
     command))