From: Juri Linkov <juri@jurta.org>
Date: Thu, 20 May 2010 21:49:49 +0000 (+0300)
Subject: * isearch.el (isearch-yank-string): Use isearch-process-search-string.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~205^2~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d944a8f7fa14eadecd9375ee88881036c1aea26;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b54d50d79fa..8ba93b3cebb 100644
--- 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 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."