Sync with r21-4-9-utf-2000-0_19-jc3-6.

[chise/xemacs-chise.git] / lisp / mule / mule-conf.el

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 21916c3..2a28db9 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
-;; Copyright (C) 1997,1999 MORIOKA Tomohiko
+;; Copyright (C) 1997,1999,2000,2002 MORIOKA Tomohiko
 
 ;; Keywords: mule, multilingual, character set, coding system
 
@@ -101,19 +101,91 @@
 (make-charset
  'japanese-jisx0213-1
  "JIS X 0213:2000 Plain 1"
- '(registry "jisx0213-1"
-   dimension 2
-   chars 94
-   final ?O
-   graphic 0))
+ (if (featurep 'utf-2000)
+     '(registry "jisx0213\\(\\.2000\\)-1"
+       dimension 2
+       chars 94
+       mother japanese-jisx0208-1990
+       final ?O
+       graphic 0)
+   '(registry "jisx0213\\(\\.2000\\)-1"
+     dimension 2
+     chars 94
+     final ?O
+     graphic 0)))
 
 (make-charset
  'japanese-jisx0213-2
  "JIS X 0213:2000 Plain 2"
- '(registry "jisx0213-2"
+ '(registry "jisx0213\\(\\.2000\\)-2"
    dimension 2
    chars 94
    final ?P
    graphic 0))
 
+(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"
+              chars 256
+              dimension 2
+              columns 2
+              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
+   "Big5-CDP"
+   `(long-name "Big5 with CDP extension"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "big5\\.cdp-0"
+              ;; 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