From b7b49316c596a463ef4f9dd8220bad1e2f2e3eff Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 24 Apr 2008 02:02:40 +0000 Subject: [PATCH] (easy-menu-make-symbol): Don't wrap keyboard macros within lambdas. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/easymenu.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a26d3997a63..6a7c7e1eabe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-04-24 Stefan Monnier + + * emacs-lisp/easymenu.el (easy-menu-make-symbol): Don't wrap keyboard + macros within lambdas. + 2008-04-23 Stefan Monnier * minibuffer.el (completion-try-completion): Add `point' argument. 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)) -- 2.11.4.GIT