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 ...@@ -459,12 +459,14 @@ This function is called after the function pointed out by
(lambda (item) (lambda (item)
(cond (cond
((listp (cdr item)) ((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))) (imenu--create-keymap-2 (cdr item) (+ counter 10) commands)))
(t (t
(let ((end (if commands (list 'lambda 'nil '(interactive) (let ((end (if commands `(lambda () (interactive)
(list 'imenu--menubar-select item)) (imenu--menubar-select ',item))
(cons '(nil) t)))) (cons '(nil) t))))
(setq foo end)
(cons (car item) (cons (car item)
(cons (car item) end)))) (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