From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 May 2021 23:01:49 +0000 (-0400)
Subject: * lisp/menu-bar.el: Avoid `(lambda
X-Git-Tag: emacs-28.0.90~2412
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41efaa54c540e9deddb49548163c0048866e3c34;p=emacs.git

* lisp/menu-bar.el: Avoid `(lambda

(menu-bar-buffer-vector, menu-bar-update-buffers): Use proper closures.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 55744221b81..b71c6502077 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -2288,9 +2288,10 @@ It must accept a buffer as its only required argument.")
       (setq i (1- i))
       (aset buffers-vec i
             (cons (car pair)
-                  `(lambda ()
-                     (interactive)
-                     (funcall menu-bar-select-buffer-function ,(cdr pair))))))
+                  (let ((buf (cdr pair)))
+                    (lambda ()
+                      (interactive)
+                      (funcall menu-bar-select-buffer-function buf))))))
     buffers-vec))
 
 (defun menu-bar-update-buffers (&optional force)
@@ -2345,8 +2346,8 @@ It must accept a buffer as its only required argument.")
                (aset frames-vec i
                      (cons
                       (frame-parameter frame 'name)
-                      `(lambda ()
-                         (interactive) (menu-bar-select-frame ,frame))))
+                      (lambda ()
+                        (interactive) (menu-bar-select-frame frame))))
                (setq i (1+ i)))
 	     ;; Put it after the normal buffers
 	     (setq buffers-menu