# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 868517202 0
# Node ID 7366898bee9e6fbc41c0dc708b34ebb36638c3d7
# Parent  46c1ad5f61e036d8a70fc9bb058eb800d76bb874
(read-multilingual-string): Adjusted
for the previous change of variables related to input methods.

diff -r 46c1ad5f61e0 -r 7366898bee9e lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Jul 10 06:44:55 1997 +0000
+++ b/lisp/international/mule-cmds.el	Thu Jul 10 06:46:42 1997 +0000
@@ -495,11 +495,14 @@
 initially.
 Optional 3rd argument INPUT-METHOD specifies the input method
 to be activated instead of the one selected last time."
-  (let ((default-input-method
-	  (or input-method
-	      default-input-method
-	      (read-input-method-name "Input method: " nil t))))
-    (let ((minibuffer-setup-hook '(toggle-input-method)))
+  (setq input-method
+	(or input-method
+	    default-input-method
+	    (read-input-method-name "Input method: " nil t)))
+  (save-excursion
+    (set-buffer (window-buffer (minibuffer-window)))
+    (let ((default-input-method input-method)
+	  (minibuffer-setup-hook '(toggle-input-method)))
       (read-string prompt initial-input))))
 
 ;; Variables to control behavior of input methods.  All input methods