[Emacs-diffs] /srv/bzr/emacs/trunk r110275: Minor code tweak for delete-trailing-whitespace.

[Chong Yidong]

------------------------------------------------------------
revno: 110275
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2012-09-30 16:41:37 +0800
message:
  Minor code tweak for delete-trailing-whitespace.
  
  * lisp/simple.el (delete-trailing-whitespace): Avoid an unnecessary
  restriction change.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-30 08:35:11 +0000
+++ b/lisp/ChangeLog    2012-09-30 08:41:37 +0000
@@ -1,5 +1,8 @@
 2012-09-30  Chong Yidong  <address@hidden>
 
+       * simple.el (delete-trailing-whitespace): Avoid an unnecessary
+       restriction change.
+
        * bindings.el (goto-map): Bind M-g TAB to move-to-column.
 
        * help-fns.el (help-fns--obsolete): Fix last change.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2012-09-25 04:13:02 +0000
+++ b/lisp/simple.el    2012-09-30 08:41:37 +0000
@@ -606,7 +606,7 @@
         (when (and (not end)
                   delete-trailing-lines
                    ;; Really the end of buffer.
-                   (save-restriction (widen) (eobp))
+                  (= (point-max) (1+ (buffer-size)))
                    (<= (skip-chars-backward "\n") -2))
           (delete-region (1+ (point)) end-marker))
         (set-marker end-marker nil))))