Mercurial > emacs
comparison lisp/international/subst-big5.el @ 52724:22bb6971e35f
Include U+FF00..U+FFEF in decode table.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 02 Oct 2003 00:47:40 +0000 |
parents | 695cf19ef79e |
children | 6e677a935fe9 |
comparison
equal
deleted
inserted
replaced
52723:f33d2cba6bb7 | 52724:22bb6971e35f |
---|---|
30 | 30 |
31 (mapc | 31 (mapc |
32 (lambda (pair) | 32 (lambda (pair) |
33 (let ((unicode (car pair)) | 33 (let ((unicode (car pair)) |
34 (char (cadr pair))) | 34 (char (cadr pair))) |
35 (if (and (>= unicode #x2e80) (<= unicode #xd7a3)) | 35 (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) |
36 (and (>= unicode #xff00) (<= unicode #xffef))) | |
36 (puthash unicode char ucs-unicode-to-mule-cjk)) | 37 (puthash unicode char ucs-unicode-to-mule-cjk)) |
37 (puthash char unicode ucs-mule-cjk-to-unicode))) | 38 (puthash char unicode ucs-mule-cjk-to-unicode))) |
38 '((#xa7 ?¡±) | 39 '((#xa7 ?¡±) |
39 (#xaf ?¡Â) | 40 (#xaf ?¡Â) |
40 (#xb0 ?¢X) | 41 (#xb0 ?¢X) |