[Emacs-diffs] emacs/lisp ChangeLog isearch.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/02/12 05:38:27

Modified files:
        lisp           : ChangeLog isearch.el 

Log message:
        (isearch-yank-char-in-minibuffer)
        (isearch-other-meta-char): Use with-current-buffer.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15308&r2=1.15309
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/isearch.el?cvsroot=emacs&r1=1.343&r2=1.344

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15308
retrieving revision 1.15309
diff -u -b -r1.15308 -r1.15309
--- ChangeLog   12 Feb 2009 05:34:26 -0000      1.15308
+++ ChangeLog   12 Feb 2009 05:38:25 -0000      1.15309
@@ -1,5 +1,8 @@
 2009-02-12  Stefan Monnier  <address@hidden>
 
+       * 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.
 

Index: isearch.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/isearch.el,v
retrieving revision 1.343
retrieving revision 1.344
diff -u -b -r1.343 -r1.344
--- isearch.el  9 Jan 2009 04:44:20 -0000       1.343
+++ isearch.el  12 Feb 2009 05:38:27 -0000      1.344
@@ -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)