[Emacs-diffs] /srv/bzr/emacs/trunk r103617: * simple.el (delete-trailing-whitespace): Return nil for the

[Michael Albinus]

------------------------------------------------------------
revno: 103617
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Thu 2011-03-10 12:28:33 +0100
message:
  * simple.el (delete-trailing-whitespace): Return nil for the
  benefit of `write-file-functions'.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-10 08:32:27 +0000
+++ b/lisp/ChangeLog    2011-03-10 11:28:33 +0000
@@ -1,3 +1,8 @@
+2011-03-10  Michael Albinus  <address@hidden>
+
+       * simple.el (delete-trailing-whitespace): Return nil for the
+       benefit of `write-file-functions'.
+
 2011-03-10  Glenn Morris  <address@hidden>
 
        * vc/vc-hg.el (vc-hg-pull, vc-hg-merge-branch): Use vc-hg-program.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2011-03-08 12:58:40 +0000
+++ b/lisp/simple.el    2011-03-10 11:28:33 +0000
@@ -637,7 +637,9 @@
             (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.