From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 9 Jan 1996 23:18:21 +0000 (+0000)
Subject: (imenu--create-keymap-2): Fix bug in constructing
X-Git-Tag: emacs-19.34~1746
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc0ac20de08a3364e00752ec828e8dc2f5cc066b;p=emacs.git

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