[Emacs-diffs] /srv/bzr/emacs/trunk r101467: * lisp/obsolete/old-whitespace.el (whitespace-rescan-files-in-buffers):

[Stefan Monnier]

------------------------------------------------------------
revno: 101467
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2010-09-18 00:28:10 +0200
message:
  * lisp/obsolete/old-whitespace.el (whitespace-rescan-files-in-buffers):
  Use with-current-buffer.
modified:
  lisp/ChangeLog
  lisp/obsolete/old-whitespace.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-17 22:09:58 +0000
+++ b/lisp/ChangeLog    2010-09-17 22:28:10 +0000
@@ -1,5 +1,8 @@
 2010-09-17  Stefan Monnier  <address@hidden>
 
+       * obsolete/old-whitespace.el (whitespace-rescan-files-in-buffers):
+       Use with-current-buffer.
+
        * isearch.el (isearch-face): Rename from `isearch'.
        (isearch-highlight): Use new name.
 

=== modified file 'lisp/obsolete/old-whitespace.el'
--- a/lisp/obsolete/old-whitespace.el   2010-09-14 14:59:42 +0000
+++ b/lisp/obsolete/old-whitespace.el   2010-09-17 22:28:10 +0000
@@ -725,9 +725,8 @@
        (setq bufname (cadr thiselt))
        (setq buf (get-buffer bufname))
        (if (buffer-live-p buf)
-           (save-excursion
+           (with-current-buffer bufname
              ;;(message "buffer %s live" bufname)
-             (set-buffer bufname)
              (if whitespace-mode
                  (progn
                    ;;(message "checking for whitespace in %s" bufname)