# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 902611872 0
# Node ID fbeacfb090960b6cb865d4676f8a27457e7db621
# Parent  cd40154f3c7accb14e5d627ae848d4cd4a72f81f
(forward-paragraph): Fix the logic for handling beginning of buffer
in the "no fill-prefix" case.

diff -r cd40154f3c7a -r fbeacfb09096 lisp/textmodes/paragraphs.el
--- a/lisp/textmodes/paragraphs.el	Sat Aug 08 21:28:09 1998 +0000
+++ b/lisp/textmodes/paragraphs.el	Sat Aug 08 21:31:12 1998 +0000
@@ -184,7 +184,7 @@
 	    paragraph-separate))
 	 ;; This is used for searching.
 	 (sp-paragraph-start (concat "^[ \t]*\\(" paragraph-start "\\)"))
-	 start)
+	 start found-start)
     (while (and (< arg 0) (not (bobp)))
       (if (and (not (looking-at paragraph-separate))
 	       (re-search-backward "^\n" (max (1- (point)) (point-min)) t)
@@ -223,18 +223,21 @@
 ;;;			 (forward-line 1))
 		    (not (bobp)))
 		(while (and (re-search-backward sp-paragraph-start nil 1)
+			    (setq found-start t)
 			    ;; Found a candidate, but need to check if it is a
 			    ;; REAL paragraph-start.
-			    (not (bobp))
 			    (progn (setq start (point))
 				   (move-to-left-margin)
 				   (not (looking-at paragraph-separate)))
-			    (or (not (looking-at paragraph-start))
-				(and use-hard-newlines
-				     (not (get-text-property (1- start)
-							     'hard)))))
+			    (not (and (looking-at paragraph-start)
+				      (not
+				       (and use-hard-newlines
+					    (not (bobp))
+					    (not (get-text-property (1- start)
+								    'hard)))))))
+		  (setq found-start nil)
 		  (goto-char start))
-		(> (point) (point-min)))
+		found-start)
 	      ;; Found one.
 	      (progn
 		;; Move forward over paragraph separators.