Mercurial > emacs
changeset 94305:67bb48862873
(easy-menu-make-symbol): Don't wrap keyboard macros within lambdas.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 24 Apr 2008 02:02:40 +0000 |
| parents | bc48ced5cf89 |
| children | efca1113a630 |
| files | lisp/ChangeLog lisp/emacs-lisp/easymenu.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Apr 23 21:01:31 2008 +0000 +++ b/lisp/ChangeLog Thu Apr 24 02:02:40 2008 +0000 @@ -1,3 +1,8 @@ +2008-04-24 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/easymenu.el (easy-menu-make-symbol): Don't wrap keyboard + macros within lambdas. + 2008-04-23 Stefan Monnier <monnier@iro.umontreal.ca> * minibuffer.el (completion-try-completion): Add `point' argument.
--- a/lisp/emacs-lisp/easymenu.el Wed Apr 23 21:01:31 2008 +0000 +++ b/lisp/emacs-lisp/easymenu.el Thu Apr 24 02:02:40 2008 +0000 @@ -470,7 +470,10 @@ (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))