mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -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

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-02-01 Glenn Morris <rgm@gnu.org>
* imenu.el (imenu-default-create-index-function):
Tweak infinite loop test to check for forward motion as well as none.
2013-02-01 Alex Harsanyi <AlexHarsanyi@gmail.com> 2013-02-01 Alex Harsanyi <AlexHarsanyi@gmail.com>
* net/soap-client.el (soap-invoke): Encode the string for * net/soap-client.el (soap-invoke): Encode the string for

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. ;; in these major modes. But save that change for later.
(cond ((and imenu-prev-index-position-function (cond ((and imenu-prev-index-position-function
imenu-extract-index-name-function) imenu-extract-index-name-function)
(let ((index-alist '()) (pos -1) (let ((index-alist '()) (pos (point-max))
name) name)
(goto-char (point-max)) (goto-char pos)
;; Search for the function ;; Search for the function
(while (funcall imenu-prev-index-position-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)) (error "Infinite loop at %s:%d: imenu-prev-index-position-function does not move point" (buffer-name) pos))
(setq pos (point)) (setq pos (point))
(save-excursion (save-excursion