diff options
| author | Stefan Monnier <[email protected]> | 2002-05-15 22:14:16 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2002-05-15 22:14:16 +0000 |
| commit | 9567300236a2e39b616497e4dcf2450dda52bc70 (patch) | |
| tree | c00d02460e5fc88f9738c35bd1c4ae4a6172bf21 /lisp | |
| parent | bda1925e34e629161f36477903d5f2602ef8668e (diff) | |
(easy-menu-make-symbol): Don't treat (lambda () ...) as an expression.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 8bde63f697..bf2e190e48 100644 --- 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)) |