# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779599316 0
# Node ID 5b4ba06e910f38069c5a0cd420b6e45edc1ffc26
# Parent  b13519279d73c874de2b0d9f64c617aa092fbfa8
(forward-page): If we find a match that ends where we
started searching, look for another one.

diff -r b13519279d73 -r 5b4ba06e910f lisp/textmodes/page.el
--- a/lisp/textmodes/page.el	Thu Sep 15 03:10:00 1994 +0000
+++ b/lisp/textmodes/page.el	Thu Sep 15 03:21:56 1994 +0000
@@ -43,9 +43,18 @@
     (setq count (1- count)))
   (while (and (< count 0) (not (bobp)))
     (forward-char -1)
-    (if (re-search-backward page-delimiter nil t)
-	(goto-char (match-end 0))
-      (goto-char (point-min)))
+    (let (result (end (point)))
+      ;; If we find a match that ends where we started searching,
+      ;; look for another one.
+      (while (and (setq result (re-search-backward page-delimiter nil t))
+		  (= (match-end 0) end))
+	;; Just search again.
+	)
+      (if result
+	  ;; We found one--move to the end of it.
+	  (goto-char (match-end 0))
+	;; We found nothing--go to beg of buffer.
+	(goto-char (point-min))))
     (setq count (1+ count))))
 
 (defun backward-page (&optional count)