Mercurial > emacs
changeset 101959:6f78ccd1040d
(isearch-yank-char-in-minibuffer)
(isearch-other-meta-char): Use with-current-buffer.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 12 Feb 2009 05:38:25 +0000 |
| parents | e2dc5f14229e |
| children | 6f4559bfd1b6 |
| files | lisp/ChangeLog lisp/isearch.el |
| diffstat | 2 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)