mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

* lisp/simple.el (delete-trailing-whitespace): Also delete

Browse source 
extra newlines at the end of the buffer.
This commit is contained in:
Peter J. Weisberg 2011-09-23 10:56:00 -04:00 • committed by Stefan Monnier
parent eca3f3ea3a
commit d68e189a96
2 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2011-09-23 Peter J. Weisberg <pj@irregularexpressions.net>
* simple.el (delete-trailing-whitespace): Also delete
extra newlines at the end of the buffer.
* textmodes/picture.el: Make motion commands obey shift-select-mode.
(picture-newline): Use forward-line so as to ignore fields.

6
lisp/simple.el
View file

@ -586,6 +586,12 @@ If the region is active, only delete whitespace within the region."
(if (looking-at ".*\f")
(goto-char (match-end 0))))
(delete-region (point) (match-end 0)))
(save-restriction
(goto-char end-marker)
(widen)
(if (and (eobp)
(looking-back "\n\n+" nil t))
(replace-match "\n")))
(set-marker end-marker nil))))
;; Return nil for the benefit of `write-file-functions'.
nil)