# HG changeset patch
# User Kenichi Handa <handa@etlken>
# Date 1277703759 -32400
# Node ID 6d629fcc79e9721327140360b441b4ee7784ca7a
# Parent  d8144fe7f3f82b6eaaf7a59c6605ffae165ded5b# Parent  c96dfcadf1a5be93acdc6a9408eada71ecbcd7fe
international/quail.el (quail-insert-kbd-layout): Fix the showing of untranslated characters.

diff -r d8144fe7f3f8 -r 6d629fcc79e9 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jun 27 21:01:11 2010 -0400
+++ b/lisp/ChangeLog	Mon Jun 28 14:42:39 2010 +0900
@@ -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 -r d8144fe7f3f8 -r 6d629fcc79e9 lisp/international/quail.el
--- a/lisp/international/quail.el	Sun Jun 27 21:01:11 2010 -0400
+++ b/lisp/international/quail.el	Mon Jun 28 14:42:39 2010 +0900
@@ -811,7 +811,7 @@
 		      (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)))