diff options
| author | Juri Linkov <juri@jurta.org> | 2010-05-21 00:49:49 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2010-05-21 00:49:49 +0300 |
| commit | 5d944a8f7fa14eadecd9375ee88881036c1aea26 (patch) | |
| tree | 10139df1b0ffb1cd26da0e416f0c3d40561dd204 /lisp/isearch.el | |
| parent | 2ee13033a8a600e53b86004fad293c8819412131 (diff) | |
| download | emacs-5d944a8f7fa14eadecd9375ee88881036c1aea26.tar.gz | |
* isearch.el (isearch-yank-string): Use isearch-process-search-string.
(Bug#6223)
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 12 |
1 files changed, 4 insertions, 8 deletions
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." |