From d7158f270c5f2504551279718cd81a2204b2ffdb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 12 Jan 2009 04:24:39 +0000 Subject: [PATCH] (forward-sentence): Change limit of re-search-backward to allow values of `sentence-end' anchored at BOL. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/paragraphs.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 30ba3804544..1687d8cfa74 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-01-12 Alan Mackenzie + + * 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 * tar-mode.el (tar-header-block-tokenize): Properly ignore the version diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 937140bd4dc..1d4a2746f62 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el @@ -449,7 +449,10 @@ sentences. Also, every paragraph boundary terminates sentences as well." (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))) -- 2.39.2