X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=6baafc02fd072919fac702a6f97d8fef9533fab8;hb=7ffc39e172c9472e8cd1d25de872bbb84e461769;hp=f805bf61f14e06854dc23e4be451b1c86a3914f3;hpb=6ae6f26d47ff2953945302d3a683274921aa3e40;p=chise%2Fxemacs-chise.git

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index f805bf6..6baafc0 100644
--- 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, 2022 MORIOKA Tomohiko
+;;   2020, 2021, 2022, 2023 MORIOKA Tomohiko
 
 ;; Keywords: mule, multilingual, character set, coding system
 
@@ -3586,7 +3586,15 @@
 		  columns	2
 		  direction	l2r
 		  mother	===chise-hdic-ktb))
-
+  (make-charset '===chise-hdic-ktb-seal "Seal-script of HDIC-KTB (篆隸萬象名義 高山寺本)"
+		'(long-name "CHISE-HDIC/KTB-Seal"
+		  chars		256
+		  dimension	2
+		  registry	"chisektbs-0$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  
   (make-charset '=cbeta "CBETA private characters"
 		'(long-name	"CBETA PUA"
 		  chars		256
@@ -3756,6 +3764,15 @@
 		  graphic	2
 		  columns	2
 		  direction	l2r))
+  (make-charset '=>shuowen-jiguge "汲古閣本説文解字抽象文字"
+		'(long-name "汲古閣本説文解字（抽象文字）"
+		  chars		256
+		  dimension	2
+		  registry	"ShuowenJiguge-5$"
+		  mother	=shuowen-jiguge
+		  graphic	2
+		  columns	2
+		  direction	l2r))
 
   (make-charset '===shuowen-jiguge4 "淮南書局4次様本説文解字"
 		'(long-name "京大人文研所蔵説文解字淮南書局4次様本"
@@ -3775,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"
@@ -3900,6 +3926,37 @@
 		  direction     l2r
 		  registry      "cdp\\.itaiji-5$"
 		  mother        =big5-cdp))
+  (make-charset '=>big5-cdp-itaiji-005
+		"Big5-CDP-itaiji-005 abstract characters of GlyphWiki"
+		'(long-name     "Big5-CDP-itaiji-005"
+		  chars         256
+		  dimension     2
+		  columns       2
+		  graphic       2
+		  direction     l2r
+		  registry      "cdp\\.itaiji-5$"
+		  mother        =big5-cdp-itaiji-005))
+
+  (make-charset '=big5-cdp-itaiji-006
+		"Big5-CDP-itaiji-006 glyphs of GlyphWiki"
+		'(long-name     "Big5-CDP-itaiji-006"
+		  chars         256
+		  dimension     2
+		  columns       2
+		  graphic       2
+		  direction     l2r
+		  registry      "cdp\\.itaiji-6$"
+		  mother        =big5-cdp))
+  (make-charset '=>big5-cdp-itaiji-006
+		"Big5-CDP-itaiji-006 abstract characters of GlyphWiki"
+		'(long-name     "Big5-CDP-itaiji-006"
+		  chars         256
+		  dimension     2
+		  columns       2
+		  graphic       2
+		  direction     l2r
+		  registry      "cdp\\.itaiji-6$"
+		  mother        =big5-cdp-itaiji-006))
 
   (make-charset '=big5-cdp-var-001
 		"Big5-CDP-var-001 glyphs of GlyphWiki"
@@ -4293,6 +4350,19 @@
 		  direction	l2r
 		  =>iso-ir	177
 		  mother	=ucs@unicode))
+  (make-charset
+   '=ucs-sip@cns
+   "CNS glyphs of UCS SIP"
+   '(long-name "CNS SIP glyphs"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "ucs00\\.t-2$"
+	       mother =ucs@cns
+	       min-code #x20000 max-code #x2FFFF
+	       code-offset #x20000))
   (define-charset-alias 'ucs-cns '=ucs@cns)
   (make-charset '=ucs@cns/fw
 		"ISO/IEC 10646 for CNS 11643 with fullwidth"
@@ -5012,6 +5082,29 @@
 		  mother	=+>ucs-var-003
 		  min-code #x30000 max-code #x3FFFF
 		  registry "ucs00\\.var003-3"))
+  (make-charset '==ucs-var-003
+		"Abstract glyph-forms corresponding with uXXXX-var-003 of GlyphWiki"
+		'(long-name	"UCS-var-003"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs-var-003))
+  (make-charset '==ucs-bmp-var-003
+		"uXXXX-var-003's abstract glyph-forms in BMP"
+		'(long-name	"UCS-BMP-var-003 glyph-forms"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	==ucs-var-003
+		  min-code #x2E00
+		  max-code #x9FCC
+		  registry "ucs\\.var003-0"))
 
   (make-charset '=ucs-var-004
 		"uXXXX-var-004 glyph-images of GlyphWiki"
@@ -5152,6 +5245,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"
@@ -5199,6 +5315,17 @@
 		  min-code #x2E00
 		  max-code #x9FCC
 		  registry "ucs\\.var010-0"))
+  (make-charset '=ucs-sip-var-010
+		"uXXXX-var-010 glyph-images in SIP"
+		'(long-name	"UCS-SIP-var-010"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=ucs-var-010
+		  min-code #x20000 max-code #x2FFFF
+		  registry "ucs00\\.var010-2"))
 
   (make-charset '=ucs-itaiji-001
 		"uXXXX-itaiji-001 glyphs of GlyphWiki"
@@ -5701,6 +5828,27 @@
 		  mother	=>ucs-itaiji-004
 		  min-code #x20000 max-code #x2FFFF
 		  registry "ucs00\\.itaiji004-2"))
+  (make-charset '==ucs-itaiji-004
+		"Abstract glyph-forms corresponding with uXXXX-itaiji-004 of GlyphWiki"
+		'(long-name	"UCS-itaiji-004"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs-itaiji-004))
+  (make-charset '==ucs-sip-itaiji-004
+		"uXXXX-itaiji-004's abstract glyph-forms in SIP"
+		'(long-name	"UCS-SIP-itaiji-004"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	==ucs-itaiji-004
+		  min-code #x20000 max-code #x2FFFF
+		  registry "ucs00\\.itaiji004-2"))
 
   (make-charset '=ucs-itaiji-005
 		"uXXXX-itaiji-005 glyphs of GlyphWiki"
@@ -5793,6 +5941,17 @@
 		  min-code #x2E00
 		  max-code #x9FCC
 		  registry "ucs\\.itaiji005-0"))
+  (make-charset '==ucs-sip-itaiji-005
+		"uXXXX-itaiji-005's abstract glyph-forms in SIP"
+		'(long-name	"UCS-SIP-itaiji-005"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	==ucs-itaiji-005
+		  min-code #x20000 max-code #x2FFFF
+		  registry "ucs00\\.itaiji005-2"))
 
   (make-charset '=ucs-itaiji-006
 		"uXXXX-itaiji-006 glyphs of GlyphWiki"
@@ -6244,6 +6403,40 @@
 		  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-sip-itaiji-012
+		"uXXXX-itaiji-012's abstract characters in SIP"
+		'(long-name	"UCS-SIP-itaiji-012 characters"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=>ucs-itaiji-012
+		  min-code #x20000 max-code #x2FFFF
+		  registry "ucs00\\.itaiji012-2"))
 
   (make-charset '=ucs-itaiji-014
 		"uXXXX-itaiji-014 glyphs of GlyphWiki"
@@ -6804,7 +6997,7 @@
 	       direction l2r
 	       registry "\\(iso10646\\|ucs00\\)-3$"
 	       mother ucs
-	       min-code #x30000 max-code #x3134A
+	       min-code #x30000 max-code #x323AF
 	       code-offset #x30000))
   (make-charset
    '=ucs-tip@JP/hanazono
@@ -6817,7 +7010,7 @@
 	       direction l2r
 	       registry "ucs00-3$"
 	       mother =ucs@JP/hanazono
-	       min-code #x30000 max-code #x3134A
+	       min-code #x30000 max-code #x323AF
 	       code-offset #x30000))
   (make-charset
    '=>ucs-sip@iwds-1
@@ -6833,6 +7026,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"
@@ -6882,7 +7088,7 @@
 	       direction l2r
 	       registry "ucs00-3$"
 	       mother =>ucs@component
-	       min-code #x30000 max-code #x3134A
+	       min-code #x30000 max-code #x323AF
 	       code-offset #x30000))
   (make-charset
    '==>ucs-sip@esu
@@ -6946,7 +7152,7 @@
 	       direction l2r
 	       registry "ucs00-3$"
 	       mother ==ucs@JP/hanazono
-	       min-code #x30000 max-code #x3134A
+	       min-code #x30000 max-code #x323AF
 	       code-offset #x30000))
   (make-charset
    '===ucs-sip@iso