From 84cb1fdcc686a3c16cde29ef7e8b1a8a3fbf1d6b Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 10 Dec 2024 17:02:50 +0900
Subject: [PATCH] (U+5763): Add `<-denotational@usage' for BUCS+5802 and
 BUCS+584B; apply new conventions for glyph granularity.
 (U-0002140B): Apply new conventions for glyph granularity.
 (U+3676): Add `<-Zhouwen' for U+5802. (BUCS+584B): New
 abstract node.

---
 lisp/utf-2000/Ideograph-R032-Earth.el |  120 ++++++++++++++++++++++++++++++---
 1 file changed, 110 insertions(+), 10 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 088fff2..89e9768 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -6728,14 +6728,78 @@
     (=cns11643-2	. #x257E)	; &C2-257E; [05-94]
     ))
 (define-char
-  '((ideographic-radical . 32)	; ⼟
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x5802)	; &BUCS+5802;
+      )
+     ((==>ucs@bucs	  . #x584B)	; &BUCS+584B;
+      ))
+    (ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
-    (hanyu-dazidian	1 431 2)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x9FB8)	; 龸
+      )
+     ((=>ucs@iwds-1	  . #x571F)	; &A-IWDSU+571F;
+      (=>iwds-1		  .  0312)	; &A-IWDSU+571F;
+      ))
+    (sound@ja/on	"dAu")
     (=ucs		. #x5763)	; 坣
-    (=cns11643-3	. #x2825)	; &I-C3-2825; [08-05]
+    (<-ancient
+     ((=ucs		  . #x5802)	; 堂
+      ))
+    (<-ancient$_1*sources
+     shuowen)
+    (<-ancient*sources
+     shuowen)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5763)	; 坣
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (hanyu-dazidian	1 431 2)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x9FB8)	; &GT-K01410;
+      (=gt-k		  . 01410)	; &GT-K01410;
+      )
+     ((=ucs		  . #x571F)	; 土
+      ))
+    (=ucs@unicode	. #x5763)	; &C3-2825;
+    (=cns11643-3	. #x2825)	; &C3-2825; [08-05]
     (=daikanwa		. 04968)	; &I-M-04968;
-    (=hanziku-2		. #xA8D2)	; &I-HZK02-A8D2;
+    (=daijiten		. 01713)	; &I-DJT-01713;
+    (<-ancient
+     ((=ucs@unicode	  . #x5802)	; &AJ1-03210;
+      (=adobe-japan1-0	  . 03210)	; &AJ1-03210;
+      (=daikanwa	  . 05207)	; &I-M-05207;
+      ))
+    (<-ancient*sources
+     shuowen daikanwa)
+    (->subsumptive
+     ((==ucs@unicode	  . #x5763)	; &g2-M-04968;
+      (==cns11643-3	  . #x2825)	; &g2-M-04968; [08-05]
+      (==daikanwa	  . 04968)	; &g2-M-04968;
+      (==daijiten	  . 01713)	; &g2-M-04968;
+      (->subsumptive
+       ((===daikanwa	    . 04968)	; &R-M-04968;
+	)
+       ((===daijiten	    . 01713)	; &R-DJT-01713;
+	)
+       ((===cns11643-3	    . #x2825)	; &R-C3-2825; [08-05]
+	)
+       ((===ucs@unicode	    . #x5763)	; &R-UU+5763;
+	)
+       ((=hanziku-2	    . #xA8D2)	; &HZK02-A8D2;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
@@ -35214,7 +35278,34 @@
      ((=ucs		  . #x66F9)	; 曹
       ))
     (=ucs		. #x2140B)	; 𡐋
-    (=cbeta		. 04021)	; &I-CB04021;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2140B)	; 𡐋
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 11)
+    (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=gt-k		  . 00199)	; &GT-K00199;
+      )
+     ((=ucs@unicode	  . #x66F9)	; &AJ1-02788;
+      (=adobe-japan1-0	  . 02788)	; &AJ1-02788;
+      ))
+    (=ucs@iso		. #x2140B)	; &CB04021;
+    (=cbeta		. 04021)	; &CB04021;
+    (->subsumptive
+     ((==ucs@iso	  . #x2140B)	; &g2-CB04021;
+      (==cbeta		  . 04021)	; &g2-CB04021;
+      (->subsumptive
+       ((===ucs@iso	    . #x2140B)	; &R-U-0002140B;
+	)
+       ((===cbeta	    . 04021)	; &R-CB04021;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
@@ -40921,6 +41012,11 @@
       ))
     (sound@ja/on	"dAu")
     (=ucs		. #x3676)	; 㙶
+    (<-Zhouwen
+     ((=ucs		  . #x5802)	; 堂
+      ))
+    (<-Zhouwen$_1*sources
+     shuowen)
     ))
 (define-char
   '((<-denotational
@@ -47456,6 +47552,15 @@
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
+    (==>ucs@bucs	. #x5802)	; &BUCS+5802;
+    (==>daijiten	. 01765)	; &BUCS+5802;
+    ))
+(define-char
+  '((ideographic-radical . 32)	; ⼟
+    (==>ucs@bucs	. #x584B)	; &BUCS+584B;
+    ))
+(define-char
+  '((ideographic-radical . 32)	; ⼟
     (==>ucs@bucs	. #x5769)	; &BUCS+5769;
     (==>daijiten	. 01691)	; &BUCS+5769;
     ))
@@ -47529,11 +47634,6 @@
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
-    (==>ucs@bucs	. #x5802)	; &BUCS+5802;
-    (==>daijiten	. 01765)	; &BUCS+5802;
-    ))
-(define-char
-  '((ideographic-radical . 32)	; ⼟
     (==>daijiten	. 01766)	; &A2-DJT-01766;
     ))
 (define-char
-- 
1.7.10.4