changeset 20728:a47662abcc23

(quail-show-kbd-layout): Bug fix for the case that TRANSLATION is a cons.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:42:20 +0000
parents 480d3121ae14
children 821b2167b6c3
files lisp/international/quail.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))