(A-M-29237): Unify A-UU+2EBC and A-GT-37857 instead of o-GT-37857;

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index d94484d..9018162 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -787,6 +787,52 @@
              ;; final ?@
              graphic 0))
   (make-charset
+   '==jis-x0208@1978/-4pr
+   "JIS X 0208:1978, 1st - 3rd impressions."
+   '(registry "jisx0208\\.1978"
+             dimension 2
+             chars 94
+             mother ==jis-x0208@1978
+             =>iso-ir 42
+             ;; final ?@
+             graphic 0
+             ;; partial t
+             ))
+  (make-charset
+   '==jis-x0208@1978/1pr
+   "JIS X 0208:1978, 1st impression."
+   '(registry "jisx0208\\.1978"
+             =>iso-ir 42
+             dimension 2
+             chars 94
+             mother ==jis-x0208@1978/-4pr
+             ;; final ?@
+             graphic 0))
+  (make-charset
+   '==jis-x0208@1978/1pr/fixed
+   "JIS X 0208:1978, correct glyph in the errata of 1st impression."
+   '(registry "jisx0208\\.1978"
+             dimension 2
+             chars 94
+             mother ==jis-x0208@1978/1pr
+             =>iso-ir 42
+             ;; final ?@
+             graphic 0
+             partial t))
+  (make-charset
+   '==jis-x0208@1978/2-pr
+   "JIS X 0208:1978, 2nd impression or later."
+   '(registry "jisx0208\\.1978"
+             dimension 2
+             chars 94
+              ;; mother =jis-x0208@1978/1er-pr
+             mother ==jis-x0208@1978
+              =>iso-ir 42
+             ;; final ?@
+             graphic 0
+             ;; partial t
+             ))
+    (make-charset
    '==jis-x0208@1983
    "JIS X 0208:1983 abstract glyph-forms."
    '(registry "jisx0208\\.1983"
@@ -1919,6 +1965,17 @@
               registry "HanyoDenshi\\.JB-0$"
               mother ==hanyo-denshi/jb))
   (make-charset
+   '===hanyo-denshi/jd
+   "Han'you-Denshi/JD abstract glyph-forms."
+   '(long-name "Han'you-Denshi/JD glyph-forms"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JD-0$"
+              mother ==hanyo-denshi/jd))
+  (make-charset
    '===hanyo-denshi/ft
    "Han'you-Denshi/FT detailed glyph-images."
    '(long-name "Han'you-Denshi/FT glyph-images"
@@ -1930,6 +1987,17 @@
               registry "HanyoDenshi\\.FT-0$"
               mother ==hanyo-denshi/ft))
   (make-charset
+   '===hanyo-denshi/ia
+   "Han'you-Denshi/IA detailed glyph-images."
+   '(long-name "Han'you-Denshi/IA glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.IA-0$"
+              mother ==hanyo-denshi/ia))
+  (make-charset
    '===hanyo-denshi/ib
    "Han'you-Denshi/IB detailed glyph-images."
    '(long-name "Han'you-Denshi/IB glyph-images"
@@ -2682,6 +2750,15 @@
                  columns       2
                  direction     l2r
                  mother        =cbeta))
+  (make-charset '=>cbeta "CBETA abstract characters"
+               '(long-name     "CBETA characters"
+                 chars         256
+                 dimension     2
+                 registry      "cbeta-0"
+                 graphic       2
+                 columns       2
+                 direction     l2r
+                 mother        =cbeta))
 
   (make-charset '=zinbun-oracle
                "Oracle Bones Script"
@@ -2764,6 +2841,16 @@
                  direction     l2r
                  registry      "rui6-0"
                  mother        =ruimoku-v6))
+  (make-charset '===ruimoku-v6
+               "RUIMOKU Version.6 representative glyph-images."
+               '(long-name     "RUI6 rep-glyph-images."
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "rui6-0"
+                 mother        ==ruimoku-v6))
   (make-charset '=>>ruimoku-v6
                "RUIMOKU Version.6 glyphs"
                '(long-name     "RUI6 glyphs"
@@ -3119,7 +3206,6 @@
                  =>iso-ir      177
                  mother        =ucs@unicode))
   (define-charset-alias 'ucs-cns '=ucs@cns)
-  (define-charset-alias '=>>>ucs@cns '=ucs@cns)
   (make-charset '=ucs@cns/fw
                "ISO/IEC 10646 for CNS 11643 with fullwidth"
                '(long-name     "UCS for CNS-fullwidth"
@@ -3152,7 +3238,6 @@
                  =>iso-ir      177
                  mother        =ucs@unicode))
   (define-charset-alias 'ucs-jis '=ucs@jis)
-  (define-charset-alias '=>>>ucs@jis '=ucs@jis)
   (make-charset '=ucs@jis/fw
                "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth"
                '(long-name     "UCS for JIS-fullwidth"
@@ -3196,7 +3281,6 @@
                  mother        =ucs@jis))
   (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990)
   (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990)
-  (define-charset-alias '=>>>ucs@jis/1990 '=ucs@jis/1990)
   (make-charset '=ucs@jis/2000
                "ISO/IEC 10646 for JIS X 0213:2000"
                '(long-name     "UCS for JIS:2000"
@@ -3209,7 +3293,6 @@
                  mother        =ucs@jis))
   (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000)
   (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000)
-  (define-charset-alias '=>>>ucs@jis/2000 '=ucs@jis/2000)
   (make-charset '=ucs@jis/2004
                "ISO/IEC 10646 for JIS X 0213:2004"
                '(long-name     "UCS for JIS:2004"
@@ -3220,7 +3303,6 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        =ucs@jis))
-  (define-charset-alias '=>>>ucs@jis/2004 '=ucs@jis/2004)
   (make-charset '=ucs@JP
                "UCS for common glyphs used in Japan"
                '(long-name     "UCS for Japan"
@@ -3253,7 +3335,6 @@
                  =>iso-ir      177
                  mother        =ucs@unicode))
   (define-charset-alias 'ucs-ks '=ucs@ks)
-  (define-charset-alias '=>>>ucs@ks '=ucs@ks)
   (make-charset '=ucs@ks/2012
                "Mapping for Korean Standards in ISO/IEC 10646:2012"
                '(long-name     "UCS:2012 for KS"
@@ -3362,6 +3443,7 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        ==ucs@unicode))
+  (define-charset-alias '=>>>ucs@cns '==ucs@cns)
   (make-charset '==ucs-bmp@cns
                "ISO/IEC 10646 BMP for CNS"
                '(long-name     "BMP for CNS"
@@ -3383,6 +3465,7 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        ==ucs@unicode))
+  (define-charset-alias '=>>>ucs@jis '==ucs@jis)
   (make-charset '==ucs@jis/1990
                "UCS Representative glyph-forms for JIS X 0208/0212:1990."
                '(long-name     "UCS glyph-forms for JIS:1990"
@@ -3393,6 +3476,7 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        ==ucs@jis))
+  (define-charset-alias '=>>>ucs@jis/1990 '==ucs@jis/1990)
   (make-charset '==ucs@jis/2000
                "UCS Representative glyph-forms for JIS X 0213:2000."
                '(long-name     "UCS glyph-forms for JIS:2000"
@@ -3403,6 +3487,7 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        ==ucs@jis))
+  (define-charset-alias '=>>>ucs@jis/2000 '==ucs@jis/2000)
   (make-charset '==ucs@jis/2004
                "UCS Representative glyph-forms for JIS X 0213:2004."
                '(long-name     "UCS glyph-forms for JIS:2004"
@@ -3413,6 +3498,7 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        ==ucs@jis))
+  (define-charset-alias '=>>>ucs@jis/2004 '==ucs@jis/2004)
   (make-charset '==ucs@JP
                "UCS for common glyph-forms used in Japan."
                '(long-name     "UCS for Japan"
@@ -3443,6 +3529,7 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        ==ucs@unicode))
+  (define-charset-alias '=>>>ucs@ks '==ucs@ks)
   (make-charset '==ucs-bmp@ks
                "ISO/IEC 10646 BMP for KS."
                '(long-name     "BMP for KS"
@@ -3555,6 +3642,18 @@
               mother =ucs@unicode
               min-code #x2E00 max-code #x2FFF))
   (make-charset
+   '==ucs-radicals@unicode
+   "CJK Radicals of UCS"
+   '(long-name "UCS-Radicals"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "-zhRadicals-.*-ucs-0"
+              mother ==ucs@unicode
+              min-code #x2E00 max-code #x2FFF))
+  (make-charset
    '=ucs-hangul
    "Hangul Syllables of UCS"
    '(long-name "UCS-Hangul-Syllables"
@@ -3767,11 +3866,24 @@
               columns 2
               graphic 2
               direction l2r
-              registry "\\(iso10646\\|ucs02\\)-2$"
+              registry "\\(iso10646\\|ucs00\\)-2$"
               mother ucs
               min-code #x20000 max-code #x2A6D6
               code-offset #x20000))
   (make-charset
+   '=ucs-sip@iso
+   "CJK Ideographs Extension B (ISO/IEC 10646-2)"
+   '(long-name "UCS CJK Ext-B"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "ucs00-2$"
+              mother =ucs@iso
+              min-code #x20000 max-code #x2FFFF
+              code-offset #x20000))
+  (make-charset
    '=ucs-sip-ext-b@iso
    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
    '(long-name "UCS CJK Ext-B"
@@ -3780,11 +3892,23 @@
               columns 2
               graphic 2
               direction l2r
-              registry "\\(iso10646\\|ucs02\\)-2$"
+              registry "\\(iso10646\\|ucs00\\)-2$"
               mother =ucs@iso
               min-code #x20000 max-code #x2A6D6
               code-offset #x20000))
   (make-charset
+   '==ucs-sip@iso
+   "ISO representative abstract-glyph-images of ISO/IEC 10646 Plane 2"
+   '(long-name "SIP abstract glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "\\(ucs00\\)-2$"
+              mother ==ucs@iso
+              code-offset #x20000))
+  (make-charset
    '==ucs-sip-ext-b@iso
    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
    '(long-name "UCS CJK Ext-B"
@@ -3793,11 +3917,23 @@
               columns 2
               graphic 2
               direction l2r
-              registry "\\(iso10646\\|ucs02\\)-2$"
+              registry "\\(iso10646\\|ucs00\\)-2$"
               mother ==ucs@iso
               min-code #x20000 max-code #x2A6D6
               code-offset #x20000))
   (make-charset
+   '===ucs-sip@iso
+   "ISO representative glyph-images of ISO/IEC 10646 Plane 2"
+   '(long-name "SIP rep-glyph-images"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "\\(ucs00\\)-2$"
+              mother ===ucs@iso
+              code-offset #x20000))
+  (make-charset
    '===ucs-sip-ext-b@iso
    "CJK Ideographs Extension B (ISO/IEC 10646-2)"
    '(long-name "UCS CJK Ext-B"
@@ -3806,7 +3942,7 @@
               columns 2
               graphic 2
               direction l2r
-              registry "\\(iso10646\\|ucs02\\)-2$"
+              registry "\\(iso10646\\|ucs00\\)-2$"
               mother ===ucs@iso
               min-code #x20000 max-code #x2A6D6
               code-offset #x20000))