31 |
(lambda (pair) |
(lambda (pair) |
32 |
(let ((unicode (car pair)) |
(let ((unicode (car pair)) |
33 |
(char (cadr pair))) |
(char (cadr pair))) |
34 |
(if (and (>= unicode #x2e80) (<= unicode #xd7a3)) |
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) |
35 |
|
(and (>= unicode #xff00) (<= unicode #xffef))) |
36 |
(puthash unicode char ucs-unicode-to-mule-cjk)) |
(puthash unicode char ucs-unicode-to-mule-cjk)) |
37 |
(puthash char unicode ucs-mule-cjk-to-unicode))) |
(puthash char unicode ucs-mule-cjk-to-unicode))) |
38 |
'((#xa1 ?¢®) |
'((#xa1 ?¢®) |
8262 |
(#xffe5 ?¡Í) |
(#xffe5 ?¡Í) |
8263 |
(#xffe6 ?£Ü))) |
(#xffe6 ?£Ü))) |
8264 |
|
|
8265 |
|
;;; arch-tag: b978fd7b-d182-4f63-af47-a028e074c57f |
8266 |
;;; subst-ksc.el ends here |
;;; subst-ksc.el ends here |