# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1049492592 0
# Node ID dff98b69fed2f14d097ac846524a99556854a486
# Parent  885f63d7c285eedea504c96c3f1065d866a652bf
(fill-delete-newlines): Don't delete past TO.

diff -r 885f63d7c285 -r dff98b69fed2 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Apr 04 21:19:05 2003 +0000
+++ b/lisp/textmodes/fill.el	Fri Apr 04 21:43:12 2003 +0000
@@ -453,7 +453,7 @@
     (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 to) (delete-char (- (skip-chars-backward " \t"))))
   (goto-char from))
 
 (defun fill-move-to-break-point (linebeg)