Mercurial > emacs
diff lisp/international/subst-jis.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 | 76dda44394c4 |
line wrap: on
line diff
--- a/lisp/international/subst-jis.el Wed Oct 27 06:01:59 2004 +0000 +++ b/lisp/international/subst-jis.el Wed Oct 27 06:03:43 2004 +0000 @@ -45,11 +45,11 @@ (mapc (lambda (pair) (let ((unicode (car pair)) - (char (cadr pair))) - ;; exclude non-CJK components from decode table - (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) - (and (>= unicode #xff00) (<= unicode #xffef))) - (puthash unicode char ucs-unicode-to-mule-cjk)) + (char (cadr pair)) + (tail utf-translate-cjk-unicode-range)) + ;; 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))) '( ;; jisx0208