diff options
| author | Kenichi Handa | 1998-01-22 01:42:20 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-01-22 01:42:20 +0000 |
| commit | f9222bef23c81c5cc423af31574c3ec21bd9d449 (patch) | |
| tree | 7974adb649f4869bd6668a6f1701fe0196489939 | |
| parent | 5e7e990e1a0d66738d67d5131b8201afd642486a (diff) | |
| download | emacs-f9222bef23c81c5cc423af31574c3ec21bd9d449.tar.gz emacs-f9222bef23c81c5cc423af31574c3ec21bd9d449.zip | |
(quail-show-kbd-layout): Bug fix for the
case that TRANSLATION is a cons.
| -rw-r--r-- | lisp/international/quail.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 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)))) |