mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-02 02:10:46 -08:00
Code Issues Projects Releases Wiki Activity

(quail-get-translations): Make

Browse source 
quail-current-key multibyte if not yet done.
This commit is contained in:
Kenichi Handa 2006-11-28 05:34:38 +00:00
parent c0fdfa7bf6
commit 6af33222af
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/international/quail.el
View file

@ -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