From: tomo <tomo>
Date: Fri, 12 Apr 2002 05:20:32 +0000 (+0000)
Subject: (chinese-big5-pua): New coded-charset.
X-Git-Tag: r21-2-44-0_18-m8~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5d4dfb38955d0972327d6e6f901d7a506b8c4f65;p=chise%2Fxemacs-chise.git.1

(chinese-big5-pua): New coded-charset.
(chinese-big5-eten-a): Likewise.
(chinese-big5-eten-b): Likewise.
(chinese-big5-cdp): Declare as a subset of `chinese-big5' whose code
range is #x8140 .. #x8DFE.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index fd2044c..c2cc7b9 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -118,6 +118,17 @@
 
 (when (featurep 'utf-2000)
   (make-charset
+   'chinese-big5-pua
+   "Big5-PUA"
+   `(long-name "Big5 with private used area"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       mother chinese-big5
+	       registry "Big5\\.ETEN"))
+  (make-charset
    'chinese-big5-eten
    "Big5-ETEN"
    `(long-name "Big5 ETEN"
@@ -127,6 +138,31 @@
 	       graphic 2
 	       direction l2r
 	       mother chinese-big5
+	       min-code #x8140 max-code #xFEFE
+	       registry "Big5\\.ETEN"))
+  (make-charset
+   'chinese-big5-eten-a
+   "Big5-ETEN-a"
+   `(long-name "Big5 ETEN (#xF9D6 .. #xF9FE)"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       mother chinese-big5
+	       min-code #xF9D6 max-code #xF9FE
+	       registry "Big5\\.ETEN"))
+  (make-charset
+   'chinese-big5-eten-b
+   "Big5-ETEN-b"
+   `(long-name "Big5 ETEN (#xC6A1 .. #xC8FE)"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       mother chinese-big5
+	       min-code #xC6A1 max-code #xC8FE
 	       registry "Big5\\.ETEN"))
   (make-charset
    'chinese-big5-cdp
@@ -138,9 +174,11 @@
 	       graphic 2
 	       direction l2r
 	       registry "big5\\.cdp-0"
-	       min-code ,(lsh #x6200 16)
-	       max-code ,(+ (lsh #x6200 16) #xFFFF)
-	       code-offset ,(lsh #x6200 16)))
+	       ;; min-code ,(lsh #x6200 16)
+	       ;; max-code ,(+ (lsh #x6200 16) #xFFFF)
+	       ;; code-offset ,(lsh #x6200 16)
+	       mother chinese-big5
+	       min-code #x8140 max-code #x8DFE))
   )
 
 ;;; mule-conf.el ends here