From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 28 Jul 2017 16:32:42 +0000 (+0900)
Subject: (U+4343): Add ideographic-structure.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c7404d5de7d92cd8963fc6e63a6c54408f6581c5;p=chise%2Fxemacs-chise.git.1

(U+4343): Add ideographic-structure.
---

diff --git a/lisp/utf-2000/Ideograph-R121-Jar.el b/lisp/utf-2000/Ideograph-R121-Jar.el
index 9d399df..4715308 100644
--- a/lisp/utf-2000/Ideograph-R121-Jar.el
+++ b/lisp/utf-2000/Ideograph-R121-Jar.el
@@ -2,24 +2,24 @@
 (define-char
   '((ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 0)
-    (=>ucs@component	. #x7F36)	; &IWDS1-295;
-    (=>iwds-1		.  0295)	; &IWDS1-295;
+    (=>ucs@component	. #x7F36)	; &A-compU+7F36;
+    (=>iwds-1		.  0295)	; &A-compU+7F36;
     ))
 (define-char
   '((ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 0)
     (total-strokes	 . 6)
-    (=>ucs@component	. #x26222)	; &IWDS1-390;
-    (=>iwds-1		.  0390)	; &IWDS1-390;
+    (=>ucs@component	. #x26222)	; &A-compU+26222;
+    (=>iwds-1		.  0390)	; &A-compU+26222;
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x26222)	; &IWDS1-390;
-      (=>iwds-1		  .  0390)	; &IWDS1-390;
+     ((=>ucs@component	  . #x26222)	; &A-compU+26222;
+      (=>iwds-1		  .  0390)	; &A-compU+26222;
       ))
     (<-denotational@component
-     ((=>ucs@component	  . #x7F36)	; &IWDS1-295;
-      (=>iwds-1		  .  0295)	; &IWDS1-295;
+     ((=>ucs@component	  . #x7F36)	; &A-compU+7F36;
+      (=>iwds-1		  .  0295)	; &A-compU+7F36;
       ))
     (ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 0)
@@ -76,8 +76,8 @@
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x26222)	; &IWDS1-390;
-      (=>iwds-1		  .  0390)	; &IWDS1-390;
+     ((=>ucs@component	  . #x26222)	; &A-compU+26222;
+      (=>iwds-1		  .  0390)	; &A-compU+26222;
       ))
     (ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 0)
@@ -264,6 +264,15 @@
   '((ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 4)
     (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x722B)	; &A-compU+722B;
+      )
+     ((=>ucs@component	  . #x7F36)	; &A-compU+7F36;
+      (=>iwds-1		  .  0295)	; &A-compU+7F36;
+      ))
     (=ucs		. #x4343)	; 䍃
     ))
 (define-char
@@ -273,6 +282,14 @@
     (ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 4)
     (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=big5-cdp	  . #x88F0)	; &CDP-88F0;
+      )
+     ((=ucs		  . #x7F36)	; 缶
+      ))
     (=ucs@cns		. #x4343)	; &JX2-7461;
     (=ucs@jis		. #x4343)	; &JX2-7461;
     (=cns11643-4	. #x2F29)	; &JX2-7461; [15-09]
@@ -316,6 +333,15 @@
     (ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 4)
     (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((name		  . "CJK RADICAL PAW ONE")
+      (=ucs		  . #x2EA4)	; ⺤
+      )
+     ((=ucs		  . #x2067B)	; 𠙻
+      ))
     (=gt		. 36228)	; &GT-36228;
     (=gt-k		. 06075)	; &I-GT-K06075;
     (=gt-pj-9		. #x7230)	; &GT-36228; [82-16]
@@ -330,6 +356,14 @@
     (ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 4)
     (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x722B)	; 爫
+      )
+     ((=ucs		  . #x7F36)	; 缶
+      ))
     (=+>ucs@unicode	. #x4343)	; &o-UU+4343;
     ))
 (define-char
@@ -339,8 +373,25 @@
     (ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 4)
     (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@cns		  . #x722B)	; &GT-25225;
+      (=ucs@jis		  . #x722B)	; &GT-25225;
+      (=jis-x0212	  . #x4A48)	; &GT-25225; [42-40]
+      (=cns11643-4	  . #x2151)	; &I-C4-2151; [01-49]
+      (=jis-x0213-2	  . #x702A)	; &I-JX2-702A; [80-10]
+      (=daikanwa	  . 19655)	; &I-M-19655;
+      )
+     ((=ucs		  . #x7F36)	; 缶
+      ))
     (=gt-k		. 07305)	; &GT-K07305;
     (=gt-pj-k1		. #x3B43)	; &GT-K07305; [27-35]
+    (->subsumptive
+     ((==gt-k		  . 07305)	; &g2-GT-K07305;
+      (==gt-pj-k1	  . #x3B43)	; &g2-GT-K07305; [27-35]
+      ))
     ))
 (define-char
   '((<-denotational
@@ -349,10 +400,26 @@
     (ideographic-radical . 121)	; ⽸
     (ideographic-strokes . 4)
     (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((name		  . "CJK RADICAL PAW ONE")
+      (=ucs		  . #x2EA4)	; ⺤
+      )
+     ((=ucs		  . #x7F36)	; 缶
+      ))
     (=ucs@unicode	. #x4343)	; &GT-K07393;
     (=ucs@JP/hanazono	. nil)
     (=gt-k		. 07393)	; &GT-K07393;
     (=gt-pj-k2		. #x3E49)	; &GT-K07393; [30-41]
+    (->subsumptive
+     ((==ucs@unicode	  . #x4343)	; &g2-UU+4343;
+      (==ucs@JP/hanazono  . nil)
+      )
+     ((==gt-k		  . 07393)	; &g2-GT-K07393;
+      (==gt-pj-k2	  . #x3E49)	; &g2-GT-K07393; [30-41]
+      ))
     ))
 (define-char
   '((ideographic-radical . 121)	; ⽸