changeset 58912:f0538bd79bc1

(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.
author Juri Linkov <juri@jurta.org>
date Sun, 12 Dec 2004 21:57:28 +0000
parents 50c8d5bb29a0
children 0b183affb969
files lisp/international/isearch-x.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))