diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-12 15:52:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-12 15:52:17 +0000 |
| commit | 24e14141101f1a5e8b5029a74ea40ec4881c5b97 (patch) | |
| tree | 536275997319b2242f6feb0187eb3caab0dd7f2a /lisp/textmodes | |
| parent | 3d44613a7151ac754cfcdac2e237449b5a66069a (diff) | |
| download | emacs-24e14141101f1a5e8b5029a74ea40ec4881c5b97.tar.gz | |
(fill-region-as-paragraph):
When justifying, cope if line ends in spaces and no newline.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/fill.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 5609eef944d..a7431356fda 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -513,8 +513,10 @@ space does not end a sentence, so don't break a line there." (setq prefixcol (current-column)))))) ;; Justify the line just ended, if desired. (if justify - (if (eobp) - (justify-current-line justify t t) + (if (save-excursion (skip-chars-forward " \t") (eobp)) + (progn + (delete-horizontal-space) + (justify-current-line justify t t)) (forward-line -1) (justify-current-line justify nil t) (forward-line 1)))))) |