Mercurial > emacs
changeset 101137:8da5cd0a4dd8
(forward-sentence): Change limit of
re-search-backward to allow values of `sentence-end' anchored at BOL.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 12 Jan 2009 04:24:39 +0000 |
| parents | ef524a34d985 |
| children | 0138ae02cb0d |
| files | lisp/ChangeLog lisp/textmodes/paragraphs.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)))