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

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 7fc57c10526c6f750579d23694f155dd11aafcc2..2024bb1e06657d4b8ef545b4479e5a3859866cb1 100644 (file)
--- 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)