32 |
(lambda (pair) |
(lambda (pair) |
33 |
(let ((unicode (car pair)) |
(let ((unicode (car pair)) |
34 |
(char (cadr pair))) |
(char (cadr pair))) |
35 |
(if (and (>= unicode #x2e80) (<= unicode #xd7a3)) |
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) |
36 |
|
(and (>= unicode #xff00) (<= unicode #xffef))) |
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 |
'((#xa7 ?¡±) |
'((#xa7 ?¡±) |
13938 |
(#xffe3 ?¡Ã) |
(#xffe3 ?¡Ã) |
13939 |
(#xffe5 ?¢D))) |
(#xffe5 ?¢D))) |
13940 |
|
|
13941 |
|
;;; arch-tag: 4fbf5312-bb44-4f23-8ae2-7ab2ee1c540f |
13942 |
;;; subst-big5.el ends here |
;;; subst-big5.el ends here |