# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1231734279 0
# Node ID 8da5cd0a4dd8c968de2c1e64ec5b96769b48ff70
# Parent  ef524a34d9850492b2a14bcf438a0882edfd27ed
(forward-sentence): Change limit of
re-search-backward to allow values of `sentence-end' anchored at BOL.

diff -r ef524a34d985 -r 8da5cd0a4dd8 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jan 12 03:37:13 2009 +0000
+++ b/lisp/ChangeLog	Mon Jan 12 04:24:39 2009 +0000
@@ -1,3 +1,8 @@
+2009-01-12  Alan Mackenzie  <acm@muc.de>
+
+	* textmodes/paragraphs.el (forward-sentence): Change limit of
+	re-search-backward to allow values of `sentence-end' anchored at BOL.
+
 2009-01-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* tar-mode.el (tar-header-block-tokenize): Properly ignore the version
diff -r ef524a34d985 -r 8da5cd0a4dd8 lisp/textmodes/paragraphs.el
--- a/lisp/textmodes/paragraphs.el	Mon Jan 12 03:37:13 2009 +0000
+++ b/lisp/textmodes/paragraphs.el	Mon Jan 12 04:24:39 2009 +0000
@@ -449,7 +449,10 @@
         (sentence-end (sentence-end)))
     (while (< arg 0)
       (let ((pos (point))
-	    (par-beg (save-excursion (start-of-paragraph-text) (point))))
+	    ;; We used to use (start-of-paragraph-text), but this can
+	    ;; prevent sentence-end from matching if it is anchored at
+	    ;; BOL and the paragraph starts indented.
+	    (par-beg (save-excursion (backward-paragraph) (point))))
        (if (and (re-search-backward sentence-end par-beg t)
 		(or (< (match-end 0) pos)
 		    (re-search-backward sentence-end par-beg t)))