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 | 66d6ec94bbd52b9d59eefb4692cb7ef4b27f501c (patch) | |
| tree | 70f22862650af43593a017ec941f766045117a8d /lisp/textmodes/fill.el | |
| parent | 5f83e1daacffe53ee584333b751fe039a9c4c8bd (diff) | |
| download | emacs-66d6ec94bbd52b9d59eefb4692cb7ef4b27f501c.tar.gz emacs-66d6ec94bbd52b9d59eefb4692cb7ef4b27f501c.tar.bz2 emacs-66d6ec94bbd52b9d59eefb4692cb7ef4b27f501c.zip | |
(fill-region-as-paragraph):
When justifying, cope if line ends in spaces and no newline.
Diffstat (limited to 'lisp/textmodes/fill.el')
| -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)))))) |