32 |
(lambda (pair) |
(lambda (pair) |
33 |
(let ((unicode (car pair)) |
(let ((unicode (car pair)) |
34 |
(char (cadr pair))) |
(char (cadr pair))) |
35 |
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) |
;; exclude non-supporting components from decode table |
36 |
(and (>= unicode #xff00) (<= unicode #xffef))) |
(if (utf-translate-cjk-substitutable-p unicode) |
37 |
(puthash unicode char ucs-unicode-to-mule-cjk)) |
(puthash unicode char ucs-unicode-to-mule-cjk)) |
38 |
(puthash char unicode ucs-mule-cjk-to-unicode))) |
(puthash char unicode ucs-mule-cjk-to-unicode))) |
39 |
'((#xa4 ?¡è) |
'((#xa4 ?¡è) |
40 |
(#xa7 ?¡ì) |
(#xa7 ?¡ì) |