Mercurial > emacs
diff lisp/international/subst-ksc.el @ 57728:8ce088246974
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 |
line wrap: on
line diff
--- a/lisp/international/subst-ksc.el Wed Oct 27 06:01:59 2004 +0000 +++ b/lisp/international/subst-ksc.el Wed Oct 27 06:03:43 2004 +0000 @@ -31,9 +31,9 @@ (lambda (pair) (let ((unicode (car pair)) (char (cadr pair))) - (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) - (and (>= unicode #xff00) (<= unicode #xffef))) - (puthash unicode char ucs-unicode-to-mule-cjk)) + ;; exclude non-supporting components from decode table + (if (utf-translate-cjk-substitutable-p unicode) + (puthash unicode char ucs-unicode-to-mule-cjk)) (puthash char unicode ucs-mule-cjk-to-unicode))) '((#xa1 ?¢®) (#xa4 ?¢´)