Commit fc0ac20d authored by Karl Heuer's avatar Karl Heuer
Browse files

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

the lambda expression.  Use backquote.  Don't use incf.
parent dcfe5c05
......@@ -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))))
)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment