Mercurial > emacs
comparison lisp/international/quail.el @ 66485:2c4be4c0eb6f
(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'. |