Mercurial > emacs
changeset 108717:b86650f513a8
* isearch.el (isearch-yank-string): Use isearch-process-search-string.
(Bug#6223)
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 21 May 2010 00:49:49 +0300 |
| parents | bd3afd9376c5 |
| children | 27118d0de280 |
| files | lisp/ChangeLog lisp/isearch.el |
| diffstat | 2 files changed, 9 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri May 21 00:38:59 2010 +0300 +++ b/lisp/ChangeLog Fri May 21 00:49:49 2010 +0300 @@ -1,3 +1,8 @@ +2010-05-20 Juri Linkov <juri@jurta.org> + + * isearch.el (isearch-yank-string): Use isearch-process-search-string. + (Bug#6223) + 2010-05-20 Juri Linkov <juri@jurta.org> * dired-x.el (dired-jump, dired-jump-other-window): Add arg
--- a/lisp/isearch.el Fri May 21 00:38:59 2010 +0300 +++ b/lisp/isearch.el Fri May 21 00:49:49 2010 +0300 @@ -1476,14 +1476,10 @@ (eq 'not-yanks search-upper-case)) (setq string (downcase string))) (if isearch-regexp (setq string (regexp-quote string))) - (setq isearch-string (concat isearch-string string) - isearch-message - (concat isearch-message - (mapconcat 'isearch-text-char-description - string "")) - ;; Don't move cursor in reverse search. - isearch-yank-flag t) - (isearch-search-and-update)) + ;; Don't move cursor in reverse search. + (setq isearch-yank-flag t) + (isearch-process-search-string + string (mapconcat 'isearch-text-char-description string ""))) (defun isearch-yank-kill () "Pull string from kill ring into search string."