unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* 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

* bug#6223: isearch-yank-string should use isearch-process-string
  2010-05-20  0:16 ` Juri Linkov
@ 2010-05-20 21:52   ` Juri Linkov
  0 siblings, 0 replies; 3+ messages in thread
From: Juri Linkov @ 2010-05-20 21:52 UTC (permalink / raw)
  To: Lennart Borgman; +Cc: 6223-done

Patch installed.

-- 
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).