From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 Jan 1998 01:42:20 +0000 (+0000)
Subject: (quail-show-kbd-layout): Bug fix for the
X-Git-Tag: emacs-20.3~2346
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9222bef23c81c5cc423af31574c3ec21bd9d449;p=emacs.git

(quail-show-kbd-layout): Bug fix for the
case that TRANSLATION is a cons.
---

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 69b968aed36..69b8982a7bd 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1869,7 +1869,7 @@ key		binding
 	    (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))))