mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* simple.el (delete-trailing-whitespace): Return nil for the

Browse source 
benefit of `write-file-functions'.
This commit is contained in:
Michael Albinus 2011-03-10 12:28:33 +01:00
parent 5ceaac0c61
commit f346fd6b40
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-03-10 Michael Albinus <michael.albinus@gmx.de>
* simple.el (delete-trailing-whitespace): Return nil for the
benefit of `write-file-functions'.
2011-03-10 Glenn Morris <rgm@gnu.org>
* vc/vc-hg.el (vc-hg-pull, vc-hg-merge-branch): Use vc-hg-program.

4
lisp/simple.el
View file

@ -637,7 +637,9 @@ 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)))
(set-marker end-marker nil)))))
(set-marker end-marker nil))))
;; Return nil for the benefit of `write-file-functions'.
nil)
(defun newline-and-indent ()
"Insert a newline, then indent according to major mode.