procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(imenu--cleanup): Set alist to its default just once, at the beginning.

Browse source 
Don't recurse on a cdr which is nil.
This commit is contained in:
Richard M. Stallman 1995-02-22 01:31:14 +00:00
parent 909149386e
commit 4818d21063
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

@ -488,16 +488,18 @@ or 'imenu-create-index-function")
;; Sets the markers in imenu--index-alist
;; point nowhere.
;; if alist is provided use that list.
(and imenu--index-alist
(or alist
(setq alist imenu--index-alist))
(and alist
(mapcar
(function
(lambda (item)
(cond
((markerp (cdr item))
(set-marker (cdr item) nil))
((listp (cdr item))
((consp (cdr item))
(imenu--cleanup (cdr item))))))
(if alist alist imenu--index-alist))
alist)
t))
(defun imenu-default-create-index-function ()