(default-coded-charset-priority-list): Add `=ucs-sip-itaiji-008'.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index e25ca6b..0770240 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -1547,6 +1547,15 @@
              =>iso-ir 172
              graphic 0))
   (make-charset
+   '=>cns11643-4
+   "CNS 11643 Plane 4 abstract characters."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?4$"
+             dimension 2
+             chars 94
+             mother =cns11643-4
+             =>iso-ir 184
+             graphic 0))
+  (make-charset
    '=>cns11643-5
    "CNS 11643 Plane 5 abstract characters."
    '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
@@ -1658,6 +1667,17 @@
                  registry      "big5\\.cdp-0"
                  mother        =big5-cdp))
 
+  (make-charset '=+>big5-cdp
+               "Big5-CDP unified glyphs"
+               '(long-name     "Big5-CDP unified glyphs"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "big5\\.cdp-0"
+                 mother        =big5-cdp))
+
   (make-charset '=>big5-cdp
                "Big5-CDP abstract characters"
                '(long-name     "Big5-CDP abstract characters"
@@ -1667,7 +1687,40 @@
                  graphic       2
                  direction     l2r
                  registry      "big5\\.cdp-0"
-                 mother        =>>big5-cdp))
+                 mother        =big5-cdp))
+
+  (make-charset '=>big5-cdp@iwds-1
+               "Big5-CDP abstract characters based on IWDS-1"
+               '(long-name     "Big5-CDP IWDS-1 abstract characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "big5\\.cdp-0"
+                 mother        =>big5-cdp))
+
+  (make-charset '=>big5-cdp@component
+               "Big5-CDP abstract components"
+               '(long-name     "Big5-CDP abstract components"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "big5\\.cdp-0"
+                 mother        =>big5-cdp))
+
+  (make-charset '=>big5-cdp@cognate
+               "Big5-CDP abstract components based on cognate"
+               '(long-name     "Big5-CDP abstract cognate components"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "big5\\.cdp-0"
+                 mother        =>big5-cdp))
 
   (make-charset
    '=mj
@@ -4747,6 +4800,40 @@
                  mother        ==ucs-itaiji-001
                  min-code #x20000 max-code #x2FFFF
                  registry "ucs00\\.itaiji001-2"))
+  (make-charset '=>ucs-itaiji-001@iwds-1
+               "uXXXX-itaiji-001's abstract characters based on IWDS-1"
+               '(long-name     "IWDS-1 abstract characters of UCS-itaiji-001"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-001))
+  (make-charset '=>ucs-bmp-itaiji-001@iwds-1
+               "IWDS-1 abstract characters of UCS-itaiji-001 in BMP"
+               '(long-name     "=>ucs-itaiji-001@iwds-1 in BMP"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-001@iwds-1
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji001-0"))
+  (make-charset '=>ucs-sip-itaiji-001@iwds-1
+               "IWDS-1 abstract characters of UCS-itaiji-001 in SIP"
+               '(long-name     "=>ucs-itaiji-001@iwds-1 in SIP"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =>ucs-itaiji-001@iwds-1
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji001-2"))
 
   (make-charset '=ucs-itaiji-002
                "uXXXX-itaiji-002 glyphs of GlyphWiki"
@@ -5195,6 +5282,17 @@
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.itaiji006-0"))
+  (make-charset '=>ucs-sip-itaiji-006
+               "uXXXX-itaiji-006's abstract characters in SIP"
+               '(long-name     "UCS-SIP-itaiji-006 characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =>ucs-itaiji-006
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji006-2"))
 
   (make-charset '=ucs-itaiji-007
                "uXXXX-itaiji-007 glyphs of GlyphWiki"
@@ -5288,6 +5386,17 @@
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.itaiji008-0"))
+  (make-charset '=ucs-sip-itaiji-008
+               "uXXXX-itaiji-008 abstract glyphs in SIP"
+               '(long-name     "UCS-SIP-itaiji-008"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =ucs-itaiji-008
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji008-2"))
 
   (make-charset '=ucs-itaiji-009
                "uXXXX-itaiji-009 glyphs of GlyphWiki"