(C5-2329): Unify GT-K02141.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index a00aff0..99af0a7 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
 
@@ -97,4 +97,153 @@
   (make-chinese-cns11643-charset 'chinese-cns11643-7 "7" ?M)
   )
 
+;; JIS X 0213:2000
+(make-charset
+ 'japanese-jisx0213-1
+ "JIS X 0213:2000 Plain 1"
+ (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\\(\\.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))
+  (make-charset
+   'ideograph-gt-k
+   "GT parts"
+   `(long-name "Ideographic parts of GT"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry ""
+              min-code ,(lsh #x6110 16)
+              max-code ,(+ (lsh #x6110 16) 17090)
+              code-offset ,(lsh #x6110 16)))
+  (make-charset
+   'ideograph-gt-pj-k1
+   "GT K1"
+   `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 1"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 0
+              direction l2r
+              registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$"))
+  (make-charset
+   'ideograph-gt-pj-k2
+   "GT K2"
+   `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 2"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 0
+              direction l2r
+              registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
+  (make-charset 'ideograph-cbeta "CBETA PUA"
+               '(long-name
+                 "CBETA private characters"
+                 chars         256
+                 dimension     2
+                 registry      "cbeta-0"
+                 graphic       2
+                 min-code      #xE20000
+                 max-code      #xE2FFFF
+                 code-offset   #xE20000
+                 columns       2
+                 direction     l2r))
+  (make-charset
+   'china3-jef
+   "JEF + CHINA3"
+   `(long-name "JEF + CHINA3 private characters"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "china3jef-0"
+              min-code #xE80000
+              max-code #xE8FFFF
+              code-offset #xE80000))
+  )
+
 ;;; mule-conf.el ends here