Mercurial > emacs

diff lisp/isearch.el @ 108717:b86650f513a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 b97c55098dcc
children 27118d0de280
line wrap: on
line diff
--- 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."