[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#6223: isearch-yank-string should use isearch-process-string
From: |
Juri Linkov |
Subject: |
bug#6223: isearch-yank-string should use isearch-process-string |
Date: |
Thu, 20 May 2010 03:16:01 +0300 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (x86_64-pc-linux-gnu) |
> to be consistent IMO.
Thanks for the suggestion. I see no problem with this change:
=== modified file 'lisp/isearch.el'
--- lisp/isearch.el 2010-04-16 01:30:37 +0000
+++ lisp/isearch.el 2010-05-20 00:14:58 +0000
@@ -1476,14 +1476,10 @@ (defun isearch-yank-string (string)
(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."
--
Juri Linkov
http://www.jurta.org/emacs/