From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 30 Apr 2018 14:30:35 +0000 (+0900)
Subject: (U-000212AE): Use A-IWDSU+8881 instead of A-compU+8881 as its mother;
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=2034af3238e7412a77654e150d13ca658bf694ad

(U-000212AE): Use A-IWDSU+8881 instead of A-compU+8881 as its mother;
add `ideographic-structure'.
(IU+212AE): Use BC-8845-var-001 in `ideographic-structure'.
(A-IWDSU+8881): Changed from A-compU+8881; unify IWDS1-31293
[0293+0312] instead of IWDS1-0293.
(U-000212E1): Use A-IWDSU+8881 instead of A-compU+8881 as its mother.
---

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 71848c5..ef681d5 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -5333,12 +5333,20 @@
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x8881)	; &A-compU+8881;
-      (=>iwds-1		  .  0293)	; &A-compU+8881;
+     ((=>ucs@iwds-1	  . #x8881)	; &A-IWDSU+8881;
+      (=>iwds-1		  .  31293)	; &A-IWDSU+8881;
       ))
     (ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x571F)	; 土
+      )
+     ((=+>big5-cdp	  . #x8845)	; &o-CDP-8845;
+      ))
     (=ucs		. #x212AE)	; 𡊮
     ))
 (define-char
@@ -5366,14 +5374,12 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
     (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-      (=ucs		  . #x2FF3)	; ⿳
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
       )
      ((=ucs		  . #x571F)	; 土
       )
-     ((=big5-cdp	  . #x89C2)	; &CDP-89C2;
-      )
-     ((=big5-cdp	  . #x8CC6)	; &CDP-8CC6;
+     ((=big5-cdp-var-001  . #x8845)	; &CDP-v001-8845;
       ))
     (=ucs@iso		. #x212AE)	; &U-000212AE;
     (->subsumptive
@@ -5387,8 +5393,18 @@
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
-    (=>ucs@component	. #x8881)	; &A-compU+8881;
-    (=>iwds-1		.  0293)	; &A-compU+8881;
+    (=>iwds-1*note	"0293+0312; 0293@IRGN2019")
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x571F)	; &A-compU+571F;
+      (=>iwds-1		  .  0312)	; &A-compU+571F;
+      )
+     ((=>iwds-1		  .  0293)	; &IWDS1-293;
+      ))
+    (=>ucs@iwds-1	. #x8881)	; &A-IWDSU+8881;
+    (=>iwds-1		.  31293)	; &A-IWDSU+8881;
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
@@ -7083,8 +7099,8 @@
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@component	  . #x8881)	; &A-compU+8881;
-      (=>iwds-1		  .  0293)	; &A-compU+8881;
+     ((=>ucs@iwds-1	  . #x8881)	; &A-IWDSU+8881;
+      (=>iwds-1		  .  31293)	; &A-IWDSU+8881;
       ))
     (ideographic-radical . 32)	; ⼟
     (ideographic-structure