# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1049326836 0
# Node ID 97b1943f76b54a8196b2a87330ac6277bbb9bd9b
# Parent  329ac267f1fcc0c20eef13e1e472fd8bf3d3f5b6
(fill-delete-newlines): Don't add a trailing space.

diff -r 329ac267f1fc -r 97b1943f76b5 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Wed Apr 02 23:04:09 2003 +0000
+++ b/lisp/textmodes/fill.el	Wed Apr 02 23:40:36 2003 +0000
@@ -450,10 +450,7 @@
   (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)