Mercurial > emacs
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 |