Add `===shuowen-jiguge-A30' characters.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 64b6824..691f9f8 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -3792,6 +3792,15 @@
                  columns       2
                  direction     l2r))
 
+  (make-charset '===shuowen-jiguge-A30 "汲古閣刊第四次修改本"
+               '(long-name "京大人文研所蔵汲古閣刊第四次修改本"
+                 chars         256
+                 dimension     2
+                 registry      "ShuowenJiguge-30$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+
   ;; (make-charset
   ;;  '=zihai
   ;;  "ZhongHua-ZiHai glyph-images"
@@ -5205,6 +5214,29 @@
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.var007-0"))
+  (make-charset '==ucs-var-007
+               "Abstract glyph-forms corresponding with uXXXX-var-007 of GlyphWiki"
+               '(long-name     "UCS-var-007"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-var-007))
+  (make-charset '==ucs-bmp-var-007
+               "uXXXX-var-007's abstract glyph-forms in BMP"
+               '(long-name     "UCS-BMP-var-007 glyph-forms"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        ==ucs-var-007
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.var007-0"))
 
   (make-charset '=ucs-var-008
                "uXXXX-var-008 glyph-images of GlyphWiki"
@@ -6942,6 +6974,19 @@
               min-code #x20000 max-code #x2FFFF
               code-offset #x20000))
   (make-charset
+   '=>ucs-tip@iwds-1
+   "CJK Characters in TIP based on IWDS-1."
+   '(long-name "CJK in TIP@IWDS-1"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "ucs00-3$"
+              mother =>ucs@iwds-1
+              min-code #x30000 max-code #x323AF
+              code-offset #x30000))
+  (make-charset
    '=>ucs-sip@cognate
    "CJK Characters in SIP for abstract characters based on cognate."
    '(long-name "CJK in SIP@cognate"