1270 |
Do so while interleaving with the following special events: |
Do so while interleaving with the following special events: |
1271 |
\(compose-last-chars LEN COMPONENTS) |
\(compose-last-chars LEN COMPONENTS) |
1272 |
\(quail-advice INPUT-STRING)" |
\(quail-advice INPUT-STRING)" |
1273 |
(let* ((events (lambda (c) |
(let* ((events |
1274 |
|
(mapcar (lambda (c) |
1275 |
;; This gives us the chance to unify on input |
;; This gives us the chance to unify on input |
1276 |
;; (e.g. using ucs-tables.el). |
;; (e.g. using ucs-tables.el). |
1277 |
(or (and translation-table-for-input |
(or (and translation-table-for-input |
1278 |
(aref translation-table-for-input c)) |
(aref translation-table-for-input c)) |
1279 |
c))) |
c)) |
1280 |
|
(string-to-list str))) |
1281 |
(len (length str)) |
(len (length str)) |
1282 |
(idx len) |
(idx len) |
1283 |
composition from to) |
composition from to) |