From 08150aa07e70fa16fe75a8764ffc053ec3224621 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 21 Oct 2005 08:50:28 +0000 Subject: [PATCH] (fill-nobreak-p): Fix first two rules to skip backward only space (instead of space and period) before looking at sentence end. --- lisp/textmodes/fill.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 11ddfc0e967..ce95c6f026f 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -344,13 +344,14 @@ and `fill-nobreak-invisible'." ;; it at the end of the line. (and sentence-end-double-space (save-excursion - (skip-chars-backward ". ") - (looking-at "\\. \\([^ ]\\|$\\)"))) + (skip-chars-backward " ") + (and (eq (preceding-char) ?.) + (looking-at " \\([^ ]\\|$\\)")))) ;; Another approach to the same problem. (save-excursion - (skip-chars-backward ". ") - (and (looking-at "\\.") - (not (looking-at (sentence-end))))) + (skip-chars-backward " ") + (and (eq (preceding-char) ?.) + (not (progn (forward-char -1) (looking-at (sentence-end)))))) ;; Don't split a line if the rest would look like a new paragraph. (unless use-hard-newlines (save-excursion -- 2.39.5