(easy-menu-make-symbol): Don't wrap keyboard macros within lambdas.

This commit is contained in:
Stefan Monnier 2008-04-24 02:02:40 +00:00
parent 19c04f3966
commit b7b49316c5
2 changed files with 9 additions and 1 deletions

View file

@ -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.

View file

@ -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))