From 2535460fa32a65b80f5023b133143c39ddb23f3f Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 16 Oct 2024 13:43:30 +0900
Subject: [PATCH] (U-00024D67): Apply new conventions for glyph granularity.
 (U-00024D53): Add `<-Zhouwen' for U-00024D3F and U+3F86.

---
 lisp/utf-2000/Ideograph-R104-Sickness.el |   42 +++++++++++++++++++++++++++---
 1 file changed, 39 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R104-Sickness.el b/lisp/utf-2000/Ideograph-R104-Sickness.el
index f310045..c242110 100644
--- a/lisp/utf-2000/Ideograph-R104-Sickness.el
+++ b/lisp/utf-2000/Ideograph-R104-Sickness.el
@@ -1110,7 +1110,8 @@
     (=ucs@iso		. #x24D3F)	; &M-22060;
     (=daikanwa		. 22060)	; &M-22060;
     (->Zhouwen
-     ((=ucs		  . #x24D67)	; 𤵧
+     ((=ucs@iso		  . #x24D67)	; &C4-2E3E;
+      (=cns11643-4	  . #x2E3E)	; &C4-2E3E; [14-30]
       (=daikanwa	  . 22080)	; &I-M-22080;
       ))
     (->Zhouwen*sources
@@ -1576,10 +1577,36 @@
       )
      ((=ucs		  . #x7592)	; 疒
       )
-     ((=ucs		  . #x378B)	; 㞋
+     ((=>ucs@component	  . #x378B)	; &A-compU+378B;
       ))
     (=ucs		. #x24D67)	; 𤵧
-    (=cns11643-4	. #x2E3E)	; &I-C4-2E3E; [14-30]
+    (<-Zhouwen
+     ((=ucs		  . #x24D3F)	; 𤴿
+      )
+     ((=ucs		  . #x3F86)	; 㾆
+      ))
+    (<-Zhouwen$_1*sources
+     shuowen)
+    (<-Zhouwen$_2*sources
+     shuowen)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x24D67)	; 𤵧
+      ))
+    (ideographic-radical . 104)	; ⽧
+    (ideographic-strokes . 5)
+    (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x7592)	; 疒
+      )
+     ((=ucs-itaiji-001	  . #x20B1D)	; &U-i001+20B1D;
+      ))
+    (=ucs@iso		. #x24D67)	; &C4-2E3E;
+    (=cns11643-4	. #x2E3E)	; &C4-2E3E; [14-30]
     (=daikanwa		. 22080)	; &I-M-22080;
     (<-Zhouwen
      ((=ucs@iso		  . #x24D3F)	; &M-22060;
@@ -1616,6 +1643,15 @@
      ((=ucs		  . #x20B1D)	; 𠬝
       ))
     (=ucs		. #x24D53)	; 𤵓
+    (<-Zhouwen
+     ((=ucs		  . #x24D3F)	; 𤴿
+      )
+     ((=ucs		  . #x3F86)	; 㾆
+      ))
+    (<-Zhouwen$_1*sources
+     shuowen)
+    (<-Zhouwen$_2*sources
+     shuowen)
     (->subsumptive
      ((==ucs@iso	  . #x24D53)	; &g2-IU-00024D53;
       ))
-- 
1.7.10.4