mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(quail-get-current-str): Translate last raw character

Browse Source 
for deterministic input methods.
This commit is contained in:
Juri Linkov 2005-10-28 05:47:31 +00:00
parent 887ec6f1cd
commit 91a802b0bf
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/international/quail.el
View File

@ -1598,13 +1598,21 @@ Quail map for the sequence."
(or (and (consp def) (aref (cdr def) (car (car def))))
def
(and (> len 1)
(let ((str (quail-get-current-str
(1- len)
(quail-map-definition (quail-lookup-key
quail-current-key (1- len))))))
(let* ((str (quail-get-current-str
(1- len)
(quail-map-definition (quail-lookup-key
quail-current-key (1- len)))))
(substr1 (substring quail-current-key (1- len) len))
(str1 (and (quail-deterministic)
(quail-get-current-str
1
(quail-map-definition (quail-lookup-key
substr1 1))))))
(if str
(concat (if (stringp str) str (char-to-string str))
(substring quail-current-key (1- len) len)))))))
(if str1
(if (stringp str1) str1 (char-to-string str1))
substr1)))))))
(defvar quail-guidance-translations-starting-column 20)