47 |
(let ((unicode (car pair)) |
(let ((unicode (car pair)) |
48 |
(char (cadr pair))) |
(char (cadr pair))) |
49 |
;; exclude non-CJK components from decode table |
;; exclude non-CJK components from decode table |
50 |
(if (and (>= unicode #x2e80) (<= unicode #xd7a3)) |
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) |
51 |
|
(and (>= unicode #xff00) (<= unicode #xffef))) |
52 |
(puthash unicode char ucs-unicode-to-mule-cjk)) |
(puthash unicode char ucs-unicode-to-mule-cjk)) |
53 |
(puthash char unicode ucs-mule-cjk-to-unicode))) |
(puthash char unicode ucs-mule-cjk-to-unicode))) |
54 |
'( |
'( |
13003 |
(#x9fa5 ?) |
(#x9fa5 ?) |
13004 |
(#xff5e ?))) |
(#xff5e ?))) |
13005 |
|
|
13006 |
|
;;; arch-tag: 7f320453-b293-4159-af5e-6f0bab03048c |
13007 |
;;; subst-jis.el ends here |
;;; subst-jis.el ends here |