X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=271adb87259a539603e2e8c5f3754d45082c0685;hb=180d66355d7b8bcbaa4613e9d4b493c1eed59a26;hp=4f3cd7cf7c65f672f4eb14bb5216d8f8aed89192;hpb=d27fb6989a58af7a4faa2356890044adbe0cd1c0;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 4f3cd7c..271adb8 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008,
-;;   2009, 2010, 2011, 2012, 2013, 2014 MORIOKA Tomohiko
+;;   2009, 2010, 2011, 2012, 2013, 2014, 2015 MORIOKA Tomohiko
 
 ;; Keywords: mule, multilingual, character set, coding system
 
@@ -809,6 +809,28 @@
 	      ;; final ?@
 	      graphic 0))
   (make-charset
+   '==jis-x0208@1978/1pr/fixed
+   "JIS X 0208:1978, correct glyph in the errata of 1st impression."
+   '(registry "jisx0208\\.1978"
+	      dimension 2
+	      chars 94
+	      mother ==jis-x0208@1978/1pr
+	      =>iso-ir 42
+	      ;; final ?@
+	      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"
@@ -821,7 +843,40 @@
 	      graphic 0
 	      ;; partial t
 	      ))
-    (make-charset
+  (make-charset
+   '==jis-x0208@1978/4er
+   "JIS X 0208:1978, replaced by errata of 4th impression."
+   '(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/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
+              =>iso-ir 42
+	      ;; final ?@
+	      graphic 0
+	      partial t))
+  (make-charset
    '==jis-x0208@1983
    "JIS X 0208:1983 abstract glyph-forms."
    '(registry "jisx0208\\.1983"
@@ -962,7 +1017,7 @@
    '(registry "jisx0208\\.1978"
 	      dimension 2
 	      chars 94
-	      mother ===jis-x0208
+	      mother ==jis-x0208@1978
 	      =>iso-ir 42
 	      ;; final ?@
 	      graphic 0))
@@ -972,7 +1027,7 @@
    '(registry "jisx0208\\.1983"
 	      dimension 2
 	      chars 94
-	      mother ===jis-x0208
+	      mother ==jis-x0208@1983
 	      =>iso-ir 87
 	      graphic 0))
   (make-charset
@@ -981,7 +1036,7 @@
    '(registry "jisx0208\\.1990"
 	      dimension 2
 	      chars 94
-	      mother ===jis-x0208
+	      mother ==jis-x0208@1990
 	      =>iso-ir 168
 	      ;; final ?B
 	      graphic 0))
@@ -1004,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
@@ -1013,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
@@ -1455,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$"
@@ -1912,14 +1976,24 @@
 
   (make-charset
    '=koseki
-   "Representative glyph-images of KoSeki-touitsu-moji."
-   '(long-name "KoSeki-touitsu-moji"
+   "Abstract glyph-forms of KoSeki-touitsu-moji."
+   '(long-name "KoSeki-touitsu-moji glyph-forms"
 	       chars 256
 	       dimension 3
 	       columns 2
 	       graphic 2
 	       direction l2r
 	       mother =hanyo-denshi/ks))
+  (make-charset
+   '==koseki
+   "Representative glyph-images of KoSeki-touitsu-moji."
+   '(long-name "KoSeki-touitsu-moji glyph-images"
+	       chars 256
+	       dimension 3
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       mother =koseki))
 
   (define-charset-alias '=>>>hanyo-denshi/ja '==hanyo-denshi/ja)
   (define-charset-alias '=>>>hanyo-denshi/jb '==hanyo-denshi/jb)
@@ -1954,6 +2028,28 @@
 	       registry "HanyoDenshi\\.JB-0$"
 	       mother ==hanyo-denshi/jb))
   (make-charset
+   '===hanyo-denshi/jc
+   "Han'you-Denshi/JC representative glyph-images."
+   '(long-name "Han'you-Denshi/JC glyph-images"
+	       chars 94
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "HanyoDenshi\\.JC-0$"
+	       mother ==hanyo-denshi/jc))
+  (make-charset
+   '===hanyo-denshi/jd
+   "Han'you-Denshi/JD representative glyph-images."
+   '(long-name "Han'you-Denshi/JD glyph-images"
+	       chars 94
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "HanyoDenshi\\.JD-0$"
+	       mother ==hanyo-denshi/jd))
+  (make-charset
    '===hanyo-denshi/ft
    "Han'you-Denshi/FT detailed glyph-images."
    '(long-name "Han'you-Denshi/FT glyph-images"
@@ -1965,6 +2061,17 @@
 	       registry "HanyoDenshi\\.FT-0$"
 	       mother ==hanyo-denshi/ft))
   (make-charset
+   '===hanyo-denshi/ia
+   "Han'you-Denshi/IA detailed glyph-images."
+   '(long-name "Han'you-Denshi/IA glyph-images"
+	       chars 94
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "HanyoDenshi\\.IA-0$"
+	       mother ==hanyo-denshi/ia))
+  (make-charset
    '===hanyo-denshi/ib
    "Han'you-Denshi/IB detailed glyph-images."
    '(long-name "Han'you-Denshi/IB glyph-images"
@@ -1987,6 +2094,17 @@
 	       registry "HanyoDenshi\\.HG-0$"
 	       mother ==hanyo-denshi/hg))
   (make-charset
+   '===hanyo-denshi/ip
+   "Han'you-Denshi/IP representative glyph-images."
+   '(long-name "Han'you-Denshi/IP glyph-images"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "HanyoDenshi\\.IP-0$"
+	       mother ==hanyo-denshi/ip))
+  (make-charset
    '===hanyo-denshi/jt
    "JT (Juuki Touitsu Moji) detailed glyph-images."
    '(long-name "Han'you-Denshi/JT glyph-images"
@@ -2451,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"
@@ -2678,6 +2805,175 @@
 	    hzk-max (+ hzk-min 65535))
       (setq i (1+ i))))
 
+  (make-charset '===hng-jou "HNG:誠實論卷八（P.2179）"
+		'(long-name "HNG/P2179"
+		  chars		256
+		  dimension	2
+		  registry	"hng-1$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-keg "HNG:華嚴經卷十六（S.2067）"
+		'(long-name "HNG/S2067"
+		  chars		256
+		  dimension	2
+		  registry	"hng-2$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-dng "HNG:大般涅槃經卷十一（S.81）"
+		'(long-name "HNG/S81"
+		  chars		256
+		  dimension	2
+		  registry	"hng-3$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (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 '===hng-hod "HNG:法藏和尚傳（高山寺本）"
+		'(long-name "HNG/法藏和尚"
+		  chars		256
+		  dimension	2
+		  registry	"hng-30$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-gok "HNG:後漢書光武帝紀"
+		'(long-name "HNG/光武帝紀"
+		  chars		256
+		  dimension	2
+		  registry	"hng-31$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-k24 "HNG:日本書紀 卷二十四（寛文九年版）"
+		'(long-name "HNG/寛九紀24"
+		  chars		256
+		  dimension	2
+		  registry	"hng-37$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kcj "HNG:日本書紀 卷二（慶長十五年版）"
+		'(long-name "HNG/慶長紀2"
+		  chars		256
+		  dimension	2
+		  registry	"hng-42$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kbk "HNG:日本書紀 卷二（寛文九年版）"
+		'(long-name "HNG/寛九紀2"
+		  chars		256
+		  dimension	2
+		  registry	"hng-43$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-sik "HNG:花嚴經卷八（新羅本寫本）"
+		'(long-name "HNG/花嚴新羅"
+		  chars		256
+		  dimension	2
+		  registry	"hng-44$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-skk "HNG:華嚴經卷二十（晉本高麗古版）"
+		'(long-name "HNG/古麗華20"
+		  chars		256
+		  dimension	2
+		  registry	"hng-46$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kyu "HNG:初麗瑜5"
+		'(long-name "HNG/瑜伽師地論卷五（高麗初彫本）"
+		  chars		256
+		  dimension	2
+		  registry	"hng-47$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-ksk "HNG:華嚴經卷六（高麗再彫本）"
+		'(long-name "HNG/再麗華6"
+		  chars		256
+		  dimension	2
+		  registry	"hng-48$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-wan "HNG:華嚴經卷三十八（趙氏藏本）"
+		'(long-name "HNG/和寧華38"
+		  chars		256
+		  dimension	2
+		  registry	"hng-49$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kss "HNG:華嚴信種義（明惠自筆）"
+		'(long-name "HNG/華嚴信種"
+		  chars		256
+		  dimension	2
+		  registry	"hng-64$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kyo "HNG:教行信証卷四（親鸞自筆）"
+		'(long-name "HNG/教行信証"
+		  chars		256
+		  dimension	2
+		  registry	"hng-66$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-smk "HNG:西夏版妙法蓮華經卷一"
+		'(long-name "HNG/西夏法華"
+		  chars		256
+		  dimension	2
+		  registry	"hng-74$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+
   (make-charset '=cbeta "CBETA private characters"
 		'(long-name	"CBETA PUA"
 		  chars		256
@@ -2808,6 +3104,16 @@
 		  direction	l2r
 		  registry	"rui6-0"
 		  mother	=ruimoku-v6))
+  (make-charset '===ruimoku-v6
+		"RUIMOKU Version.6 representative glyph-images."
+		'(long-name	"RUI6 rep-glyph-images."
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  registry	"rui6-0"
+		  mother	==ruimoku-v6))
   (make-charset '=>>ruimoku-v6
 		"RUIMOKU Version.6 glyphs"
 		'(long-name	"RUI6 glyphs"
@@ -2831,7 +3137,7 @@
 
   ;; (make-charset
   ;;  '=zihai-17xx
-  ;;  "ZhongHua-ZiHai (pp.1700$B!A(B1781) glyph-images"
+  ;;  "ZhongHua-ZiHai (pp.1700〜1781) glyph-images"
   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
   ;;              chars 256
   ;;              dimension 2
@@ -2873,6 +3179,37 @@
 		  =>iso-ir	177
 		  mother	=ucs))
 
+  (make-charset '=>iwds-1
+		"The IRG Working Document Series 1: List of UCV of Ideograhs."
+		'(long-name	"IWDS 1: List of UCV"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  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"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=ucs))
+
   (make-charset '=>ucs@hanyo-denshi
 		"UCS abstract characters based on Han'you-Denshi collection."
 		'(long-name	"UCS base characters of Han'you-Denshi"
@@ -3008,97 +3345,6 @@
 		  =>iso-ir	177
 		  mother	=+>ucs@unicode))
 
-  (make-charset '=>>ucs@iso
-		"Representative abstract-glyphs of ISO/IEC 10646"
-		'(long-name	"UCS abstract glyphs for UCS"
-		  chars		256
-		  dimension	3
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  =>iso-ir	177
-		  mother	=+>ucs@iso))
-  (make-charset '=>>ucs@unicode
-		"Representative abstract-glyphs of Unicode"
-		'(long-name	"Unicode abstract glyphs"
-		  chars		256
-		  dimension	3
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  =>iso-ir	177
-		  mother	=>>ucs@iso))
-  (make-charset '=>>ucs@jis
-		"UCS Representative abstract-glyphs for JIS X0208/0212/0213"
-		'(long-name	"UCS abstract glyphs for JIS"
-		  chars		256
-		  dimension	3
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  =>iso-ir	177
-		  mother	=>>ucs@unicode))
-  (make-charset '=>>ucs@jis/1990
-		"UCS Representative glyphs for JIS X 0208/0212:1990"
-		'(long-name	"UCS glyphs for JIS:1990"
-		  chars		256
-		  dimension	3
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  =>iso-ir	177
-		  mother	=>>ucs@jis))
-  (make-charset '=>>ucs@jis/2000
-		"UCS Representative glyphs for JIS X 0213:2000"
-		'(long-name	"UCS glyphs for JIS:2000"
-		  chars		256
-		  dimension	3
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  =>iso-ir	177
-		  mother	=>>ucs@jis))
-  (make-charset '=>>ucs@jis/2004
-		"UCS Representative glyphs for JIS X 0213:2004"
-		'(long-name	"UCS glyphs for JIS:2004"
-		  chars		256
-		  dimension	3
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  =>iso-ir	177
-		  mother	=>>ucs@jis))
-  (make-charset '=>>ucs@JP
-		"UCS abstract-glyphs based on Japanese style glyphs"
-		'(long-name	"UCS glyphs for JP"
-		  chars		256
-		  dimension	3
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  =>iso-ir	177
-		  mother	=>>ucs@jis/2004))
-  (make-charset '=>>ucs@ks
-		"UCS Representative glyphs for Korean Standards"
-		'(long-name	"UCS glyphs for KS"
-		  chars		256
-		  dimension	3
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  =>iso-ir	177
-		  mother	=>>ucs@unicode))
-  (make-charset '=>>ucs@cns
-		"UCS Representative glyphs for CNS 11643 sources"
-		'(long-name	"UCS glyphs for CNS"
-		  chars		256
-		  dimension	3
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  =>iso-ir	177
-		  mother	=>>ucs@unicode))
-
   (make-charset '=ucs@iso
 		"ISO/IEC 10646 for its representative glyphs"
 		'(long-name	"UCS for ISO"
@@ -3108,7 +3354,7 @@
 		  graphic	2
 		  direction	l2r
 		  =>iso-ir	177
-                  mother	=>>ucs@iso
+                  mother	=+>ucs@iso
 		  ))
   (make-charset '=ucs@unicode
 		"Unicode for its representative glyphs"
@@ -3347,6 +3593,97 @@
 		  =>iso-ir	177
 		  mother	=ucs@big5))
 
+  (make-charset '=>>ucs@iso
+		"Representative abstract-glyphs of ISO/IEC 10646"
+		'(long-name	"UCS abstract glyphs for UCS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=ucs@iso))
+  (make-charset '=>>ucs@unicode
+		"Representative abstract-glyphs of Unicode"
+		'(long-name	"Unicode abstract glyphs"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>ucs@iso))
+  (make-charset '=>>ucs@jis
+		"UCS Representative abstract-glyphs for JIS X0208/0212/0213"
+		'(long-name	"UCS abstract glyphs for JIS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>ucs@unicode))
+  (make-charset '=>>ucs@jis/1990
+		"UCS Representative glyphs for JIS X 0208/0212:1990"
+		'(long-name	"UCS glyphs for JIS:1990"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>ucs@jis))
+  (make-charset '=>>ucs@jis/2000
+		"UCS Representative glyphs for JIS X 0213:2000"
+		'(long-name	"UCS glyphs for JIS:2000"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>ucs@jis))
+  (make-charset '=>>ucs@jis/2004
+		"UCS Representative glyphs for JIS X 0213:2004"
+		'(long-name	"UCS glyphs for JIS:2004"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>ucs@jis))
+  (make-charset '=>>ucs@JP
+		"UCS abstract-glyphs based on Japanese style glyphs"
+		'(long-name	"UCS glyphs for JP"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>ucs@jis/2004))
+  (make-charset '=>>ucs@ks
+		"UCS Representative glyphs for Korean Standards"
+		'(long-name	"UCS glyphs for KS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>ucs@unicode))
+  (make-charset '=>>ucs@cns
+		"UCS Representative glyphs for CNS 11643 sources"
+		'(long-name	"UCS glyphs for CNS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=>>ucs@unicode))
+
   (make-charset '==ucs@iso
 		"Representative glyph-forms of ISO/IEC 10646."
 		'(long-name     "UCS glyph-forms for UCS"
@@ -3528,7 +3865,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"
@@ -3548,8 +3885,100 @@
 		  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"
+		'(long-name	"UCS-var-001"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs))
+  (make-charset '=ucs-bmp-var-001
+		"uXXXX-var-001 glyph-images in BMP"
+		'(long-name	"UCS-BMP-var-001"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs-var-001
+		  min-code #x2E00
+		  max-code #x9FCC
+		  registry "ucs\\.var001-0"))
+  (make-charset '=ucs-var-002
+		"uXXXX-var-002 glyph-images of GlyphWiki"
+		'(long-name	"UCS-var-002"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs))
+  (make-charset '=ucs-bmp-var-002
+		"uXXXX-var-002 glyph-images in BMP"
+		'(long-name	"UCS-BMP-var-002"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs-var-002
+		  min-code #x2E00
+		  max-code #x9FCC
+		  registry "ucs\\.var002-0"))
+  (make-charset '=ucs-var-003
+		"uXXXX-var-003 glyph-images of GlyphWiki"
+		'(long-name	"UCS-var-003"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs))
+  (make-charset '=ucs-bmp-var-003
+		"uXXXX-var-003 glyph-images in BMP"
+		'(long-name	"UCS-BMP-var-003"
+		  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-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"
@@ -3571,7 +4000,7 @@
                   ;; =>iso-ir	177
 		  mother	=ucs-itaiji-084
 		  min-code #x2E00
-		  max-code #x9FA5
+		  max-code #x9FCC
 		  registry "ucs\\.itaiji084-0"))
 
   (make-charset
@@ -3599,6 +4028,18 @@
 	       mother =ucs@unicode
 	       min-code #x2E00 max-code #x2FFF))
   (make-charset
+   '==ucs-radicals@unicode
+   "CJK Radicals of UCS"
+   '(long-name "UCS-Radicals"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "-zhRadicals-.*-ucs-0"
+	       mother ==ucs@unicode
+	       min-code #x2E00 max-code #x2FFF))
+  (make-charset
    '=ucs-hangul
    "Hangul Syllables of UCS"
    '(long-name "UCS-Hangul-Syllables"
@@ -3623,6 +4064,7 @@
 	       mother ucs-bmp
 	       min-code #x2E00
 	       max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3638,6 +4080,7 @@
 	       mother =ucs@gb
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3653,6 +4096,7 @@
 	       mother ==ucs@gb
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3668,6 +4112,7 @@
 	       mother ===ucs@gb
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3682,7 +4127,7 @@
 	       registry "-ja-.*-ucs-0"
 	       mother =ucs@JP
 	       min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3697,7 +4142,7 @@
 	       registry "-ja-.*-ucs-0"
 	       mother =ucs@JP/hanazono
 	       min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3712,7 +4157,7 @@
 	       registry "-ja-.*-ucs-0"
 	       mother ==ucs@JP/hanazono
 	       min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3728,6 +4173,7 @@
 	       mother =+>ucs@unicode
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3743,6 +4189,22 @@
 	       mother =>ucs@unicode
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
+	       ;; max-code #xA4CF
+	       ))
+  (make-charset
+   '=>ucs-bmp-cjk@component
+   "CJK Characters in BMP for IWDS-1 abstract components."
+   '(long-name "CJK in BMP@component"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "-ja-.*-ucs-0"
+	       mother =>ucs@component
+	       min-code #x2E00
+               max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3758,6 +4220,7 @@
 	       mother ==>ucs@bucs
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset