diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-10-27 06:03:43 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-10-27 06:03:43 +0000 |
| commit | e41ef4d4044c910044fa40f83282d32b22a1260f (patch) | |
| tree | c99c9c551c72576bbd6f24a106cac61a7c1db0ea /lisp/international/subst-ksc.el | |
| parent | fce59e4038c02d88aca0ba6ef06db7ceb991d279 (diff) | |
| download | emacs-e41ef4d4044c910044fa40f83282d32b22a1260f.tar.gz | |
Use utf-translate-cjk-substitutable-p.
Diffstat (limited to 'lisp/international/subst-ksc.el')
| -rw-r--r-- | lisp/international/subst-ksc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/international/subst-ksc.el b/lisp/international/subst-ksc.el index 9f4b329b675..3cc339bbf8b 100644 --- a/lisp/international/subst-ksc.el +++ b/lisp/international/subst-ksc.el @@ -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 ?¢´) |