[Emacs-diffs] /srv/bzr/emacs/trunk r105952: * simple.el (delete-trailing-whitespace): Fix last change.

[Stefan Monnier]

------------------------------------------------------------
revno: 105952
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2011-09-28 16:50:16 -0400
message:
  * simple.el (delete-trailing-whitespace): Fix last change.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-28 02:19:56 +0000
+++ b/lisp/ChangeLog    2011-09-28 20:50:16 +0000
@@ -1,5 +1,7 @@
 2011-09-28  Stefan Monnier  <address@hidden>
 
+       * simple.el (delete-trailing-whitespace): Fix last change.
+
        * progmodes/perl-mode.el (perl-syntax-propertize-function):
        Don't confuse "y => 3" as the beginning of a `y' operation.
 

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2011-09-23 15:06:14 +0000
+++ b/lisp/simple.el    2011-09-28 20:50:16 +0000
@@ -589,9 +589,9 @@
         ;; Delete trailing empty lines.
         (goto-char end-marker)
         (when (and (not end)
-                   (<= (skip-chars-backward "\n") -2)
                    ;; Really the end of buffer.
-                   (save-restriction (widen) (eobp)))
+                   (save-restriction (widen) (eobp))
+                   (<= (skip-chars-backward "\n") -2))
           (delete-region (1+ (point)) end-marker))
         (set-marker end-marker nil))))
   ;; Return nil for the benefit of `write-file-functions'.