(quail-translate-key): Update quail-current-str correctly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 394b52d4173a9ad68a489cbe1298f73384a79470..ee9338d1f8fe270986fb275ae1765302d40a3400 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-21  Kenichi Handa  <handa@m17n.org>
+
+       * international/quail.el (quail-translate-key): Update
+       quail-current-str correctly.
+
 2003-07-21  Andreas Schwab  <schwab@suse.de>
 
        * progmodes/sh-script.el (sh-mode-syntax-table): Change syntax of

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 187a7532091ffad81f781d3fcf5edbcd49010cae..db7c53ba89fbdc2c522271e1d7d1b8dc9b196ec5 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1692,6 +1692,9 @@ sequence counting from the head."
 
            (t
             ;; No way to handle the last character in this context.
+            (setq def (quail-map-definition
+                       (quail-lookup-key quail-current-key (1- len))))
+            (setq quail-current-str (quail-get-current-str (1- len) def))
             (1- len))))))
 
 (defun quail-next-translation ()