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

[Stefan Monnier]

branch: master
commit 41efaa54c540e9deddb49548163c0048866e3c34
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/menu-bar.el: Avoid `(lambda
    
    (menu-bar-buffer-vector, menu-bar-update-buffers): Use proper closures.
---
 lisp/menu-bar.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 5574422..b71c650 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