Mercurial > emacs

changeset 50437:1a4038cf9a79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-delete-newlines): Remove trailing whitespace.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 04 Apr 2003 20:56:10 +0000
parents 0538658c405e
children e71ddce32fec
files lisp/textmodes/fill.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)