changeset 110402:c848ff4a679b

* lisp/obsolete/old-whitespace.el (whitespace-rescan-files-in-buffers): Use with-current-buffer.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 18 Sep 2010 00:28:10 +0200
parents 1b38d71f516b
children 14dab55b2888
files lisp/ChangeLog lisp/obsolete/old-whitespace.el
diffstat 2 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.
 
--- 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)