From 6552caa2f08642cddf4ff6bf7523b02759061b40 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 8 Jul 2017 19:31:21 +0900
Subject: [PATCH] (U-0002125A): Apply new conventions for glyph granularity.
 (IU+2125A): Unify BC-8ABB; add `<-ancient' for U+5C01; add
 `->mistakable' for UU+37B7. (g2-CB01819): Use g2-IU+21241
 instead of IU+21241 in `ideographic-structure'. (CU+2136E):
 Unify BC-87FC.

---
 lisp/utf-2000/Ideograph-R032-Earth.el |   62 +++++++++++++++++++++++++++++++--
 1 file changed, 60 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 877f392..ce2d43e 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -2200,9 +2200,64 @@
   '((ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 4)
     (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x37A2)	; 㞢
+      )
+     ((=ucs		  . #x571F)	; 土
+      ))
     (=ucs		. #x2125A)	; 𡉚
-    (=cns11643-6	. #x2666)	; &I-C6-2666; [06-70]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2125A)	; 𡉚
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 4)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x37A2)	; &C3-2162;
+      (=cns11643-3	  . #x2162)	; &C3-2162; [01-66]
+      (=daikanwa	  . 07829)	; &I-M-07829;
+      )
+     ((=ucs		  . #x571F)	; 土
+      ))
+    (=ucs@iso		. #x2125A)	; &C6-2666;
+    (=cns11643-6	. #x2666)	; &C6-2666; [06-70]
+    (=big5-cdp		. #x8ABB)	; &I-CDP-8ABB;
     (=daikanwa		. 04929)	; &I-M-04929;
+    (<-ancient
+     ((=ucs		  . #x5C01)	; 封
+      (=daikanwa	  . 07426)	; &I-M-07426;
+      ))
+    (<-ancient*sources
+     shuowen jiyun daikanwa)
+    (->mistakable
+     ((=ucs@unicode	  . #x37B7)	; &MJ000835;
+      (=mj		  . 000835)	; &MJ000835;
+      (=daikanwa	  . 07840)	; &I-M-07840;
+      ))
+    (->mistakable*sources
+     kangxi-biansi-2char daikanwa)
+    (->subsumptive
+     ((==ucs@iso	  . #x2125A)	; &g2-M-04929;
+      (==cns11643-6	  . #x2666)	; &g2-M-04929; [06-70]
+      (==daikanwa	  . 04929)	; &g2-M-04929;
+      (->subsumptive
+       ((===daikanwa	    . 04929)	; &R-M-04929;
+	)
+       ((===cns11643-6	    . #x2666)	; &R-C6-2666; [06-70]
+	)
+       ((===ucs@iso	    . #x2125A)	; &R-U-0002125A;
+	))
+      )
+     ((==big5-cdp	  . #x8ABB)	; &g2-CDP-8ABB;
+      ))
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
@@ -6856,7 +6911,7 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((=ucs@iso	    . #x21241)	; &U-00021241;
+       ((==ucs@iso	    . #x21241)	; &g2-IU-00021241;
 	)
        ((=ucs		    . #x6728)	; 木
 	))
@@ -12970,9 +13025,12 @@
       ))
     (=ucs@cns		. #x2136E)	; &C4-3675;
     (=cns11643-4	. #x3675)	; &C4-3675; [22-85]
+    (=big5-cdp		. #x87FC)	; &I-CDP-87FC;
     (->subsumptive
      ((==ucs@cns	  . #x2136E)	; &g2-CU+2136E;
       (==cns11643-4	  . #x3675)	; &g2-CU+2136E; [22-85]
+      )
+     ((==big5-cdp	  . #x87FC)	; &g2-CDP-87FC;
       ))
     ))
 (define-char
-- 
1.7.10.4