changeset 50409:97b1943f76b5

(fill-delete-newlines): Don't add a trailing space.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 02 Apr 2003 23:40:36 +0000
parents 329ac267f1fc
children fff8e0eb547c
files lisp/textmodes/fill.el
diffstat 1 files changed, 1 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)