# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1096496484 0
# Node ID a35c6f55300f77e4b28a4716949e86eef6e470d9
# Parent  902c984fa20a588df59a05e4daf5978cbc1e73a6
(forward-paragraph): Avoid args-out-of-range error when point winds up
at the beginning of the buffer and hard newlines are enabled.

diff -r 902c984fa20a -r a35c6f55300f lisp/textmodes/paragraphs.el
--- a/lisp/textmodes/paragraphs.el	Wed Sep 29 22:17:15 2004 +0000
+++ b/lisp/textmodes/paragraphs.el	Wed Sep 29 22:21:24 2004 +0000
@@ -274,8 +274,9 @@
 				   (not (looking-at parsep)))
 			    (not (and (looking-at parstart)
 				      (or (not use-hard-newlines)
-					  (get-text-property (1- start) 'hard)
-					  (bobp)))))
+					  (bobp)
+					  (get-text-property
+					   (1- start) 'hard)))))
 		  (setq found-start nil)
 		  (goto-char start))
 		found-start)