From cbdbef2dc1be71c9aca77ea0b8db5d37b956c3eb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 21 Jul 2003 07:17:51 +0000 Subject: [PATCH] (quail-translate-key): Update quail-current-str correctly. --- lisp/ChangeLog | 5 +++++ lisp/international/quail.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 394b52d4173..ee9338d1f8f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-07-21 Kenichi Handa + + * international/quail.el (quail-translate-key): Update + quail-current-str correctly. + 2003-07-21 Andreas Schwab * progmodes/sh-script.el (sh-mode-syntax-table): Change syntax of diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 187a7532091..db7c53ba89f 100644 --- 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 () -- 2.39.2