(quail-start-translation): Call

this-single-command-raw-keys instead of this-single-command-keys.
(quail-start-conversion): Likewise.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 9f9cf9c4405e8f6d3547dde69fddcbc6a092bc1e..9d53822abc4f885dd52bd9a564981cfe0fbc5715 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -903,7 +903,7 @@ The returned value is a Quail map specific to KEY."
        (while quail-translating
          (let* ((echo-keystrokes 0)
                 (keyseq (read-key-sequence nil))
-                (events (this-single-command-keys))
+                (events (this-single-command-raw-keys))
                 (cmd (lookup-key translation-keymap keyseq)))
            (if (commandp cmd)
                (progn
@@ -951,7 +951,7 @@ The returned value is a Quail map specific to KEY."
                (quail-setup-overlays nil)))
          (let* ((echo-keystrokes 0)
                 (keyseq (read-key-sequence nil))
-                (events (this-single-command-keys))
+                (events (this-single-command-raw-keys))
                 (cmd (lookup-key conversion-keymap keyseq)))
            (if (commandp cmd)
                (progn