(imenu--create-keymap-2): Fix bug in constructing

the lambda expression.  Use backquote.  Don't use incf.

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 84731d50066b025eeff051dead6a2b4aebdfd084..42af2a0a1e167bb979af38209d410abddf134837 100644 (file)
--- 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))))
         )))