(=>>adobe-japan1): New coded-charset for XEmacs CHISE.

[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 3953ccb..e3ede24 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -630,6 +630,15 @@
                  max-code      ,(+ (lsh #x6100 16) 67547)
                  code-offset   ,(lsh #x6100 16)))
   (define-charset-alias 'ideograph-gt '=gt)
+  (make-charset '=>>>gt
+               "GT 2000 abstract glyph-forms"
+               '(long-name     "GT abstract glyph-forms"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =gt))
   (make-charset '=>>gt
                "GT 2000 abstract glyphs"
                '(long-name     "GT abstract glyphs"
@@ -638,7 +647,7 @@
                  columns       2
                  graphic       2
                  direction     l2r
-                 mother        =gt))
+                 mother        =>>>gt))
   (define-charset-alias '<=>gt '=>>gt)
   (define-charset-alias '<==>gt '=>>gt)
   (make-charset '=>gt
@@ -1217,6 +1226,16 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        =>>>ucs@jis))
+  (make-charset '=>>>ucs@jis/2000
+               "UCS Representative glyph-forms for JIS X 0213:2000"
+               '(long-name     "UCS glyph-forms for JIS:2000"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>>>ucs@jis))
   (make-charset '=>>>ucs@jis/2004
                "UCS Representative glyph-forms for JIS X 0213:2004"
                '(long-name     "UCS glyph-forms for JIS:2004"
@@ -1685,6 +1704,17 @@
               min-code 0
               max-code 23057
               registry "AdobeJapan1-6$"))
+  (make-charset
+   '=>>adobe-japan1
+   "Adobe-Japan1 abstract glyphs"
+   '(long-name "Adobe-Japan1 abstract glyphs"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother =adobe-japan1-6
+              registry "AdobeJapan1-6$"))
 
   (make-charset
    '=hanyo-denshi/ja
@@ -1840,6 +1870,18 @@
               code-offset    ,(lsh #x6403 16)))
 
   (make-charset
+   '=>>>hanyo-denshi/jt
+   "JT (Juuki Touitsu Moji) abstract glyph-forms"
+   '(long-name "Han'you-Denshi/JT glyph-forms"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JT-0$"
+              mother =hanyo-denshi/jt))
+
+  (make-charset
    '=>>hanyo-denshi/ft
    "Han'you-Denshi/FT abstract glyphs"
    '(long-name "Han'you-Denshi/FT glyphs"
@@ -1851,6 +1893,17 @@
               registry "HanyoDenshi\\.FT-0$"
               mother =hanyo-denshi/ft))
   (make-charset
+   '=>>hanyo-denshi/ia
+   "Han'you-Denshi/IA abstract glyphs"
+   '(long-name "Han'you-Denshi/IA glyphs"
+              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 abstract glyphs"
    '(long-name "Han'you-Denshi/IB abstract glyphs"
@@ -1871,7 +1924,7 @@
               graphic 2
               direction l2r
               registry "HanyoDenshi\\.JT-0$"
-              mother =hanyo-denshi/jt))
+              mother =>>>hanyo-denshi/jt))
   (make-charset
    '=>>hanyo-denshi/ks
    "Han'you-Denshi/KS abstract glyphs"