(U+661D): Unify B-CEF5.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 4612415..daa3dee 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -320,12 +320,45 @@
   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990)
 
   (make-charset
+   '=>>>jis-x0208
+   "JIS X 0208 abstract glyph-images (unchanged part)."
+   '(registry "jisx0208\\.1990"
+             dimension 2
+             chars 94
+             mother =jis-x0208
+             =>iso-ir 168
+             ;; final ?B
+             graphic 0))
+  (make-charset
+   '=>>>jis-x0208@1990
+   "JIS X 0208:1990 abstract glyph-images."
+   '(registry "jisx0208\\.1990"
+             dimension 2
+             chars 94
+             mother =>>>jis-x0208
+             =>iso-ir 168
+             ;; final ?B
+             graphic 0))
+  (make-charset
+   '=>>>jis-x0213-1
+   "JIS X 0213 Plain 1 abstract glyph-images (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
    "JIS X 0208 abstract glyphs (unchanged part)."
    '(registry "jisx0208\\.1990"
              dimension 2
              chars 94
-             mother =jis-x0208
+             mother =>>>jis-x0208
              =>iso-ir 168
              ;; final ?B
              graphic 0))
@@ -346,7 +379,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
@@ -388,12 +421,22 @@
              ))
 
   (make-charset
+   '=>jis-x0208@usual
+   "JIS X 0208 based on usual unification."
+   '(registry "jisx0208\\.1990"
+             dimension 2
+             chars 94
+             mother =>>jis-x0208
+             =>iso-ir 168
+             ;; final ?B
+             graphic 0))
+  (make-charset
    '=>jis-x0208
    "JIS X 0208 based on the unchanged unification rules."
    '(registry "jisx0208\\.1990"
              dimension 2
              chars 94
-             mother =>>jis-x0208
+             mother =>jis-x0208@usual
              =>iso-ir 168
              ;; final ?B
              graphic 0))
@@ -451,12 +494,22 @@
              ))
   (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004)
   (make-charset
+   '=>jis-x0213-2@usual
+   "JIS X 0213 Plain 2 based on usual unification."
+   '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
+             dimension 2
+             chars 94
+             mother =>>jis-x0213-2
+             =>iso-ir 229
+              ;; final ?P
+             graphic 0))
+  (make-charset
    '=>jis-x0213-2
    "JIS X 0213 Plain 2 abstract characters"
    '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2"
              dimension 2
              chars 94
-             mother =>>jis-x0213-2
+             mother =>jis-x0213-2@usual
              =>iso-ir 229
               ;; final ?P
              graphic 0))
@@ -881,6 +934,36 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        =>ucs@iso))
+  (make-charset '=>ucs@jis
+               "UCS Representative characters for JIS X0208/0212/0213"
+               '(long-name     "UCS characters for JIS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>ucs@unicode))
+  (make-charset '=>ucs@JP
+               "UCS Representative characters for Japanese usual unification"
+               '(long-name     "UCS characters for JP"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>ucs@jis))
+  (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@unicode))
   (make-charset '=>ucs@cns
                "UCS representatives characters for CNS 11643 sources"
                '(long-name     "UCS characters for CNS 11643"
@@ -952,6 +1035,16 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        =>>ucs@jis))
+  (make-charset '=>>ucs@ks
+               "UCS Representative glyphs for Korean Standards"
+               '(long-name     "UCS glyphs for KS"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>>ucs@unicode))
   (make-charset '=>>ucs@cns
                "UCS Representative glyphs for CNS 11643 sources"
                '(long-name     "UCS glyphs for CNS"
@@ -1165,7 +1258,7 @@
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        =>>ucs@unicode))
+                 mother        =>>ucs@cns))
   (define-charset-alias 'ucs-big5 '=ucs@big5)
   (make-charset '=ucs@big5/cns11643
                "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"