From 5d944a8f7fa14eadecd9375ee88881036c1aea26 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 21 May 2010 00:49:49 +0300 Subject: [PATCH] * isearch.el (isearch-yank-string): Use isearch-process-search-string. (Bug#6223) --- lisp/ChangeLog | 5 +++++ lisp/isearch.el | 12 ++++-------- 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,3 +1,8 @@ +2010-05-20 Juri Linkov + + * isearch.el (isearch-yank-string): Use isearch-process-search-string. + (Bug#6223) + 2010-05-20 Juri Linkov * 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." -- 2.39.2