From 8bc6ec4a3cb31a2690fd707d3f3d33c72b52927a Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 5 Jun 2024 06:56:51 +0900
Subject: [PATCH] (U+9878): Add `<-denotational@usage' for BUCS+9878; apply
 new conventions for glyph granularity. (U-00022194): New
 character. (M-09179): Unify U-00022196, MJ035221 and
 KOSEKI-103880.

---
 lisp/utf-2000/Ideograph-R051-Dry.el |  111 ++++++++++++++++++++++++++++++++---
 1 file changed, 104 insertions(+), 7 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R051-Dry.el b/lisp/utf-2000/Ideograph-R051-Dry.el
index e115fa0..2e1e327 100644
--- a/lisp/utf-2000/Ideograph-R051-Dry.el
+++ b/lisp/utf-2000/Ideograph-R051-Dry.el
@@ -1438,17 +1438,114 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 51)	; â¼²
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x9878)	; &BUCS+9878;
+      ))
+    (ideographic-radical . 51)	; â¼²
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5E72)	; å¹²
+      )
+     ((=ucs		  . #x9875)	; 页
+      ))
     (=ucs		. #x9878)	; 顸
-    (=gb2312		. #x717C)	; &I-G0-717C; [81-92]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x9878)	; 顸
+      ))
+    (ideographic-radical . 51)	; â¼²
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5E72)	; å¹²
+      )
+     ((name		  . "CJK RADICAL C-SIMPLIFIED LEAF")
+      (=ucs		  . #x2EDA)	; ⻚
+      ))
+    (=ucs@unicode	. #x9878)	; &G0-717C;
+    (=gb2312		. #x717C)	; &G0-717C; [81-92]
+    (<-simplified@CN
+     ((=ucs@unicode	  . #x9807)	; &JSP-6773;
+      (=jis-x0212	  . #x6773)	; &JSP-6773; [71-83]
+      (=cns11643-2	  . #x4151)	; &I-C2-4151; [33-49]
+      (=gb12345		  . #x717C)	; &JSP-6773; [81-92]
+      (=daikanwa	  . 43351)	; &I-M-43351;
+      ))
+    (->subsumptive
+     ((==ucs@unicode	  . #x9878)	; &g2-UU+9878;
+      (==gb2312		  . #x717C)	; &g2-UU+9878; [81-92]
+      (->subsumptive
+       ((===ucs@unicode	    . #x9878)	; &R-UU+9878;
+	))
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 51)	; â¼²
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@iwds-1	  . #x5405)	; &A-IWDSU+5405;
+      (=>iwds-1		  .  0398)	; &A-IWDSU+5405;
+      )
+     ((=ucs		  . #x5E72)	; å¹²
+      ))
+    (=ucs		. #x22194)	; 𢆔
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x22194)	; 𢆔
+      ))
+    (ideographic-radical . 51)	; â¼²
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5405)	; 吅
+      )
+     ((=ucs		  . #x5E72)	; å¹²
+      ))
+    (=ucs@iso		. #x22194)	; &U-00022194;
     ))
 (define-char
   '((ideographic-radical . 51)	; â¼²
     (ideographic-strokes . 7)
     (total-strokes	 . 10)
-    (=daikanwa		. 09179)	; &M-09179;
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x543E)	; 吾
+      )
+     ((=ucs		  . #x5E72)	; å¹²
+      ))
+    (=ucs		. #x22196)	; 𢆖
+    (=mj		. 035221)	; &I-MJ035221;
+    (=koseki		. 103880)	; 𢆖
+    (=daikanwa		. 09179)	; &I-M-09179;
+    (->subsumptive
+     ((==ucs@iso	  . #x22196)	; &g2-MJ035221;
+      (==mj		  . 035221)	; &g2-MJ035221;
+      (==koseki		  . 103880)	; &g2-MJ035221;
+      (==daikanwa	  . 09179)	; &g2-MJ035221;
+      (->subsumptive
+       ((===daikanwa	    . 09179)	; &R-M-09179;
+	)
+       ((===mj		    . 035221)	; &R-MJ035221;
+	)
+       ((===ucs@iso	    . #x22196)	; &R-U-00022196;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 51)	; â¼²
@@ -1935,14 +2032,14 @@
     ))
 (define-char
   '((ideographic-radical . 51)	; â¼²
-    (==>daijiten	. 02905)	; &A2-DJT-02905;
+    (==>ucs@bucs	. #x9878)	; &BUCS+9878;
+    (==>daijiten	. 13303)	; &BUCS+9878;
     ))
 (define-char
   '((ideographic-radical . 51)	; â¼²
-    (==>daijiten	. 02904)	; &A2-DJT-02904;
+    (==>daijiten	. 02905)	; &A2-DJT-02905;
     ))
 (define-char
   '((ideographic-radical . 51)	; â¼²
-    (==>ucs@bucs	. #x9878)	; &BUCS+9878;
-    (==>daijiten	. 13303)	; &BUCS+9878;
+    (==>daijiten	. 02904)	; &A2-DJT-02904;
     ))
-- 
1.7.10.4