(=>ucs-itaiji-012): New coded-charset for XEmacs CHISE.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 3503ff7..714427f 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -4,7 +4,7 @@
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008,
 ;;   2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019,
-;;   2020, 2021 MORIOKA Tomohiko
+;;   2020, 2021, 2022 MORIOKA Tomohiko
 
 ;; Keywords: mule, multilingual, character set, coding system
 
@@ -1940,6 +1940,17 @@
               direction l2r))
 
   (make-charset
+   '=>hanyo-denshi/tk
+   "TK (TouKi) part of Han'you-Denshi abstract characters"
+   `(long-name "Han'you-Denshi/TK"
+              chars 256
+              dimension 3
+              columns 2
+              graphic 2
+              direction l2r
+              mother =hanyo-denshi/tk))
+
+  (make-charset
    '==mj
    "Moji-Jouhou-Kiban detailed glyph-images."
    '(long-name "MJ glyph-images"
@@ -2283,8 +2294,19 @@
               direction l2r
               registry "HanyoDenshi\\.TKMF-1$"))
   (make-charset
+   '=>hanyo-denshi/tk/mf-01
+   "font encoding for TK (TouKi) abstract characters"
+   `(long-name "Han'you-Denshi/TK font encoding"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother =hanyo-denshi/tk/mf-01
+              registry "HanyoDenshi\\.TKMF-1$"))
+  (make-charset
    '==hanyo-denshi/tk/mf-01
-   "font encoding for TK (TouKi) characters"
+   "font encoding for TK (TouKi) glyphs"
    `(long-name "Han'you-Denshi/TK font encoding"
               chars 256
               dimension 2
@@ -3511,6 +3533,60 @@
                  columns       2
                  direction     l2r))
 
+  (make-charset '===chise-hdic-tsj "HDIC-TSJ (新撰字鏡 天治本)"
+               '(long-name "CHISE-HDIC/TSJ"
+                 chars         256
+                 dimension     2
+                 registry      "chisetsj-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '=chise-hdic-tsj "HDIC-TSJ (新撰字鏡 天治本) abstract glyph"
+               '(long-name "CHISE-HDIC/TSJ"
+                 chars         256
+                 dimension     2
+                 registry      "chisetsj-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r
+                 mother        ===chise-hdic-tsj))
+
+  (make-charset '===chise-hdic-syp "HDIC-SYP (宋本玉篇)"
+               '(long-name "CHISE-HDIC/SYP"
+                 chars         256
+                 dimension     2
+                 registry      "chisesyp-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '=chise-hdic-syp "HDIC-SYP (宋本玉篇) abstract glyph"
+               '(long-name "CHISE-HDIC/SYP"
+                 chars         256
+                 dimension     2
+                 registry      "chisesyp-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r
+                 mother        ===chise-hdic-syp))
+
+  (make-charset '===chise-hdic-ktb "HDIC-KTB (篆隸萬象名義 高山寺本)"
+               '(long-name "CHISE-HDIC/KTB"
+                 chars         256
+                 dimension     2
+                 registry      "chisektb-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '=chise-hdic-ktb "HDIC-KTB (篆隸萬象名義 高山寺本) abstract glyph"
+               '(long-name "CHISE-HDIC/KTB"
+                 chars         256
+                 dimension     2
+                 registry      "chisektb-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r
+                 mother        ===chise-hdic-ktb))
+
   (make-charset '=cbeta "CBETA private characters"
                '(long-name     "CBETA PUA"
                  chars         256
@@ -3904,6 +3980,17 @@
                  registry      "cdp\\.var-7$"
                  mother        =big5-cdp))
 
+  (make-charset '=big5-cdp-var-008
+               "Big5-CDP-var-008 glyph-images of GlyphWiki"
+               '(long-name     "Big5-CDP-var-008"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "cdp\\.var-8$"
+                 mother        =big5-cdp))
+
   (make-charset '=big5-cdp-var-010
                "Big5-CDP-var-010 glyph-images of GlyphWiki"
                '(long-name     "Big5-CDP-var-010"
@@ -6157,6 +6244,29 @@
                  mother        =ucs-itaiji-012
                  min-code #x20000 max-code #x2FFFF
                  registry "ucs00\\.itaiji012-2"))
+  (make-charset '=>ucs-itaiji-012
+               "Abstract characters corresponding with uXXXX-itaiji-012 of GlyphWiki"
+               '(long-name     "UCS-itaiji-012"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=>ucs-bmp-itaiji-012
+               "uXXXX-itaiji-012's abstract characters in BMP"
+               '(long-name     "UCS-BMP-itaiji-012 characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-012
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji012-0"))1
 
   (make-charset '=ucs-itaiji-014
                "uXXXX-itaiji-014 glyphs of GlyphWiki"
@@ -6228,6 +6338,29 @@
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.itaiji016-0"))
+  (make-charset '=>ucs-itaiji-016
+               "Abstract characters corresponding with uXXXX-itaiji-016 of GlyphWiki"
+               '(long-name     "UCS-itaiji-016"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=>ucs-bmp-itaiji-016
+               "uXXXX-itaiji-016's abstract characters in BMP"
+               '(long-name     "UCS-BMP-itaiji-016 characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-016
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji016-0"))
 
   (make-charset '=ucs-itaiji-084
                "uXXXX-itaiji-084 glyph-images of GlyphWiki"