* isearch.el (isearch-yank-string): Use isearch-process-search-string.

(Bug#6223)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b54d50d..8ba93b3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 64cb66b..22b20a4 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1476,14 +1476,10 @@ If search string is empty, just beep."
           (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."