* lisp/emacs-lisp/easymenu.el: Don't quote lambdas
(easy-menu-do-define, easy-menu-make-symbol): Replace `(lambda ..) with a closure.
This commit is contained in:
parent
e8bcf45f30
commit
a070bd1c8b
1 changed files with 6 additions and 6 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue