Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
the lambda expression.  Use backquote.  Don't use incf.
This commit is contained in:
Karl Heuer 1996-01-09 23:18:21 +00:00
parent dcfe5c0511
commit fc0ac20de0
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/imenu.el
View file

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