Mercurial > emacs

comparison lisp/international/subst-big5.el @ 57728:8ce088246974

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use utf-translate-cjk-substitutable-p.
author Kenichi Handa <handa@m17n.org>
date Wed, 27 Oct 2004 06:03:43 +0000
parents 6e677a935fe9
children 18a818a2ee7c
comparison
equal deleted inserted replaced
57727:c3945be39e09 57728:8ce088246974
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 (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) 35 ;; exclude non-supporting components from decode table
36 (and (>= unicode #xff00) (<= unicode #xffef))) 36 (if (utf-translate-cjk-substitutable-p unicode)
37 (puthash unicode char ucs-unicode-to-mule-cjk)) 37 (puthash unicode char ucs-unicode-to-mule-cjk))
38 (puthash char unicode ucs-mule-cjk-to-unicode))) 38 (puthash char unicode ucs-mule-cjk-to-unicode)))
39 '((#xa7 ?¡±) 39 '((#xa7 ?¡±)
40 (#xaf ?¡Â) 40 (#xaf ?¡Â)
41 (#xb0 ?¢X) 41 (#xb0 ?¢X)
42 (#xb1 ?¡Ó) 42 (#xb1 ?¡Ó)