From 51153542a55ec24051ee1841712a26cee8b8e940 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 4 Apr 2003 20:56:10 +0000 Subject: [PATCH] (fill-delete-newlines): Remove trailing whitespace. --- lisp/textmodes/fill.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index cce52b0d60b..4f49fcd0a7c 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -450,7 +450,10 @@ 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)) + (canonically-space-region (or squeeze-after (point)) to) + ;; Remove trailing whitespace. + ;; Maybe canonically-space-region should do that. + (goto-char to) (delete-horizontal-space)) (goto-char from)) (defun fill-move-to-break-point (linebeg) -- 2.39.2