Mercurial > emacs

changeset 45309:105aeedf106c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-menu-make-symbol): Don't treat (lambda () ...) as an expression.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 15 May 2002 22:14:16 +0000
parents abd8a68f87a7
children 472f06c53d46
files lisp/emacs-lisp/easymenu.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))