From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 Jun 1990 18:35:14 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~15749
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b4e6c391d8a8bc2fcb69fc2be9daf003c34e0f3f;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index c0bd7793a10..87c14419b55 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -130,7 +130,11 @@ negative arg -N means kill forward to Nth end of paragraph."
     (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))