diff options
| author | Stefan Monnier | 2003-04-04 21:43:12 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-04-04 21:43:12 +0000 |
| commit | 05670fa88b877cfceb2e00b4dbfac66c9237872e (patch) | |
| tree | 81bfaf559ba3cece4989499d86f9d6a713dec70d | |
| parent | 415c9319bab43b0a27e268bb884c67b5b2737c21 (diff) | |
| download | emacs-05670fa88b877cfceb2e00b4dbfac66c9237872e.tar.gz emacs-05670fa88b877cfceb2e00b4dbfac66c9237872e.zip | |
(fill-delete-newlines): Don't delete past TO.
| -rw-r--r-- | lisp/textmodes/fill.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 453 | (canonically-space-region (or squeeze-after (point)) to) | 453 | (canonically-space-region (or squeeze-after (point)) to) |
| 454 | ;; Remove trailing whitespace. | 454 | ;; Remove trailing whitespace. |
| 455 | ;; Maybe canonically-space-region should do that. | 455 | ;; Maybe canonically-space-region should do that. |
| 456 | (goto-char to) (delete-horizontal-space)) | 456 | (goto-char to) (delete-char (- (skip-chars-backward " \t")))) |
| 457 | (goto-char from)) | 457 | (goto-char from)) |
| 458 | 458 | ||
| 459 | (defun fill-move-to-break-point (linebeg) | 459 | (defun fill-move-to-break-point (linebeg) |