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

This commit is contained in:
Stefan Monnier 2021-05-18 18:11:08 -04:00
parent 2520a163cb
commit 0ccd712ad2

View file

@ -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)