From 3f0d3c109818df94512e72dd33a38caf3d75dfd2 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 28 Nov 2019 00:25:31 +0900
Subject: [PATCH] (U-000209A7): Apply new conventions for glyph granularity.
 (M-02754): Add `<-denotational' for U-000209A7; unify
 IU+209A7, MJ031757 and KOSEKI-031970. (U-000209A8): Apply
 new conventions for glyph granularity. (M-02755): Add
 `<-denotational' for U-000209A8; unify IU+209A8, MJ031758
 and KOSEKI-031980. (U-000209A4): Add `<-denotational' for
 A-IWDSU+55AE; add `ideographic-structure'; add
 `sound@ja/on'.

---
 lisp/utf-2000/Ideograph-R024-Ten.el |  137 ++++++++++++++++++++++++++++++-----
 1 file changed, 120 insertions(+), 17 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R024-Ten.el b/lisp/utf-2000/Ideograph-R024-Ten.el
index 7baae03..9c43f8f 100644
--- a/lisp/utf-2000/Ideograph-R024-Ten.el
+++ b/lisp/utf-2000/Ideograph-R024-Ten.el
@@ -3185,22 +3185,124 @@
   '((ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (=daikanwa		. 02754)	; &M-02754;
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5E78)	; 幸
+      )
+     ((=ucs		  . #x5341)	; 十
+      ))
+    (sound@ja/on	"sIHu")
+    (=ucs		. #x209A7)	; 𠦧
     ))
 (define-char
-  '((ideographic-radical . 24)	; ⼗
+  '((<-denotational
+     ((=ucs		  . #x209A7)	; 𠦧
+      ))
+    (ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (=daikanwa		. 02755)	; &M-02755;
+    (hanyu-dazidian	1 65 3)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs@unicode	  . #x5E78)	; &MJ010951;
+      (=mj		  . 010951)	; &MJ010951;
+      )
+     ((=ucs		  . #x5341)	; 十
+      ))
+    (=ucs@iso		. #x209A7)	; &MJ031757;
+    (=mj		. 031757)	; &MJ031757;
+    (=koseki		. 031970)	; &MJ031757;
+    (=daikanwa		. 02754)	; &I-M-02754;
+    (->subsumptive
+     ((==ucs@iso	  . #x209A7)	; &g2-M-02754;
+      (==koseki		  . 031970)	; &g2-M-02754;
+      (==daikanwa	  . 02754)	; &g2-M-02754;
+      (->subsumptive
+       ((===daikanwa	    . 02754)	; &R-M-02754;
+	)
+       ((===ucs@iso	    . #x209A7)	; &R-U-000209A7;
+	)
+       ((=hanziku-1	    . #xB169)	; &HZK01-B169;
+	))
+      )
+     ((==mj		  . 031757)	; &g2-MJ031757;
+      ))
     ))
 (define-char
   '((ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>gt-k		  . 04647)	; &A-GT-K04647;
+      )
+     ((=ucs		  . #x5341)	; 十
+      ))
+    (sound@ja/on	"raN")
+    (=ucs		. #x209A8)	; 𠦨
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x209A8)	; 𠦨
+      ))
+    (ideographic-radical . 24)	; ⼗
+    (ideographic-strokes . 8)
+    (total-strokes	 . 10)
+    (hanyu-dazidian	1 65 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=gt-k		  . 04647)	; &GT-K04647;
+      )
+     ((=ucs		  . #x5341)	; 十
+      ))
+    (=ucs@iso		. #x209A8)	; &MJ031758;
+    (=mj		. 031758)	; &MJ031758;
+    (=koseki		. 031980)	; &MJ031758;
+    (=daikanwa		. 02755)	; &I-M-02755;
+    (->subsumptive
+     ((==ucs@iso	  . #x209A8)	; &g2-MJ031758;
+      (==mj		  . 031758)	; &g2-MJ031758;
+      (==koseki		  . 031980)	; &g2-MJ031758;
+      (==daikanwa	  . 02755)	; &g2-MJ031758;
+      (->subsumptive
+       ((===daikanwa	    . 02755)	; &R-M-02755;
+	)
+       ((===mj		    . 031758)	; &R-MJ031758;
+	)
+       ((===ucs@iso	    . #x209A8)	; &R-U-000209A8;
+	)
+       ((=hanziku-1	    . #xB16B)	; &HZK01-B16B;
+	))
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x55AE)	; &A-IWDSU+55AE;
+      ))
+    (ideographic-radical . 24)	; ⼗
+    (ideographic-strokes . 8)
+    (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x2BA4F)	; 𫩏
+      )
+     ((=big5-cdp	  . #x8BD9)	; &CDP-8BD9;
+      ))
+    (sound@ja/on	"taN")
     (=ucs		. #x209A4)	; 𠦤
     (=cns11643-6	. #x3566)	; &I-C6-3566; [21-70]
     (=daikanwa		. 02756)	; &I-M-02756;
-    (=shinjigen@1ed	.  1171)	; 𠦤
+    (=shinjigen		.  1171)	; 𠦤
     (<-simplified@misc
      ((=ucs		  . #x55AE)	; 單
       (=daikanwa	  . 03993)	; &I-M-03993;
@@ -3213,7 +3315,20 @@
       (=shinjigen	  .  1170)	; 單
       ))
     (<-vulgar*sources
-     shinjigen@1ed)
+     shinjigen)
+    (->subsumptive
+     ((==ucs@iso	  . #x209A4)	; &g2-M-02756;
+      (==cns11643-6	  . #x3566)	; &g2-M-02756; [21-70]
+      (==daikanwa	  . 02756)	; &g2-M-02756;
+      (==shinjigen	  .  1171)	; &g2-M-02756;
+      (->subsumptive
+       ((===daikanwa	    . 02756)	; &R-M-02756;
+	)
+       ((===cns11643-6	    . #x3566)	; &R-C6-3566; [21-70]
+	)
+       ((===ucs@iso	    . #x209A4)	; &R-U-000209A4;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 24)	; ⼗
@@ -4241,18 +4356,6 @@
     ))
 (define-char
   '((ideographic-radical . 24)	; ⼗
-    (hanyu-dazidian	1 65 3)
-    (=ucs		. #x209A7)	; 𠦧
-    (=hanziku-1		. #xB169)	; &I-HZK01-B169;
-    ))
-(define-char
-  '((ideographic-radical . 24)	; ⼗
-    (hanyu-dazidian	1 65 5)
-    (=ucs		. #x209A8)	; 𠦨
-    (=hanziku-1		. #xB16B)	; &I-HZK01-B16B;
-    ))
-(define-char
-  '((ideographic-radical . 24)	; ⼗
     (hanyu-dazidian	8 7 14)
     (=ucs		. #x209AE)	; 𠦮
     (=hanziku-12	. #xEB4D)	; &I-HZK12-EB4D;
-- 
1.7.10.4