comparison lisp/international/quail.el @ 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 c3360a392ae4
children ca3bd6ec875d
comparison
equal deleted inserted replaced
20727:480d3121ae14 20728:a47662abcc23
1867 (translation (and map (quail-get-translation 1867 (translation (and map (quail-get-translation
1868 (car map) (char-to-string ch) 1)))) 1868 (car map) (char-to-string ch) 1))))
1869 (if (integerp translation) 1869 (if (integerp translation)
1870 (insert translation) 1870 (insert translation)
1871 (if (consp translation) 1871 (if (consp translation)
1872 (insert (aref (cdr translation) (car translation))) 1872 (insert (aref (cdr translation) (car (car translation))))
1873 (let ((last-command-event ch)) 1873 (let ((last-command-event ch))
1874 (self-insert-command 1))))))) 1874 (self-insert-command 1)))))))
1875 (setq i (1+ i)))) 1875 (setq i (1+ i))))
1876 (newline)) 1876 (newline))
1877 1877