diff options
| author | Stefan Monnier | 2021-05-18 18:11:08 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2021-05-18 18:11:08 -0400 |
| commit | 0ccd712ad26fff76fc8a26a861dc09ee0483b9ac (patch) | |
| tree | 100aaa882275e000521f1e137ab22a94ad767f43 | |
| parent | 2520a163cb28a180222fe4421123cc743581b893 (diff) | |
| download | emacs-0ccd712ad26fff76fc8a26a861dc09ee0483b9ac.tar.gz emacs-0ccd712ad26fff76fc8a26a861dc09ee0483b9ac.zip | |
* lisp/imenu.el (imenu--create-keymap): Use proper closures
| -rw-r--r-- | lisp/imenu.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." | |||
| 463 | ((imenu--subalist-p item) | 463 | ((imenu--subalist-p item) |
| 464 | (imenu--create-keymap (car item) (cdr item) cmd)) | 464 | (imenu--create-keymap (car item) (cdr item) cmd)) |
| 465 | (t | 465 | (t |
| 466 | `(lambda () (interactive) | 466 | (lambda () (interactive) |
| 467 | ,(if cmd `(,cmd ',item) (list 'quote item))))))) | 467 | (if cmd (funcall cmd item) item)))))) |
| 468 | alist))) | 468 | alist))) |
| 469 | 469 | ||
| 470 | (defun imenu--in-alist (str alist) | 470 | (defun imenu--in-alist (str alist) |