procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(Bug#6223)
This commit is contained in:
Juri Linkov 2010-05-21 00:49:49 +03:00
parent 2ee13033a8
commit 5d944a8f7f
2 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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

12
lisp/isearch.el
View file

@ -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."