From 50c801df15306d1a7dc4bfed992123fb7d10ecfa Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 16 Aug 2024 07:27:29 +0900
Subject: [PATCH] (<CJK RADICAL SECOND THREE>): Add `<-denotational@component'
 for A-compU+4E41; add `ideographic-radical' and
 `ideographic-strokes'; use `->subsumptive'.

---
 lisp/utf-2000/u02E00-CJK-Radical-Supplement.el |   26 ++++++++++++++++--------
 1 file changed, 17 insertions(+), 9 deletions(-)

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 5c5934a..0fc81a4 100644
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -45,10 +45,15 @@
       ))
     ))
 (define-char
-  '((name		. "CJK RADICAL SECOND THREE")
+  '((<-denotational@component
+     ((=>ucs@component	  . #x4E41)	; &A-compU+4E41;
+      ))
+    (name		. "CJK RADICAL SECOND THREE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (ideographic-radical . 5)	; ⼄
+    (ideographic-strokes . 0)
     (total-strokes	 . 1)
     (=ucs		. #x2E84)	; ⺄
     (=big5-cdp		. #x8D43)	; &I-CDP-8D43;
@@ -57,14 +62,17 @@
     (<-formed@component
      ((=ucs		  . #x4E59)	; 乙
       ))
-    ))
-(define-char
-  '((=>ucs		. #x2E84)	; ⺄
-    (total-strokes	 . 1)
-    (=gt-k		. 00007)	; &GT-K00007;
-    (=gt-pj-k1		. #x302D)	; &GT-K00007; [16-13]
-    (<-formed@component
-     ((=ucs		  . #x4E59)	; 乙
+    (->subsumptive
+     ((==big5-cdp	  . #x8D43)	; &g2-CDP-8D43;
+      (==gt-k		  . 00008)	; &g2-CDP-8D43;
+      (==gt-pj-k1	  . #x302E)	; &g2-CDP-8D43; [16-14]
+      )
+     ((=gt-k		  . 00007)	; &GT-K00007;
+      (=gt-pj-k1	  . #x302D)	; &GT-K00007; [16-13]
+      (->subsumptive
+       ((==gt-k		    . 00007)	; &g2-GT-K00007;
+	(==gt-pj-k1	    . #x302D)	; &g2-GT-K00007; [16-13]
+	))
       ))
     ))
 (define-char
-- 
1.7.10.4