* bug#6223: isearch-yank-string should use isearch-process-string
@ 2010-05-19 23:38 Lennart Borgman
2010-05-20 0:16 ` Juri Linkov
0 siblings, 1 reply; 3+ messages in thread
From: Lennart Borgman @ 2010-05-19 23:38 UTC (permalink / raw)
To: 6223
to be consistent IMO.
^ permalink raw reply [flat|nested] 3+ messages in thread
* bug#6223: isearch-yank-string should use isearch-process-string
2010-05-19 23:38 bug#6223: isearch-yank-string should use isearch-process-string Lennart Borgman
@ 2010-05-20 0:16 ` Juri Linkov
2010-05-20 21:52 ` Juri Linkov
0 siblings, 1 reply; 3+ messages in thread
From: Juri Linkov @ 2010-05-20 0:16 UTC (permalink / raw)
To: Lennart Borgman; +Cc: 6223
> 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/
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2010-05-20 21:52 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-05-19 23:38 bug#6223: isearch-yank-string should use isearch-process-string Lennart Borgman
2010-05-20 0:16 ` Juri Linkov
2010-05-20 21:52 ` Juri Linkov
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).