# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1049489770 0
# Node ID 1a4038cf9a7957a05196bdd98561ffa9d135ee17
# Parent  0538658c405eaea6770058ff865cda892455e159
(fill-delete-newlines): Remove trailing whitespace.

diff -r 0538658c405e -r 1a4038cf9a79 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Apr 04 20:02:58 2003 +0000
+++ b/lisp/textmodes/fill.el	Fri Apr 04 20:56:10 2003 +0000
@@ -450,7 +450,10 @@
   (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)