(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 e443b47323d105bf7a4a39773ec14fdc6dfc4c36..0ed8630d8500650ec3de7fcb8b9555525d0f28e0 100644 (file)
--- 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 e5f38971e40d0c1cfe4bc6894641170a1c50de7b..868dcb2d10742463334be9fec1473ede76f9e93c 100644 (file)
--- 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)