From 693fa2c7111edc1431cbb5d1f4a255187bb7a865 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 2 Oct 2003 00:47:40 +0000 Subject: [PATCH] Include U+FF00..U+FFEF in decode table. --- lisp/international/subst-big5.el | 3 ++- lisp/international/subst-gb2312.el | 3 ++- lisp/international/subst-jis.el | 3 ++- 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 ?¢®) -- 2.39.2