Mercurial > emacs

comparison lisp/international/quail.el @ 66485:2c4be4c0eb6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-get-current-str): Translate last raw character for deterministic input methods.
author Juri Linkov <juri@jurta.org>
date Fri, 28 Oct 2005 05:47:31 +0000
parents 54f639048139
children adb1cbfb05ca 7beb78bc1f8e
comparison
equal deleted inserted replaced
66484:0aef84b1f906 66485:2c4be4c0eb6f
1596 LEN is the length of the sequence. DEF is a definition part of the 1596 LEN is the length of the sequence. DEF is a definition part of the
1597 Quail map for the sequence." 1597 Quail map for the sequence."
1598 (or (and (consp def) (aref (cdr def) (car (car def)))) 1598 (or (and (consp def) (aref (cdr def) (car (car def))))
1599 def 1599 def
1600 (and (> len 1) 1600 (and (> len 1)
1601 (let ((str (quail-get-current-str 1601 (let* ((str (quail-get-current-str
1602 (1- len) 1602 (1- len)
1603 (quail-map-definition (quail-lookup-key 1603 (quail-map-definition (quail-lookup-key
1604 quail-current-key (1- len)))))) 1604 quail-current-key (1- len)))))
1605 (substr1 (substring quail-current-key (1- len) len))
1606 (str1 (and (quail-deterministic)
1607 (quail-get-current-str
1608 1
1609 (quail-map-definition (quail-lookup-key
1610 substr1 1))))))
1605 (if str 1611 (if str
1606 (concat (if (stringp str) str (char-to-string str)) 1612 (concat (if (stringp str) str (char-to-string str))
1607 (substring quail-current-key (1- len) len))))))) 1613 (if str1
1614 (if (stringp str1) str1 (char-to-string str1))
1615 substr1)))))))
1608 1616
1609 (defvar quail-guidance-translations-starting-column 20) 1617 (defvar quail-guidance-translations-starting-column 20)
1610 1618
1611 (defun quail-update-current-translations (&optional relative-index) 1619 (defun quail-update-current-translations (&optional relative-index)
1612 "Update `quail-current-translations'. 1620 "Update `quail-current-translations'.