mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* imenu.el (imenu-default-create-index-function):

Browse source 
Tweak infinite loop test to check for forward motion as well as none.
This commit is contained in:
Glenn Morris 2013-02-01 00:23:47 -08:00
parent cd87ae10a8
commit 48c828b923
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/imenu.el
View file

@ -676,12 +676,12 @@ The alternate method, which is the one most often used, is to call
;; in these major modes. But save that change for later.
(cond ((and imenu-prev-index-position-function
imenu-extract-index-name-function)
(let ((index-alist '()) (pos -1)
(let ((index-alist '()) (pos (point-max))
name)
(goto-char (point-max))
(goto-char pos)
;; Search for the function
(while (funcall imenu-prev-index-position-function)
(when (= pos (point))
(unless (< (point) pos)
(error "Infinite loop at %s:%d: imenu-prev-index-position-function does not move point" (buffer-name) pos))
(setq pos (point))
(save-excursion