From 41efaa54c540e9deddb49548163c0048866e3c34 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 May 2021 19:01:49 -0400 Subject: [PATCH] * 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 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 -- 2.39.5