mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* simple.el (delete-trailing-whitespace): Fix last change.

Browse Source
This commit is contained in:
Stefan Monnier 2011-09-28 16:50:16 -04:00
parent e1504b9b0b
commit 88d9610cae
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2011-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
* simple.el (delete-trailing-whitespace): Fix last change.
* progmodes/perl-mode.el (perl-syntax-propertize-function):
Don't confuse "y => 3" as the beginning of a `y' operation.

4
lisp/simple.el
View File

@ -589,9 +589,9 @@ If the region is active, only delete whitespace within the region."
;; Delete trailing empty lines.
(goto-char end-marker)
(when (and (not end)
(<= (skip-chars-backward "\n") -2)
;; Really the end of buffer.
(save-restriction (widen) (eobp)))
(save-restriction (widen) (eobp))
(<= (skip-chars-backward "\n") -2))
(delete-region (1+ (point)) end-marker))
(set-marker end-marker nil))))
;; Return nil for the benefit of `write-file-functions'.