(read-multilingual-string): Adjusted

for the previous change of variables related to input methods.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 2b6b968954cb20cab33c7824ba6326b7013aa4bb..3291f49e72df9c57a715a4e9920958d117850663 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -495,11 +495,14 @@ If optional second arg INITIAL-INPUT is non-nil, insert it in the minibuffer
 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