Mercurial > emacs

changeset 90690:9a11c329a57b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-get-translations): Make quail-current-key multibyte if not yet done.
author Kenichi Handa <handa@m17n.org>
date Tue, 28 Nov 2006 05:34:38 +0000
parents 5c03e223d11b
children 1609d170cf69
files lisp/international/quail.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/quail.el	Mon Nov 27 07:39:53 2006 +0000
+++ b/lisp/international/quail.el	Tue Nov 28 05:34:38 2006 +0000
@@ -2066,6 +2066,8 @@
 
 (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 @@
     ;; 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