# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1234417105 0
# Node ID 6f78ccd1040dbb2451549bc03c15efe85796ca38
# Parent  e2dc5f14229e0776d65011ae1d67dd5f7511d6b8
(isearch-yank-char-in-minibuffer)
(isearch-other-meta-char): Use with-current-buffer.

diff -r e2dc5f14229e -r 6f78ccd1040d lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Feb 12 05:34:26 2009 +0000
+++ b/lisp/ChangeLog	Thu Feb 12 05:38:25 2009 +0000
@@ -1,5 +1,8 @@
 2009-02-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* isearch.el (isearch-yank-char-in-minibuffer)
+	(isearch-other-meta-char): Use with-current-buffer.
+
 	* progmodes/verilog-mode.el (verilog-mode): Avoid circular use of
 	syntax-ppss.
 
diff -r e2dc5f14229e -r 6f78ccd1040d lisp/isearch.el
--- a/lisp/isearch.el	Thu Feb 12 05:34:26 2009 +0000
+++ b/lisp/isearch.el	Thu Feb 12 05:38:25 2009 +0000
@@ -544,9 +544,9 @@
 (defvar isearch-just-started nil)
 (defvar isearch-start-hscroll 0)	; hscroll when starting the search.
 
-; case-fold-search while searching.
-;   either nil, t, or 'yes.  'yes means the same as t except that mixed
-;   case in the search string is ignored.
+;; case-fold-search while searching.
+;;   either nil, t, or 'yes.  'yes means the same as t except that mixed
+;;   case in the search string is ignored.
 (defvar isearch-case-fold-search nil)
 
 (defvar isearch-last-case-fold-search nil)
@@ -1523,8 +1523,7 @@
   (interactive "p")
   (if (eobp)
       (insert
-       (save-excursion
-         (set-buffer (cadr (buffer-list)))
+       (with-current-buffer (cadr (buffer-list))
          (buffer-substring-no-properties
           (point) (progn (forward-char arg) (point)))))
     (forward-char arg)))
@@ -1949,8 +1948,7 @@
 		      (windowp window)
 		      (or (> (minibuffer-depth) 0)
 			  (not (window-minibuffer-p window))))
-		 (save-excursion
-		   (set-buffer (window-buffer window))
+		 (with-current-buffer (window-buffer window)
 		   (isearch-done)
 		   (isearch-clean-overlays))
 	       (isearch-done)