From: Stefan Monnier Date: Thu, 12 Feb 2009 05:38:25 +0000 (+0000) Subject: (isearch-yank-char-in-minibuffer) X-Git-Tag: emacs-pretest-23.0.91~277 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00c4240510a32dad1a170381d30d4303272af8ed;p=emacs.git (isearch-yank-char-in-minibuffer) (isearch-other-meta-char): Use with-current-buffer. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cc997431b41..f3af325ee8a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-02-12 Stefan Monnier + * 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 9199039ec81..c08c114f7d5 100644 --- 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)