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

benefit of `write-file-functions'.

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da61e7025a..760224f601 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-10  Michael Albinus  <[email protected]>
+
+	* simple.el (delete-trailing-whitespace): Return nil for the
+	benefit of `write-file-functions'.
+
 2011-03-10  Glenn Morris  <[email protected]>
 
 	* 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 653501625b..7391ff8258 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.