# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 646511714 0
# Node ID 7680293d57f331aae6f08986d7b0e07ab94f5b6b
# Parent  186ca5a09577776d295586d47f9ade46cd39b87e
*** empty log message ***

diff -r 186ca5a09577 -r 7680293d57f3 lisp/textmodes/paragraphs.el
--- a/lisp/textmodes/paragraphs.el	Wed Jun 20 15:40:29 1990 +0000
+++ b/lisp/textmodes/paragraphs.el	Wed Jun 27 18:35:14 1990 +0000
@@ -130,7 +130,11 @@
     (forward-paragraph -1)
     (setq npoint (point))
     (skip-chars-forward " \t\n")
-    (if (>= (point) opoint)
+    ;; If the range of blank lines found spans the original start point,
+    ;; try again from the beginning of it.
+    ;; Must be careful to avoid infinite loop
+    ;; when following a single return at start of buffer.
+    (if (and (>= (point) opoint) (< npoint opoint))
 	(progn
 	  (goto-char npoint)
 	  (if (> npoint (point-min))