(coded-charset-entity-reference-alist): Add setting for `===hng-tsu'.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index e377d52..b2da4ed 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -820,6 +820,17 @@
              graphic 0
              partial t))
   (make-charset
+   '==jis-x0208@1978/-4X
+   "JIS X 0208:1978, index before the 4th impression."
+   '(registry "jisx0208\\.1978"
+             dimension 2
+             chars 94
+             mother ==jis-x0208@1978
+             =>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"
@@ -844,13 +855,23 @@
              graphic 0
              partial t))
   (make-charset
+   '==jis-x0208@1978/4-pr
+   "JIS X 0208:1978, 4th impression or later."
+   '(registry "jisx0208\\.1978"
+             dimension 2
+             chars 94
+             mother ==jis-x0208@1978/2-pr
+              =>iso-ir 42
+             ;; final ?@
+             graphic 0
+             partial t))
+  (make-charset
    '==jis-x0208@1978/5pr
    "JIS X 0208:1978, 5th impression."
    '(registry "jisx0208\\.1978"
              dimension 2
              chars 94
-              ;; mother ==jis-x0208@1978/4-pr
-              mother ==jis-x0208@1978/2-pr
+             mother ==jis-x0208@1978/4-pr
               =>iso-ir 42
              ;; final ?@
              graphic 0
@@ -996,7 +1017,7 @@
    '(registry "jisx0208\\.1978"
              dimension 2
              chars 94
-             mother ===jis-x0208
+             mother ==jis-x0208@1978
              =>iso-ir 42
              ;; final ?@
              graphic 0))
@@ -1006,7 +1027,7 @@
    '(registry "jisx0208\\.1983"
              dimension 2
              chars 94
-             mother ===jis-x0208
+             mother ==jis-x0208@1983
              =>iso-ir 87
              graphic 0))
   (make-charset
@@ -1015,7 +1036,7 @@
    '(registry "jisx0208\\.1990"
              dimension 2
              chars 94
-             mother ===jis-x0208
+             mother ==jis-x0208@1990
              =>iso-ir 168
              ;; final ?B
              graphic 0))
@@ -1038,7 +1059,7 @@
    '(registry "jisx0213\\(\\.2000\\)-1"
              dimension 2
              chars 94
-             mother ===jis-x0213-1
+             mother ==jis-x0213-1@2000
              =>iso-ir 228
              ;; final ?O
              graphic 0
@@ -1047,7 +1068,7 @@
   (make-charset
    '===jis-x0213-1@2004
    "JIS X 0213:2004 Plain 1 detailed representative glyph-images."
-   '(mother ===jis-x0213-1
+   '(mother ==jis-x0213-1@2004
            =>iso-ir 233
            ;; registry "jisx0213\\(\\.2004\\)-1"
            dimension 2
@@ -1489,6 +1510,15 @@
              =>iso-ir 172
              graphic 0))
   (make-charset
+   '=>cns11643-5
+   "CNS 11643 Plane 5 abstract characters."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?5$"
+             dimension 2
+             chars 94
+             mother =cns11643-5
+             =>iso-ir 185
+             graphic 0))
+  (make-charset
    '=>cns11643-6
    "CNS 11643 Plane 6 abstract characters."
    '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
@@ -2539,6 +2569,15 @@
                  graphic       2
                  direction     l2r
                  mother        =daikanwa/+p))
+  (make-charset '==daikanwa/+2p
+               "Daikanwa detailed glyph-images (ddddd'')"
+               '(long-name     "Daikanwa glyph-images ddddd''"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =daikanwa/+2p))
   (make-charset '==daikanwa/ho
                "Daikanwa detailed glyph-images (Hokan)"
                '(long-name     "Daikanwa-ho detailed glyph-images"
@@ -2766,6 +2805,47 @@
            hzk-max (+ hzk-min 65535))
       (setq i (1+ i))))
 
+  (make-charset '===hng-khi "HNG:妙法蓮華經卷五（今西本）"
+               '(long-name "HNG/宮廷今西"
+                 chars         256
+                 dimension     2
+                 registry      "hng-10$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '===hng-khm "HNG:妙法蓮華經卷三（守屋本）"
+               '(long-name "HNG/宮廷守屋"
+                 chars         256
+                 dimension     2
+                 registry      "hng-11$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '===hng-kak "HNG:開成石經孝經"
+               '(long-name "HNG/開成孝經"
+                 chars         256
+                 dimension     2
+                 registry      "hng-17$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '===hng-sys "HNG:瑜伽師地論卷三十（S.5309）"
+               '(long-name "HNG/S5309"
+                 chars         256
+                 dimension     2
+                 registry      "hng-22$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '===hng-tsu "HNG:通典卷一"
+               '(long-name "HNG/通典卷一"
+                 chars         256
+                 dimension     2
+                 registry      "hng-24$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+
   (make-charset '=cbeta "CBETA private characters"
                '(long-name     "CBETA PUA"
                  chars         256
@@ -2929,7 +3009,7 @@
 
   ;; (make-charset
   ;;  '=zihai-17xx
-  ;;  "ZhongHua-ZiHai (pp.1700\e$B!A\e(B1781) glyph-images"
+  ;;  "ZhongHua-ZiHai (pp.1700〜1781) glyph-images"
   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
   ;;              chars 256
   ;;              dimension 2
@@ -2980,6 +3060,17 @@
                  graphic       2
                  direction     l2r))
 
+  (make-charset '=>ucs@iwds-1
+               "UCS abstract characters based on IWDS-1."
+               '(long-name     "UCS based on IWDS-1"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =ucs))
+
   (make-charset '=>ucs@component
                "UCS encoding for abstract components of IWDS-1."
                '(long-name     "UCS for IWDS-1 abstract components"
@@ -3646,7 +3737,7 @@
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        ===ucs@iso))
+                 mother        ==ucs@unicode))
   (make-charset '===ucs@gb
                "UCS representative glyph-images of GB."
                '(long-name     "UCS rep-images for GB"
@@ -3666,7 +3757,7 @@
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        ===ucs@unicode))
+                 mother        ==ucs@ks))
 
   (make-charset '=ucs-var-001
                "uXXXX-var-001 glyph-images of GlyphWiki"
@@ -3689,7 +3780,7 @@
                   ;; =>iso-ir  177
                  mother        =ucs-var-001
                  min-code #x2E00
-                 max-code #x9FA5
+                 max-code #x9FCC
                  registry "ucs\\.var001-0"))
   (make-charset '=ucs-var-002
                "uXXXX-var-002 glyph-images of GlyphWiki"
@@ -3712,7 +3803,7 @@
                   ;; =>iso-ir  177
                  mother        =ucs-var-002
                  min-code #x2E00
-                 max-code #x9FA5
+                 max-code #x9FCC
                  registry "ucs\\.var002-0"))
   (make-charset '=ucs-var-003
                "uXXXX-var-003 glyph-images of GlyphWiki"
@@ -3735,8 +3826,31 @@
                   ;; =>iso-ir  177
                  mother        =ucs-var-003
                  min-code #x2E00
-                 max-code #x9FA5
+                 max-code #x9FCC
                  registry "ucs\\.var003-0"))
+  (make-charset '=ucs-itaiji-002
+               "uXXXX-itaiji-002 glyphs of GlyphWiki"
+               '(long-name     "UCS-itaiji-002"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=ucs-bmp-itaiji-002
+               "uXXXX-itaiji-002 glyph-images in BMP"
+               '(long-name     "UCS-BMP-itaiji-002"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-itaiji-002
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji002-0"))
   (make-charset '=ucs-itaiji-084
                "uXXXX-itaiji-084 glyph-images of GlyphWiki"
                '(long-name     "UCS-itaiji-084"
@@ -3758,7 +3872,7 @@
                   ;; =>iso-ir  177
                  mother        =ucs-itaiji-084
                  min-code #x2E00
-                 max-code #x9FA5
+                 max-code #x9FCC
                  registry "ucs\\.itaiji084-0"))
 
   (make-charset
@@ -3822,6 +3936,7 @@
               mother ucs-bmp
               min-code #x2E00
               max-code #x9FA5
+              ;; max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3837,6 +3952,7 @@
               mother =ucs@gb
               min-code #x2E00
                max-code #x9FA5
+              ;; max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3852,6 +3968,7 @@
               mother ==ucs@gb
               min-code #x2E00
                max-code #x9FA5
+              ;; max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3867,6 +3984,7 @@
               mother ===ucs@gb
               min-code #x2E00
                max-code #x9FA5
+              ;; max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3881,7 +3999,7 @@
               registry "-ja-.*-ucs-0"
               mother =ucs@JP
               min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3896,7 +4014,7 @@
               registry "-ja-.*-ucs-0"
               mother =ucs@JP/hanazono
               min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3911,7 +4029,7 @@
               registry "-ja-.*-ucs-0"
               mother ==ucs@JP/hanazono
               min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3927,6 +4045,7 @@
               mother =+>ucs@unicode
               min-code #x2E00
                max-code #x9FA5
+              ;; max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3942,6 +4061,7 @@
               mother =>ucs@unicode
               min-code #x2E00
                max-code #x9FA5
+              ;; max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3956,7 +4076,7 @@
               registry "-ja-.*-ucs-0"
               mother =>ucs@component
               min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset
@@ -3972,6 +4092,7 @@
               mother ==>ucs@bucs
               min-code #x2E00
                max-code #x9FA5
+              ;; max-code #x9FCC
               ;; max-code #xA4CF
               ))
   (make-charset