# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1102888648 0
# Node ID f0538bd79bc1db2ae1919525720d1006b7cc4833
# Parent  50c8d5bb29a0009761b3b22f5dc4b728dd2b1063
(isearch-process-search-multibyte-characters):
Use `isearch-message' as initial input for `read-string' instead
of adding it to the minibuffer prompt.  After reading a string
remove the initial value of `isearch-message' from the string.

diff -r 50c8d5bb29a0 -r f0538bd79bc1 lisp/international/isearch-x.el
--- a/lisp/international/isearch-x.el	Sun Dec 12 21:53:14 2004 +0000
+++ b/lisp/international/isearch-x.el	Sun Dec 12 21:57:28 2004 +0000
@@ -97,7 +97,7 @@
 (defun isearch-process-search-multibyte-characters (last-char)
   (if (eq this-command 'isearch-printing-char)
       (let ((overriding-terminal-local-map nil)
-	    (prompt (concat (isearch-message-prefix) isearch-message))
+	    (prompt (concat (isearch-message-prefix)))
 	    (minibuffer-local-map isearch-minibuffer-local-map)
 	    str)
 	(if isearch-input-method-function
@@ -107,11 +107,12 @@
 		    (cons 'with-input-method
 			  (cons last-char unread-command-events))
 		    ;; Inherit current-input-method in a minibuffer.
-		    str (read-string prompt nil nil nil t))
+		    str (read-string prompt isearch-message nil nil t))
 	      (if (not str)
 		  ;; All inputs were deleted while the input method
 		  ;; was working.
 		  (setq str "")
+		(setq str (substring str (length isearch-message)))
 		(if (and (= (length str) 1)
 			 (= (aref str 0) last-char)
 			 (>= last-char 128))