Mercurial > emacs
changeset 50443:dff98b69fed2
(fill-delete-newlines): Don't delete past TO.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 04 Apr 2003 21:43:12 +0000 |
| parents | 885f63d7c285 |
| children | 2ca336b1259d |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)