(U+52C9): Unify JU+FA33.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index c2cc7b9..99af0a7 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -101,11 +101,18 @@
 (make-charset
  'japanese-jisx0213-1
  "JIS X 0213:2000 Plain 1"
- '(registry "jisx0213\\(\\.2000\\)-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
@@ -179,6 +186,64 @@
               ;; 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