diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-24 02:02:40 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-24 02:02:40 +0000 |
| commit | b7b49316c596a463ef4f9dd8220bad1e2f2e3eff (patch) | |
| tree | 8ff87577dadcafd121333db455b01519b66ea323 /lisp/emacs-lisp | |
| parent | 19c04f39661b60d704f66d6e408e58e854cf45b9 (diff) | |
| download | emacs-b7b49316c596a463ef4f9dd8220bad1e2f2e3eff.tar.gz emacs-b7b49316c596a463ef4f9dd8220bad1e2f2e3eff.tar.bz2 emacs-b7b49316c596a463ef4f9dd8220bad1e2f2e3eff.zip | |
(easy-menu-make-symbol): Don't wrap keyboard macros within lambdas.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index ca5151fa984..8e2f4322c03 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -470,7 +470,10 @@ 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) (functionp callback) noexp) callback + (if (or (keymapp callback) (commandp callback) + ;; `functionp' is probably not needed. + (functionp callback) noexp) + callback `(lambda () (interactive) ,callback))) command)) |