From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 7 Nov 2019 22:08:51 +0000 (-0500)
Subject: * lisp/emacs-lisp/easymenu.el: Don't quote lambdas
X-Git-Tag: emacs-27.0.90~704
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a070bd1c8b5213ad469d41dd80d392f924644aed;p=emacs.git

* lisp/emacs-lisp/easymenu.el: Don't quote lambdas

(easy-menu-do-define, easy-menu-make-symbol): Replace `(lambda ..)
with a closure.
---

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