From fc0ac20de08a3364e00752ec828e8dc2f5cc066b Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 9 Jan 1996 23:18:21 +0000 Subject: [PATCH] (imenu--create-keymap-2): Fix bug in constructing the lambda expression. Use backquote. Don't use incf. --- lisp/imenu.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/imenu.el b/lisp/imenu.el index 84731d50066..42af2a0a1e1 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -459,12 +459,14 @@ This function is called after the function pointed out by (lambda (item) (cond ((listp (cdr item)) - (append (list (incf counter) (car item) 'keymap (car item)) + (append (list (setq counter (1+ counter)) + (car item) 'keymap (car item)) (imenu--create-keymap-2 (cdr item) (+ counter 10) commands))) (t - (let ((end (if commands (list 'lambda 'nil '(interactive) - (list 'imenu--menubar-select item)) + (let ((end (if commands `(lambda () (interactive) + (imenu--menubar-select ',item)) (cons '(nil) t)))) + (setq foo end) (cons (car item) (cons (car item) end)))) ))) -- 2.39.2