Mercurial > emacs

comparison lisp/international/subst-big5.el @ 52724:22bb6971e35f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)