1 files changed, 5 insertions, 3 deletions

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index c4fcb1da6c4..8913195fcf1 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1279,9 +1279,11 @@ Do so while interleaving with the following special events:
   (let* ((events (mapcar
                   (lambda (c)
                     ;; This gives us the chance to unify on input
-                    ;; (e.g. using ucs-tables.el).
-                    (or (and translation-table-for-input
-                             (aref translation-table-for-input c))
+                    ;; (e.g. using ucs-tables.el).  Fixme: The result
+                    ;; of Quail input doesn't currently go through
+                    ;; `keyboard-translate-table'.
+                    (or (and (char-table-p keyboard-translate-table)
+                             (aref keyboard-translate-table c))
                         c))
                   str))
          (len (length str))