[Emacs-diffs] emacs/lisp ChangeLog textmodes/paragraphs.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/01/12 04:24:43

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : paragraphs.el 

Log message:
        (forward-sentence): Change limit of
        re-search-backward to allow values of `sentence-end' anchored at BOL.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15094&r2=1.15095
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/paragraphs.el?cvsroot=emacs&r1=1.95&r2=1.96

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15094
retrieving revision 1.15095
diff -u -b -r1.15094 -r1.15095
--- ChangeLog   12 Jan 2009 03:37:13 -0000      1.15094
+++ ChangeLog   12 Jan 2009 04:24:39 -0000      1.15095
@@ -1,3 +1,8 @@
+2009-01-12  Alan Mackenzie  <address@hidden>
+
+       * 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  <address@hidden>
 
        * tar-mode.el (tar-header-block-tokenize): Properly ignore the version

Index: textmodes/paragraphs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/paragraphs.el,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -b -r1.95 -r1.96
--- textmodes/paragraphs.el     5 Jan 2009 03:24:08 -0000       1.95
+++ textmodes/paragraphs.el     12 Jan 2009 04:24:43 -0000      1.96
@@ -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)))