# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1036625770 0
# Node ID a3de797dd9f6086ca50134770c3e329f1b2c14ec
# Parent  06be0e8df0680ff0586455d66b34546a4eaff777
(quail-input-string-to-events): Use
keyboard-translate-table, not translation-table-for-input.

diff -r 06be0e8df068 -r a3de797dd9f6 lisp/international/quail.el
--- a/lisp/international/quail.el	Wed Nov 06 23:34:58 2002 +0000
+++ b/lisp/international/quail.el	Wed Nov 06 23:36:10 2002 +0000
@@ -1279,9 +1279,11 @@
   (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))