# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1284762490 -7200
# Node ID c848ff4a679b8e2bc0b0efab844a12375654ce98
# Parent  1b38d71f516b0e7118d0dae8e109f5102ee38615
* lisp/obsolete/old-whitespace.el (whitespace-rescan-files-in-buffers):
Use with-current-buffer.

diff -r 1b38d71f516b -r c848ff4a679b lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Sep 18 00:09:58 2010 +0200
+++ b/lisp/ChangeLog	Sat Sep 18 00:28:10 2010 +0200
@@ -1,5 +1,8 @@
 2010-09-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* 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.
 
diff -r 1b38d71f516b -r c848ff4a679b lisp/obsolete/old-whitespace.el
--- a/lisp/obsolete/old-whitespace.el	Sat Sep 18 00:09:58 2010 +0200
+++ b/lisp/obsolete/old-whitespace.el	Sat Sep 18 00:28:10 2010 +0200
@@ -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)