diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-02 03:10:46 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-02 03:10:46 +0000 |
| commit | 2d78d3e878e0b64f13fe51a2b1cb1105b0ed6aae (patch) | |
| tree | 22184809916d45043c3d3382d745d43463d6739d /lisp/textmodes/fill.el | |
| parent | cc22748950893fe8251726da4f37c5af6635d67f (diff) | |
| download | emacs-2d78d3e878e0b64f13fe51a2b1cb1105b0ed6aae.tar.gz | |
(fill-region-as-paragraph): Don't forget to skip
over current whitespace before looking for a preceding space.
Diffstat (limited to 'lisp/textmodes/fill.el')
| -rw-r--r-- | lisp/textmodes/fill.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 48a4de776cf..afe493b5591 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -565,7 +565,9 @@ space does not end a sentence, so don't break a line there." ;; further fills will assume it ends a sentence. ;; If we now know it does not end a sentence, ;; avoid putting it at the end of the line. - (while (and (> (point) linebeg) (fill-nobreak-p)) + (while (and (> (point) linebeg) + (fill-nobreak-p) + (skip-chars-backward " \t")) (if (re-search-backward " \\|\\c|.\\|.\\c|" linebeg 0) (forward-char 1))) ;; If the left margin and fill prefix by themselves |