diff options
| author | Kenichi Handa <handa@m17n.org> | 2003-10-02 00:47:40 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2003-10-02 00:47:40 +0000 |
| commit | 693fa2c7111edc1431cbb5d1f4a255187bb7a865 (patch) | |
| tree | d80e7ab21cb955733a9b880ac4fce9f599b682da | |
| parent | 18db88965e88e9e3704520cf08ff7fc75d2e1a32 (diff) | |
| download | emacs-693fa2c7111edc1431cbb5d1f4a255187bb7a865.tar.gz | |
Include U+FF00..U+FFEF in decode table.
| -rw-r--r-- | lisp/international/subst-big5.el | 3 | ||||
| -rw-r--r-- | lisp/international/subst-gb2312.el | 3 | ||||
| -rw-r--r-- | lisp/international/subst-jis.el | 3 | ||||
| -rw-r--r-- | lisp/international/subst-ksc.el | 3 |
4 files changed, 8 insertions, 4 deletions
diff --git a/lisp/international/subst-big5.el b/lisp/international/subst-big5.el index f80d7a8f4a4..4f3bbdd6d67 100644 --- a/lisp/international/subst-big5.el +++ b/lisp/international/subst-big5.el @@ -32,7 +32,8 @@ (lambda (pair) (let ((unicode (car pair)) (char (cadr pair))) - (if (and (>= unicode #x2e80) (<= unicode #xd7a3)) + (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) + (and (>= unicode #xff00) (<= unicode #xffef))) (puthash unicode char ucs-unicode-to-mule-cjk)) (puthash char unicode ucs-mule-cjk-to-unicode))) '((#xa7 ?¡±) diff --git a/lisp/international/subst-gb2312.el b/lisp/international/subst-gb2312.el index 5620d211895..2b02af1f86c 100644 --- a/lisp/international/subst-gb2312.el +++ b/lisp/international/subst-gb2312.el @@ -32,7 +32,8 @@ (lambda (pair) (let ((unicode (car pair)) (char (cadr pair))) - (if (and (>= unicode #x2e80) (<= unicode #xd7a3)) + (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) + (and (>= unicode #xff00) (<= unicode #xffef))) (puthash unicode char ucs-unicode-to-mule-cjk)) (puthash char unicode ucs-mule-cjk-to-unicode))) '((#xa4 ?¡è) diff --git a/lisp/international/subst-jis.el b/lisp/international/subst-jis.el index 7fb7f1ac883..7e1c0bd5df8 100644 --- a/lisp/international/subst-jis.el +++ b/lisp/international/subst-jis.el @@ -47,7 +47,8 @@ (let ((unicode (car pair)) (char (cadr pair))) ;; exclude non-CJK components from decode table - (if (and (>= unicode #x2e80) (<= unicode #xd7a3)) + (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) + (and (>= unicode #xff00) (<= unicode #xffef))) (puthash unicode char ucs-unicode-to-mule-cjk)) (puthash char unicode ucs-mule-cjk-to-unicode))) '( diff --git a/lisp/international/subst-ksc.el b/lisp/international/subst-ksc.el index 16671015189..b5641e360f1 100644 --- a/lisp/international/subst-ksc.el +++ b/lisp/international/subst-ksc.el @@ -31,7 +31,8 @@ (lambda (pair) (let ((unicode (car pair)) (char (cadr pair))) - (if (and (>= unicode #x2e80) (<= unicode #xd7a3)) + (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3)) + (and (>= unicode #xff00) (<= unicode #xffef))) (puthash unicode char ucs-unicode-to-mule-cjk)) (puthash char unicode ucs-mule-cjk-to-unicode))) '((#xa1 ?¢®) |