projects / chise / xemacs-chise.git.1 / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
update.
[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 ca7be98..35e6de7 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -787,6 +787,41 @@
              ;; 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/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"
@@ -976,6 +1011,15 @@
              ;; partial t
              ))
   (make-charset
+   '===jis-x0213-1@2004
+   "JIS X 0213:2004 Plain 1 detailed representative glyph-images."
+   '(mother ===jis-x0213-1
+           =>iso-ir 233
+           ;; registry "jisx0213\\(\\.2004\\)-1"
+           dimension 2
+           chars 94
+           graphic 0))
+  (make-charset
    '===jis-x0213-2
    "JIS X 0213 Plain 2 detailed representative glyph-images."
    '(mother ==jis-x0213-2
@@ -1899,6 +1943,17 @@
   ;;              registry "HanyoDenshi\\.JA-0$"
   ;;              mother ==hanyo-denshi/ja))
   (make-charset
+   '===hanyo-denshi/jb
+   "Han'you-Denshi/JB detailed glyph-images."
+   '(long-name "Han'you-Denshi/JB glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JB-0$"
+              mother ==hanyo-denshi/jb))
+  (make-charset
    '===hanyo-denshi/ft
    "Han'you-Denshi/FT detailed glyph-images."
    '(long-name "Han'you-Denshi/FT glyph-images"
@@ -1921,6 +1976,17 @@
               registry "HanyoDenshi\\.IB-0$"
               mother ==hanyo-denshi/ib))
   (make-charset
+   '===hanyo-denshi/hg
+   "Han'you-Denshi/HG detailed glyph-images."
+   '(long-name "Han'you-Denshi/HG glyph-images"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.HG-0$"
+              mother ==hanyo-denshi/hg))
+  (make-charset
    '===hanyo-denshi/jt
    "JT (Juuki Touitsu Moji) detailed glyph-images."
    '(long-name "Han'you-Denshi/JT glyph-images"
@@ -1994,6 +2060,29 @@
               code-offset #x10000))
 
   (make-charset
+   '=+>hanyo-denshi/ft
+   "Han'you-Denshi/FT abstract glyphs"
+   '(long-name "Han'you-Denshi/FT glyphs"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.FT-0$"
+              mother =hanyo-denshi/ft))
+  (make-charset
+   '=+>hanyo-denshi/jt
+   "JT (Juuki Touitsu Moji) unified abstract glyphs."
+   '(long-name "Han'you-Denshi/JT unified glyphs"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JT-0$"
+              mother =hanyo-denshi/jt))
+
+  (make-charset
    '=>>mj
    "Moji-Jouhou-Kiban abstract glyphs."
    '(long-name "MJ glyphs"
@@ -2628,6 +2717,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"
@@ -3065,7 +3163,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"
@@ -3098,7 +3195,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"
@@ -3142,7 +3238,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"
@@ -3155,7 +3250,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"
@@ -3166,7 +3260,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"
@@ -3199,7 +3292,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"
@@ -3308,6 +3400,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"
@@ -3329,6 +3422,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"
@@ -3339,6 +3433,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"
@@ -3349,6 +3444,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"
@@ -3359,6 +3455,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"
@@ -3389,6 +3486,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"
@@ -3713,11 +3811,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"
@@ -3726,11 +3837,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"
@@ -3739,7 +3862,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))
@@ -3752,7 +3875,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))