(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 790a9a6..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"
@@ -2798,7 +2809,39 @@
                '(long-name "HNG/宮廷今西"
                  chars         256
                  dimension     2
-                 registry      "hngkhi-0"
+                 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))
@@ -3017,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"
@@ -3774,6 +3828,29 @@
                  min-code #x2E00
                  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"