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

(Bug#6223)

2 files changed, 9 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b54d50d79fa..8ba93b3cebb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 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
         FILE-NAME to read from the minibuffer when called interactively
         with prefix argument instead of using buffer-file-name.
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 64cb66bdab5..22b20a4c4a9 100644
--- 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."