diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 9483170a0b6..bcf2b067704 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -639,8 +639,9 @@ buffer if the variable `delete-trailing-lines' is non-nil." | |||
| 639 | (while (re-search-forward "\\s-$" end-marker t) | 639 | (while (re-search-forward "\\s-$" end-marker t) |
| 640 | (skip-syntax-backward "-" (line-beginning-position)) | 640 | (skip-syntax-backward "-" (line-beginning-position)) |
| 641 | (let ((b (point)) (e (match-end 0))) | 641 | (let ((b (point)) (e (match-end 0))) |
| 642 | (when (region-modifiable-p b e) | 642 | (if (region-modifiable-p b e) |
| 643 | (delete-region b e))))) | 643 | (delete-region b e) |
| 644 | (goto-char e))))) | ||
| 644 | (if end | 645 | (if end |
| 645 | (set-marker end-marker nil) | 646 | (set-marker end-marker nil) |
| 646 | ;; Delete trailing empty lines. | 647 | ;; Delete trailing empty lines. |