(isearch-yank-char-in-minibuffer)

(isearch-other-meta-char): Use with-current-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc997431b41d38afeec85b15835949a0a3ec997f..f3af325ee8a65ebc556610f32937efa840efe6b2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/isearch.el b/lisp/isearch.el
index 9199039ec81a8b0503f65bb64860dbbd6202368a..c08c114f7d5d5022768debef2c93260e7abfe1f5 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -544,9 +544,9 @@ Each set is a vector of the form:
 (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 @@ or it might return the position of the end of the line."
   (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 @@ Isearch mode."
                      (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)