Mercurial > emacs

changeset 66280:843776c843bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-nobreak-p): Fix first two rules to skip backward only space (instead of space and period) before looking at sentence end.
author Juri Linkov <juri@jurta.org>
date Fri, 21 Oct 2005 08:50:28 +0000
parents c12719e4ec89
children 3213e48ea8b3
files lisp/textmodes/fill.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/fill.el	Fri Oct 21 08:49:46 2005 +0000
+++ b/lisp/textmodes/fill.el	Fri Oct 21 08:50:28 2005 +0000
@@ -344,13 +344,14 @@
      ;; 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