(read-multilingual-string): Don't

activate an input method in the current buffer, but just bind
current-input-method.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index c06f9e35c54d5da81efbc646515908fb4114be3b..5352fb02f24bde2f0bff1f20f2ff0e68ddbfa103 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -764,14 +764,8 @@ or a string."
            (read-input-method-name "Input method: " nil t)))
   (if (and input-method (symbolp input-method))
       (setq input-method (symbol-name input-method)))
-  (let ((previous-input-method current-input-method))
-    (unwind-protect
-       (progn
-         (activate-input-method input-method)
-         (read-string prompt initial-input nil nil t))
-      (if previous-input-method
-         (activate-input-method previous-input-method)
-       (inactivate-input-method)))))
+  (let ((current-input-method input-method))
+    (read-string prompt initial-input nil nil t)))
 
 ;; Variables to control behavior of input methods.  All input methods
 ;; should react to these variables.