# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 902730542 0
# Node ID 26d07a757c5574bead299dd968163d2298e08c66
# Parent  7a010b8c0d9969066aa78e673f1fa80a2f9d6d0e
(quail-start-translation): If
enable-multibyte-characters is nil, convert multibyte character to
unibyte.
(quail-start-conversion): Likewise.

diff -r 7a010b8c0d99 -r 26d07a757c55 lisp/international/quail.el
--- a/lisp/international/quail.el	Mon Aug 10 06:29:02 1998 +0000
+++ b/lisp/international/quail.el	Mon Aug 10 06:29:02 1998 +0000
@@ -948,10 +948,11 @@
 	(quail-delete-region)
 	(if (and quail-current-str (> (length quail-current-str) 0))
 	    (setq generated-events
-		  (if (stringp quail-current-str)
-		      (append (string-to-list quail-current-str)
-			      generated-events)
-		    (cons quail-current-str generated-events))))
+		  (append (string-to-list
+			   (if enable-multibyte-characters
+			       quail-current-str
+			     (string-make-unibyte quail-current-str)))
+			  generated-events)))
 	(if (and input-method-exit-on-first-char generated-events)
 	    (list (car generated-events))
 	  generated-events))
@@ -1023,7 +1024,10 @@
 			   (overlay-end quail-conv-overlay)))
 	(if (> (length quail-conversion-str) 0)
 	    (setq generated-events
-		  (append (string-to-list quail-conversion-str)
+		  (append (string-to-list
+			   (if enable-multibyte-characters
+			       quail-conversion-str
+			     (string-make-unibyte quail-conversion-str)))
 			  generated-events)))
 	(if (and input-method-exit-on-first-char generated-events)
 	    (list (car generated-events))