diff options
| author | Juri Linkov <juri@jurta.org> | 2005-10-21 08:50:28 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2005-10-21 08:50:28 +0000 |
| commit | 08150aa07e70fa16fe75a8764ffc053ec3224621 (patch) | |
| tree | 704922939043fc45f4a070f7d1df9a796c9ded64 /lisp/textmodes/fill.el | |
| parent | 05d36154bf35dbd15f29c4f754531da799ffdd12 (diff) | |
| download | emacs-08150aa07e70fa16fe75a8764ffc053ec3224621.tar.gz emacs-08150aa07e70fa16fe75a8764ffc053ec3224621.tar.bz2 emacs-08150aa07e70fa16fe75a8764ffc053ec3224621.zip | |
(fill-nobreak-p): Fix first two rules to skip backward only
space (instead of space and period) before looking at sentence end.
Diffstat (limited to 'lisp/textmodes/fill.el')
| -rw-r--r-- | lisp/textmodes/fill.el | 11 |
1 files 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 |