Commit 5d944a8f authored by Juri Linkov's avatar Juri Linkov

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

(Bug#6223)
parent 2ee13033
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
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment