From f346fd6b406b8c2db3f747a23b49ba1221c2aeaf Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 10 Mar 2011 12:28:33 +0100 Subject: [PATCH] * simple.el (delete-trailing-whitespace): Return nil for the benefit of `write-file-functions'. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da61e7025ad..760224f601c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-03-10 Michael Albinus + + * simple.el (delete-trailing-whitespace): Return nil for the + benefit of `write-file-functions'. + 2011-03-10 Glenn Morris * vc/vc-hg.el (vc-hg-pull, vc-hg-merge-branch): Use vc-hg-program. diff --git a/lisp/simple.el b/lisp/simple.el index 653501625b5..7391ff82585 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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. -- 2.39.5