# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1021500856 0
# Node ID 105aeedf106ce26acba64ee02da19ce708ab4c36
# Parent  abd8a68f87a7cf044c7e73e4c130c07f701c56d5
(easy-menu-make-symbol): Don't treat (lambda () ...) as an expression.

diff -r abd8a68f87a7 -r 105aeedf106c lisp/emacs-lisp/easymenu.el
--- a/lisp/emacs-lisp/easymenu.el	Wed May 15 19:35:54 2002 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Wed May 15 22:14:16 2002 +0000
@@ -410,7 +410,7 @@
   "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 @@
 	 (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))