From: Luc Teirlinck <teirllm@auburn.edu>
Date: Wed, 29 Sep 2004 22:23:43 +0000 (+0000)
Subject: (forward-paragraph): Avoid args-out-of-range error when point winds up
X-Git-Tag: ttn-vms-21-2-B4~4758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=30857a614a4dd26c6f20d45d51694dec60260ce8;p=emacs.git

(forward-paragraph): Avoid args-out-of-range error when point winds up
at the beginning of the buffer and hard newlines are enabled.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e443b47323d..0ed8630d850 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2004-09-29  Luc Teirlinck  <teirllm@auburn.edu>
 
+	* textmodes/paragraphs.el (forward-paragraph): Avoid
+	args-out-of-range error when point winds up at the beginning of
+	the buffer and hard newlines are enabled.
+
 	* newcomment.el (comment-multi-line): Doc fix.
 
 2004-09-29  Stefan Monnier  <monnier@iro.umontreal.ca>
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index e5f38971e40..868dcb2d107 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -274,8 +274,9 @@ Returns the count of paragraphs left to move."
 				   (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)