From 6af33222af7d3d87ee313e92ca66b9e844fbcc36 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 28 Nov 2006 05:34:38 +0000 Subject: [PATCH] (quail-get-translations): Make quail-current-key multibyte if not yet done. --- lisp/international/quail.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 17dd5013805..d0719117ee2 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2066,6 +2066,8 @@ minibuffer and the selected frame has no other windows)." (defun quail-get-translations () "Return a string containing the current possible translations." + (or (multibyte-string-p quail-current-key) + (setq quail-current-key (string-to-multibyte quail-current-key))) (let ((map (quail-lookup-key quail-current-key nil t)) (str (copy-sequence quail-current-key))) (if quail-current-translations @@ -2074,7 +2076,7 @@ minibuffer and the selected frame has no other windows)." ;; Show the current key. (let ((guidance (quail-guidance))) (if (listp guidance) - ;; We must replace thetyped key with the specified PROMPTKEY. + ;; We must replace the typed key with the specified PROMPT-KEY. (dotimes (i (length str)) (let ((prompt-key (cdr (assoc (aref str i) guidance)))) (if prompt-key -- 2.39.5