[Emacs-diffs] /srv/bzr/emacs/trunk r100384: * isearch.el (isearch-yank-string): Use isearch-process-search-string.

[Juri Linkov]

------------------------------------------------------------
revno: 100384
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Fri 2010-05-21 00:49:49 +0300
message:
  * isearch.el (isearch-yank-string): Use isearch-process-search-string.
  (Bug#6223)
modified:
  lisp/ChangeLog
  lisp/isearch.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-05-20 21:33:58 +0000
+++ b/lisp/ChangeLog    2010-05-20 21:49:49 +0000
@@ -1,5 +1,10 @@
 2010-05-20  Juri Linkov  <address@hidden>
 
+       * isearch.el (isearch-yank-string): Use isearch-process-search-string.
+       (Bug#6223)
+
+2010-05-20  Juri Linkov  <address@hidden>
+
        * 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.

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2010-04-16 01:24:00 +0000
+++ b/lisp/isearch.el   2010-05-20 21:49:49 +0000
@@ -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."