# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 885433340 0
# Node ID a47662abcc23e529041da911eaaf0e8052892d58
# Parent  480d3121ae142131ce4c6384d126eb7aa506e07f
(quail-show-kbd-layout): Bug fix for the
case that TRANSLATION is a cons.

diff -r 480d3121ae14 -r a47662abcc23 lisp/international/quail.el
--- a/lisp/international/quail.el	Thu Jan 22 01:41:59 1998 +0000
+++ b/lisp/international/quail.el	Thu Jan 22 01:42:20 1998 +0000
@@ -1869,7 +1869,7 @@
 	    (if (integerp translation)
 		(insert translation)
 	      (if (consp translation)
-		  (insert (aref (cdr translation) (car translation)))
+		  (insert (aref (cdr translation) (car (car translation))))
 		(let ((last-command-event ch))
 		  (self-insert-command 1)))))))
       (setq i (1+ i))))