diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-11-07 17:08:51 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-11-07 17:09:16 -0500 |
| commit | a070bd1c8b5213ad469d41dd80d392f924644aed (patch) | |
| tree | 6d3f26d801811fbc98284f33fe880848d23239c3 | |
| parent | e8bcf45f306bcf4c9e8d643d68e4aabe0c69c7ca (diff) | |
| download | emacs-a070bd1c8b5213ad469d41dd80d392f924644aed.tar.gz | |
* lisp/emacs-lisp/easymenu.el: Don't quote lambdas
(easy-menu-do-define, easy-menu-make-symbol): Replace `(lambda ..)
with a closure.
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index f274f62164f..292d50b91ab 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -183,17 +183,17 @@ This is expected to be bound to a mouse event." (when symbol (set symbol keymap) (defalias symbol - `(lambda (event) ,doc (interactive "@e") + (lambda (event) (:documentation doc) (interactive "@e") ;; FIXME: XEmacs uses popup-menu which calls the binding ;; while x-popup-menu only returns the selection. (x-popup-menu event - (or (and (symbolp ,symbol) + (or (and (symbolp symbol) (funcall - (or (plist-get (get ,symbol 'menu-prop) + (or (plist-get (get symbol 'menu-prop) :filter) 'identity) - (symbol-function ,symbol))) - ,symbol))))) + (symbol-function symbol))) + symbol))))) (dolist (map (if (keymapp maps) (list maps) maps)) (define-key map (vector 'menu-bar (easy-menu-intern (car menu))) @@ -475,7 +475,7 @@ When non-nil, NOEXP indicates that CALLBACK cannot be an expression ;; `functionp' is probably not needed. (functionp callback) noexp) callback - `(lambda () (interactive) ,callback))) + (lambda () (interactive) callback))) command)) ;;;###autoload |