From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 May 2021 22:11:08 +0000 (-0400)
Subject: * lisp/imenu.el (imenu--create-keymap): Use proper closures
X-Git-Tag: emacs-28.0.90~2414
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ccd712ad26fff76fc8a26a861dc09ee0483b9ac;p=emacs.git

* lisp/imenu.el (imenu--create-keymap): Use proper closures
---

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 7fc57c10526..2024bb1e066 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -463,8 +463,8 @@ Non-nil arguments are in recursive calls."
                      ((imenu--subalist-p item)
                       (imenu--create-keymap (car item) (cdr item) cmd))
                      (t
-                      `(lambda () (interactive)
-                         ,(if cmd `(,cmd ',item) (list 'quote item)))))))
+                      (lambda () (interactive)
+                        (if cmd (funcall cmd item) item))))))
               alist)))
 
 (defun imenu--in-alist (str alist)