(fill-delete-newlines): Remove trailing whitespace.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index cce52b0d60bf6044d0da78247e4651d1540ce7cd..4f49fcd0a7cc6581989cd4f5cc46fe404eb1a6b1 100644 (file)
--- 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)