diff options
| author | Stefan Monnier | 2003-04-02 23:40:36 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-04-02 23:40:36 +0000 |
| commit | dbe3ba524d31191eb214adc6c8273d14c7dc60a2 (patch) | |
| tree | 8abbf8a1533e0365cbfb8739b3f0f98fdb92f777 | |
| parent | 1eb29f50cbda6fc84f6c5f63392b67f803389f81 (diff) | |
| download | emacs-dbe3ba524d31191eb214adc6c8273d14c7dc60a2.tar.gz emacs-dbe3ba524d31191eb214adc6c8273d14c7dc60a2.zip | |
(fill-delete-newlines): Don't add a trailing space.
| -rw-r--r-- | lisp/textmodes/fill.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 774072ab9e2..21f38a97a0d 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -450,10 +450,7 @@ Point is moved to just past the fill prefix on the first line." | |||
| 450 | (subst-char-in-region from to ?\n ?\ ) | 450 | (subst-char-in-region from to ?\n ?\ ) |
| 451 | (if (and nosqueeze (not (eq justify 'full))) | 451 | (if (and nosqueeze (not (eq justify 'full))) |
| 452 | nil | 452 | nil |
| 453 | (canonically-space-region (or squeeze-after (point)) to) | 453 | (canonically-space-region (or squeeze-after (point)) to)) |
| 454 | (goto-char to) | ||
| 455 | (delete-horizontal-space) | ||
| 456 | (insert-and-inherit " ")) | ||
| 457 | (goto-char from)) | 454 | (goto-char from)) |
| 458 | 455 | ||
| 459 | (defun fill-move-to-break-point (linebeg) | 456 | (defun fill-move-to-break-point (linebeg) |