mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases 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))))
)))