# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 961376180 0
# Node ID bec7534ceb14bfa6bc15a8c0378799d10a579f5e
# Parent  2cb35236067915a510a4a26e6bfe1b383a57bb29
(isearch-minibuffer-input-method)
(isearch-minibuffer-input-method-function): These variables
deleted.
(isearch-with-input-method): Don't use the above variables.
(isearch-process-search-multibyte-characters): Likewise.  Call
read-string with the arg INHERIT-INPUT-METHOD t.

diff -r 2cb352360679 -r bec7534ceb14 lisp/international/isearch-x.el
--- a/lisp/international/isearch-x.el	Mon Jun 19 00:53:55 2000 +0000
+++ b/lisp/international/isearch-x.el	Mon Jun 19 00:56:20 2000 +0000
@@ -56,15 +56,6 @@
     map)
   "Keymap to use in minibuffer for multibyte character inputting in isearch.")
 
-
-;; These two variables are used to refer to the values of
-;; `current-input-method' and `input-method-function' of the original
-;; buffer in the function isearch-with-input-method which runs in a
-;; minibuffer.
-
-(defvar isearch-minibuffer-input-method nil)
-(defvar isearch-minibuffer-input-method-function nil)
-
 ;; Exit from recursive edit safely.  Set in `after-change-functions'
 ;; by isearch-with-keyboard-coding.
 (defun isearch-exit-recursive-edit ()
@@ -86,8 +77,7 @@
 
 (defun isearch-with-input-method ()
   (interactive)
-  (let* ((current-input-method isearch-minibuffer-input-method)
-	 (events (funcall isearch-minibuffer-input-method-function nil)))
+  (let ((events (funcall input-method-function nil)))
     ;; EVENTS is a list of events the input method has generated.  It
     ;; contains a character event and/or the special event
     ;; `compose-last-chars'.  We extract only character events and
@@ -106,20 +96,19 @@
 	    str)
 	(if isearch-input-method-function
 	    (let (;; Let input method work rather tersely.
-		  (input-method-verbose-flag nil)
-		  (isearch-minibuffer-input-method current-input-method)
-		  (isearch-minibuffer-input-method-function
-		   isearch-input-method-function))
+		  (input-method-verbose-flag nil))
 	      (setq unread-command-events
 		    (cons 'with-input-method
 			  (cons last-char unread-command-events))
-		    str (read-string prompt))
+		    ;; Inherit current-input-method in a minibuffer.
+		    str (read-string prompt nil nil nil t))
 	      (if (not str)
 		  ;; All inputs were deleted while the input method
 		  ;; was working.
 		  (setq str "")
 		(if (and (= (length str) 1)
-			 (= (aref str 0) last-char))
+			 (= (aref str 0) last-char)
+			 (>= last-char 128))
 		    ;; The input method couldn't handle LAST-CHAR.
 		    (setq str nil)))))