(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 --git a/lisp/international/isearch-x.el b/lisp/international/isearch-x.el
index 60736277b97c5f1ed49444a896cd63b133c2439a..aad6b6e745e913624654f14c7902fbae79ea295f 100644 (file)
--- a/lisp/international/isearch-x.el
+++ b/lisp/international/isearch-x.el
@@ -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))