changeset 22778:42258900078d

(read-multilingual-string): Don't activate an input method in the current buffer, but just bind current-input-method.
author Kenichi Handa <handa@m17n.org>
date Sun, 19 Jul 1998 05:17:35 +0000
parents 1b0761cbc15b
children 9c3f4ae0d7ed
files lisp/international/mule-cmds.el
diffstat 1 files changed, 2 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Sun Jul 19 05:17:35 1998 +0000
+++ b/lisp/international/mule-cmds.el	Sun Jul 19 05:17:35 1998 +0000
@@ -764,14 +764,8 @@
 	    (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.