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

Tweak infinite loop test to check for forward motion as well as none.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a05d0fc034791aff15ab99d425d027cdf7cb8268..e2bb42b62a1d838335bb86bbcd7e8535c7ec653a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 
        * net/soap-client.el (soap-invoke): Encode the string for

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 80fc441c896a97e9f9ce94ca540e8ce37d5711d2..c1077a49d1a08d23643b77918639438ecd35e668 100644 (file)
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -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