1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00

(fill-delete-newlines): Don't add a trailing space.

This commit is contained in:
Stefan Monnier 2003-04-02 23:40:36 +00:00
parent 1eb29f50cb
commit dbe3ba524d

View File

@ -450,10 +450,7 @@ Point is moved to just past the fill prefix on the first line."
(subst-char-in-region from to ?\n ?\ )
(if (and nosqueeze (not (eq justify 'full)))
nil
(canonically-space-region (or squeeze-after (point)) to)
(goto-char to)
(delete-horizontal-space)
(insert-and-inherit " "))
(canonically-space-region (or squeeze-after (point)) to))
(goto-char from))
(defun fill-move-to-break-point (linebeg)