(=>cns11643-2): 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 4056a38..eeec23b 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -637,6 +637,15 @@
              graphic 0))
 
   (make-charset
+   '=>cns11643-2
+   "CNS 11643 Plane 2 abstract characters."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?2$"
+             dimension 2
+             chars 94
+             mother =cns11643-2
+             =>iso-ir 172
+             graphic 0))
+  (make-charset
    '=>cns11643-7
    "CNS 11643 Plane 7 abstract characters."
    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
@@ -819,21 +828,20 @@
 
   (make-charset '=daikanwa@rev1
                "Daikanwa dictionary (revised version)"
-               `(long-name     "Daikanwa Rev."
+               '(long-name     "Daikanwa Rev."
                  chars         256
                  dimension     2
                  columns       2
                  graphic       2
                  direction     l2r
                  registry      "Daikanwa\\(\\.[0-9]+\\)?-2"
-                 mother        =daikanwa
-                  ))
+                 mother        =daikanwa))
   (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1)
   (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1)
 
   (make-charset '=daikanwa@rev2
                "Daikanwa dictionary (revised version 2)"
-               `(long-name     "Daikanwa"
+               '(long-name     "Daikanwa"
                  chars         256
                  dimension     2
                  columns       2
@@ -842,16 +850,12 @@
                  registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
                  mother        =daikanwa
                  min-code      1
-                  max-code     49964
-                  ;; min-code  #xE00000
-                  ;; max-code  ,(+ #xE00000 50100)
-                  ;; code-offset       #xE00000
-                 ))
+                  max-code     49964))
   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
 
   (make-charset '=daikanwa/+p
                "Daikanwa dictionary (ddddd')"
-               `(long-name     "Daikanwa ddddd'"
+               '(long-name     "Daikanwa ddddd'"
                  chars         256
                  dimension     2
                  columns       2
@@ -859,7 +863,7 @@
                  direction     l2r))
   (make-charset '=daikanwa/+2p
                "Daikanwa dictionary (ddddd'')"
-               `(long-name     "Daikanwa ddddd''"
+               '(long-name     "Daikanwa ddddd''"
                  chars         256
                  dimension     2
                  columns       2
@@ -867,7 +871,7 @@
                  direction     l2r))
   (make-charset '=daikanwa/ho
                "Daikanwa dictionary (Hokan)"
-               `(long-name     "Daikanwa-ho"
+               '(long-name     "Daikanwa-ho"
                  chars         256
                  dimension     2
                  columns       2
@@ -884,6 +888,33 @@
                  direction     l2r
                  registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
                  mother        =daikanwa))
+  (make-charset '=>>daikanwa/+p
+               "Daikanwa abstract glyphs (ddddd')"
+               '(long-name     "Daikanwa glyphs (ddddd')"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =daikanwa/+p))
+  (make-charset '=>>daikanwa/+2p
+               "Daikanwa abstract glyphs (ddddd'')"
+               '(long-name     "Daikanwa glyphs (ddddd'')"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =daikanwa/+2p))
+  (make-charset '=>>daikanwa/ho
+               "Daikanwa abstract glyphs (Hokan)"
+               '(long-name     "Daikanwa-ho glyph"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =daikanwa/ho))
 
   (make-charset '=>daikanwa
                "Daikanwa abstract characters"
@@ -895,6 +926,15 @@
                  direction     l2r
                  registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
                  mother        =>>daikanwa))
+  (make-charset '=>daikanwa/ho
+               "Daikanwa abstract characters (Hokan)"
+               '(long-name     "abstract Daikanwa-ho"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =>>daikanwa/ho))
 
   (make-charset '=shinjigen
                "Kadokawa ShinJigen dictionary (common parts)"
@@ -2275,6 +2315,17 @@
               code-offset    ,(lsh #x6403 16)))
 
   (make-charset
+   '=>>>hanyo-denshi/ja
+   "Han'you-Denshi/JA abstract glyph-forms"
+   '(long-name "Han'you-Denshi/JA glyph-forms"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.JA-0$"
+              mother =hanyo-denshi/ja))
+  (make-charset
    '=>>>hanyo-denshi/jc
    "Han'you-Denshi/JC abstract glyph-forms"
    '(long-name "Han'you-Denshi/JC glyph-forms"
@@ -2286,6 +2337,17 @@
               registry "HanyoDenshi\\.JC-0$"
               mother =hanyo-denshi/jc))
   (make-charset
+   '=>>>hanyo-denshi/ib
+   "Han'you-Denshi/IB abstract glyph-forms"
+   '(long-name "Han'you-Denshi/IB glyph-forms"
+              chars 94
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "HanyoDenshi\\.IB-0$"
+              mother =hanyo-denshi/ib))
+  (make-charset
    '=>>>hanyo-denshi/jt
    "JT (Juuki Touitsu Moji) abstract glyph-forms"
    '(long-name "Han'you-Denshi/JT glyph-forms"
@@ -2296,6 +2358,16 @@
               direction l2r
               registry "HanyoDenshi\\.JT-0$"
               mother =hanyo-denshi/jt))
+  (make-charset
+   '=>>>hanyo-denshi/ks
+   "KoSeki-touitsu-moji abstract glyph-forms"
+   '(long-name "Han'you-Denshi/KS glyph-forms"
+              chars 256
+              dimension 3
+              columns 2
+              graphic 2
+              direction l2r
+              mother =hanyo-denshi/ks))
 
   (make-charset
    '=>>hanyo-denshi/ja
@@ -2307,7 +2379,7 @@
               graphic 2
               direction l2r
               registry "HanyoDenshi\\.JA-0$"
-              mother =hanyo-denshi/ja))
+              mother =>>>hanyo-denshi/ja))
   (make-charset
    '=>>hanyo-denshi/jb
    "Han'you-Denshi/JB abstract glyphs"
@@ -2373,7 +2445,7 @@
               graphic 2
               direction l2r
               registry "HanyoDenshi\\.IB-0$"
-              mother =hanyo-denshi/ib))
+              mother =>>>hanyo-denshi/ib))
   (make-charset
    '=>>hanyo-denshi/hg
    "Han'you-Denshi/HG abstract glyphs"
@@ -2405,7 +2477,7 @@
               columns 2
               graphic 2
               direction l2r
-              mother =hanyo-denshi/ks))
+              mother =>>>hanyo-denshi/ks))
   )
 
 ;;; mule-conf.el ends here