(forward-paragraph): Avoid args-out-of-range error when point winds up

at the beginning of the buffer and hard newlines are enabled.

2 files changed, 7 insertions, 2 deletions

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)