From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 4 Apr 2003 21:43:12 +0000 (+0000)
Subject: (fill-delete-newlines): Don't delete past TO.
X-Git-Tag: ttn-vms-21-2-B4~10637
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05670fa88b877cfceb2e00b4dbfac66c9237872e;p=emacs.git

(fill-delete-newlines): Don't delete past TO.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 4c70c40cd43..4faa89ae724 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -453,7 +453,7 @@ Point is moved to just past the fill prefix on the first line."
     (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)