(coded-charset-entity-reference-alist): Add setting for `=+>gt'.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 900be69..6de7a61 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -508,6 +508,18 @@
              =>iso-ir 42
              ;; final ?@
              graphic 0))
+  (make-charset
+   '=+>jis-x0213-1
+   "JIS X 0213 Plain 1 unified abstract glyphs (unchanged part)"
+   '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
+             dimension 2
+             chars 94
+             mother =>>jis-x0213-1
+             =>iso-ir 228
+              ;; final ?O
+             graphic 0
+              ;; partial t
+             ))
 
   (make-charset
    '=>jis-x0208
@@ -539,7 +551,7 @@
    '(registry "jisx0213\\(\\.[0-9]+\\)?-1"
              dimension 2
              chars 94
-             mother =>>jis-x0213-1
+             mother =+>jis-x0213-1
              =>iso-ir 228
               ;; final ?O
              graphic 0
@@ -663,6 +675,15 @@
                  mother        =>>>gt))
   (define-charset-alias '<=>gt '=>>gt)
   (define-charset-alias '<==>gt '=>>gt)
+  (make-charset '=+>gt
+               "GT 2000 unified abstract glyphs"
+               '(long-name     "Unified abstract GT glyphs"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =>>gt))
   (make-charset '=>gt
                "GT 2000 abstract characters"
                '(long-name     "abstract GT characters"
@@ -671,7 +692,7 @@
                  columns       2
                  graphic       2
                  direction     l2r
-                 mother        =>>gt))
+                 mother        =+>gt))
   (make-charset '=gt-k
                "Ideographic components of GT"
                `(long-name     "GT components"
@@ -1078,7 +1099,7 @@
                  =>iso-ir      177
                  mother        =>ucs@iso))
   (make-charset '=>ucs@jis
-               "UCS Representative characters for JIS X0208/0212/0213"
+               "UCS representative characters for JIS X0208/0212/0213"
                '(long-name     "UCS characters for JIS"
                  chars         256
                  dimension     3
@@ -1087,69 +1108,89 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        =>ucs@unicode))
-  (make-charset '=+>ucs@jis
-               "UCS based on Japanese usual unification"
-               '(long-name     "UCS unified abstract glyphs for JP"
+  (make-charset '=>ucs@ks
+               "UCS representative characters for Korean Standards"
+               '(long-name     "UCS characters for KS"
                  chars         256
                  dimension     3
                  columns       2
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        =>ucs@jis))
-  (define-charset-alias '=>ucs@JP '=+>ucs@jis)
-  (make-charset '=+>ucs@jis/1990
-               "UCS Representative characters for JIS X0208/0212:1990"
-               '(long-name     "UCS characters for JIS:1990"
+                 mother        =>ucs@unicode))
+  (make-charset '=>ucs@cns
+               "UCS representatives characters for CNS 11643 sources"
+               '(long-name     "UCS characters for CNS 11643"
                  chars         256
                  dimension     3
                  columns       2
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        =+>ucs@jis))
-  (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
-  (make-charset '=>ucs@ks
-               "UCS Representative characters for Korean Standards"
-               '(long-name     "UCS characters for KS"
+                 mother        =>ucs@unicode))
+
+  (make-charset '=+>ucs@iso
+               "UCS based on ISO/IEC 10646 representative glyphs"
+               '(long-name     "Unified abstract glyphs of UCS"
                  chars         256
                  dimension     3
                  columns       2
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        =>ucs@unicode))
-  (make-charset '=+>ucs@ks
-               "UCS Representative unified abstract glyphs for Korean Standards"
-               '(long-name     "UCS unified abstract glyphs for KS"
+                 mother        =>ucs@iso))
+  (make-charset '=+>ucs@unicode
+               "Unicode representative unified abstract glyphs"
+               '(long-name     "UCS unified abstract glyphs for Unicode"
                  chars         256
                  dimension     3
                  columns       2
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        =>ucs@ks))
-  (make-charset '=>ucs@cns
-               "UCS representatives characters for CNS 11643 sources"
-               '(long-name     "UCS characters for CNS 11643"
+                 mother        =+>ucs@iso))
+  (make-charset '=+>ucs@jis
+               "UCS based on Japanese usual unification"
+               '(long-name     "UCS unified abstract glyphs for JP"
                  chars         256
                  dimension     3
                  columns       2
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        =>ucs@unicode))
-
-  (make-charset '=+>ucs@iso
-               "UCS based on ISO/IEC 10646 representative glyphs"
-               '(long-name     "Unified abstract glyphs of UCS"
+                 mother        =+>ucs@unicode))
+  (define-charset-alias '=>ucs@JP '=+>ucs@jis)
+  (make-charset '=+>ucs@jis/1990
+               "UCS representative characters for JIS X0208/0212:1990"
+               '(long-name     "UCS characters for JIS:1990"
                  chars         256
                  dimension     3
                  columns       2
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        =>ucs@iso))
+                 mother        =+>ucs@jis))
+  (define-charset-alias '=>ucs@jis/1990 '=+>ucs@jis/1990)
+  (make-charset '=+>ucs@ks
+               "UCS representative unified abstract glyphs for Korean Standards"
+               '(long-name     "UCS unified abstract glyphs for KS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =+>ucs@unicode))
+  (make-charset '=+>ucs@cns
+               "UCS representatives unified abstract glyphs for CNS 11643 sources"
+               '(long-name     "UCS unified abstract glyphs for CNS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =+>ucs@unicode))
 
   (make-charset '=>>ucs@iso
                "Representative abstract-glyphs of ISO/IEC 10646"
@@ -1655,6 +1696,21 @@
               ;; max-code #xA4CF
               ))
   (make-charset
+   '=>ucs-bmp-cjk@unicode
+   "Unicode representative characters of CJK Unified Ideographs in BMP"
+   '(long-name "Unicode-BMP-CJK"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "-zh-.*-ucs-0"
+              mother =>ucs@unicode
+              min-code #x2E00
+               max-code #x9FA5
+              ;; max-code #xA4CF
+              ))
+  (make-charset
    '==>ucs-bmp-cjk@bucs
    "CJK Characters in BMP of BUCS"
    '(long-name "BUCS-BMP-CJK"