international/quail.el (quail-insert-kbd-layout): Fix the showing of untranslated...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 089264183bc54104cdba5829d480dd2d93483f67..2cd472b3ce05644e22e4c5ecffc1fc8e8dd522ec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-28  Kenichi Handa  <handa@m17n.org>
+
+       * international/quail.el (quail-insert-kbd-layout): Fix the
+       showing of untranslated characters.
+
 2010-06-28  Chong Yidong  <cyd@stupidchicken.com>
 
        * simple.el (delete-active-region): New option.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 9959b275943075c7300a4bee8ea5a9d3c454b704..621f314bf70c782329174a6c6604d024f99a1a70 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -811,7 +811,7 @@ The format of KBD-LAYOUT is the same as `quail-keyboard-layout'."
                      (setq translation (aref (cdr translation) 0))
                    (setq translation " ")))
              (setq done-list (cons translation done-list)))
-         (setq translation ch))
+         (setq translation (aref kbd-layout i)))
        (aset layout i translation))
       (setq i (1+ i)))