# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 901172548 0
# Node ID 441f052f49f7b4a10cdd31de4117919eddcbe78f
# Parent  e71025b5e000b69853b897ed09e490976eeff7e3
(quail-start-translation): Use
this-single-command-keys to get raw events instead of
listify-key-sequence
(quail-start-conversion): Likewise.

diff -r e71025b5e000 -r 441f052f49f7 lisp/international/quail.el
--- a/lisp/international/quail.el	Wed Jul 22 19:02:16 1998 +0000
+++ b/lisp/international/quail.el	Thu Jul 23 05:42:28 1998 +0000
@@ -903,11 +903,11 @@
 	(while quail-translating
 	  (let* ((echo-keystrokes 0)
 		 (keyseq (read-key-sequence nil))
-		 (events (listify-key-sequence keyseq))
+		 (events (this-single-command-keys))
 		 (cmd (lookup-key translation-keymap keyseq)))
 	    (if (commandp cmd)
 		(progn
-		  (setq last-command-event (car (last events))
+		  (setq last-command-event (aref events (1- (length events)))
 			last-command this-command
 			this-command cmd)
 		  (condition-case err
@@ -915,7 +915,7 @@
 		    (quail-error (message "%s" (cdr err)) (beep))))
 	      ;; KEYSEQ is not defined in the translation keymap.
 	      ;; Let's return the event(s) to the caller.
-	      (setq generated-events events
+	      (setq generated-events (string-to-list events)
 		    quail-translating nil))))
 	(if (overlay-start quail-overlay)
 	    (setq generated-events
@@ -951,11 +951,11 @@
 		(quail-setup-overlays nil)))
 	  (let* ((echo-keystrokes 0)
 		 (keyseq (read-key-sequence nil))
-		 (events (listify-key-sequence keyseq))
+		 (events (this-single-command-keys))
 		 (cmd (lookup-key conversion-keymap keyseq)))
 	    (if (commandp cmd)
 		(progn
-		  (setq last-command-event (car (last events))
+		  (setq last-command-event (aref events (1- (length events)))
 			last-command this-command
 			this-command cmd)
 		  (condition-case err
@@ -963,7 +963,7 @@
 		    (quail-error (message "%s" (cdr err)) (beep))))
 	      ;; KEYSEQ is not defined in the conversion keymap.
 	      ;; Let's return the event(s) to the caller.
-	      (setq generated-events events
+	      (setq generated-events (string-to-list events)
 		    quail-converting nil))))
 	(if (overlay-start quail-conv-overlay)
 	    (setq generated-events