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

2003-07-21 07:17:51 +00:00
parent 29653ebc24
commit cbdbef2dc1
2 changed files with 8 additions and 0 deletions
--- 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
--- 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 ()