1598 |
(or (and (consp def) (aref (cdr def) (car (car def)))) |
(or (and (consp def) (aref (cdr def) (car (car def)))) |
1599 |
def |
def |
1600 |
(and (> len 1) |
(and (> len 1) |
1601 |
(let ((str (quail-get-current-str |
(let* ((str (quail-get-current-str |
1602 |
(1- len) |
(1- len) |
1603 |
(quail-map-definition (quail-lookup-key |
(quail-map-definition (quail-lookup-key |
1604 |
quail-current-key (1- len)))))) |
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)))))) |
1611 |
(if str |
(if str |
1612 |
(concat (if (stringp str) str (char-to-string str)) |
(concat (if (stringp str) str (char-to-string str)) |
1613 |
(substring quail-current-key (1- len) len))))))) |
(if str1 |
1614 |
|
(if (stringp str1) str1 (char-to-string str1)) |
1615 |
|
substr1))))))) |
1616 |
|
|
1617 |
(defvar quail-guidance-translations-starting-column 20) |
(defvar quail-guidance-translations-starting-column 20) |
1618 |
|
|