From 45b9a221ac9e6587aaac78fe31c408952ec84d56 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 14 Aug 2024 16:00:17 +0900
Subject: [PATCH] (U+52C7): Use `<-denotational@usage' instead of
 `<-denotational' for BUCS+52C7; apply new conventions for
 glyph granularity. (A-U+52C7-itaiji-003): New abstract
 node. (U+52C7-itaiji-003): New character; use
 `<-denotational' for A-U+52C7-itaiji-003. (BUCS+52C7):
 Unify A2-DJT-00881.

---
 lisp/utf-2000/Ideograph-R019-Power.el |   86 ++++++++++++++++++++++++---------
 1 file changed, 62 insertions(+), 24 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 0848d4b..ec967d3 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -4095,16 +4095,20 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 19)	; ⼒
-    (==>ucs@bucs	. #x52C7)	; &BUCS+52C7;
-    ))
-(define-char
-  '((<-denotational
+  '((<-denotational@usage
      ((==>ucs@bucs	  . #x52C7)	; &BUCS+52C7;
       ))
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x752C)	; 甬
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
     (=ucs		. #x52C7)	; 勇
     (=>jis-x0208	. #x4D26)	; 勇 [45-06]
     (=>jis-x0213-1	. #x4D26)	; 勇 [45-06]
@@ -4113,6 +4117,7 @@
   '((<-denotational
      ((=ucs		  . #x52C7)	; 勇
       ))
+    (=>ucs*		. #x52C7)	; 勇
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
@@ -4121,11 +4126,13 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x752C)	; 甬
+     ((=ucs@unicode	  . #x752C)	; &AJ1-05708;
+      (=adobe-japan1-0	  . 05708)	; &AJ1-05708;
       )
      ((=ucs		  . #x529B)	; 力
       ))
-    (=ucs@unicode	. #x52C7)	; &MJ007667;
+    (=ucs		. #xFA76)	; 勇
+    (=ucs@unicode	. #x52C7)	; 勇
     (=ucs@JP/hanazono	. nil)
     (=mj		. 007667)	; &MJ007667;
     (=adobe-japan1-4	. 14070)	; &I-AJ1-14070;
@@ -4134,24 +4141,22 @@
     (=big5		. #xAB69)	; &I-B-AB69;
     (=hanyo-denshi/jt	. #xAE37)	; &I-HD-JT-AE37;
     (=daikanwa		. 02360)	; &I-M-02360;
-    (=shinjigen		.  0731)	; &MJ007667;
+    (=shinjigen		.  0731)	; 勇
     (=jef-china3	. #x44D4)	; &I-JC3-44D4;
     (->subsumptive
-     ((=>ucs*		  . #x52C7)	; 勇
-      (=decomposition@hanyo-denshi
+     ((=decomposition@hanyo-denshi
        ((=ucs		    . #x52C7)	; 勇
 	)
        ((=ucs		    . #xE0103)	; 󠄃
 	))
-      (=ucs		  . #xFA76)	; 勇
-      (==ucs@unicode	  . #x52C7)	; 勇
+      (==ucs@unicode	  . #x52C7)	; &g2-MJ007667;
       (==ucs@JP/hanazono  . nil)
-      (==mj		  . 007667)	; 勇
-      (==gb2312		  . #x5342)	; 勇 [51-34]
-      (==hanyo-denshi/jt  . #xAE37)	; 勇
-      (==daikanwa	  . 02360)	; 勇
-      (==shinjigen	  .  0731)	; 勇
-      (==jef-china3	  . #x44D4)	; 勇
+      (==mj		  . 007667)	; &g2-MJ007667;
+      (==gb2312		  . #x5342)	; &g2-MJ007667; [51-34]
+      (==hanyo-denshi/jt  . #xAE37)	; &g2-MJ007667;
+      (==daikanwa	  . 02360)	; &g2-MJ007667;
+      (==shinjigen	  .  0731)	; &g2-MJ007667;
+      (==jef-china3	  . #x44D4)	; &g2-MJ007667;
       (->subsumptive
        ((===daikanwa	    . 02360)	; &R-M-02360;
 	)
@@ -4208,10 +4213,9 @@
     (=daikanwa/+p	. 02360)	; 勇
     (=shinjigen		.  0730)	; 勇
     (<-vulgar
-     ((=ucs@unicode	  . #x52C7)	; &MJ007667;
-      (=mj		  . 007667)	; &MJ007667;
+     ((=ucs		  . #xFA76)	; 勇
       (=daikanwa	  . 02360)	; &I-M-02360;
-      (=shinjigen	  .  0731)	; &MJ007667;
+      (=shinjigen	  .  0731)	; 勇
       ))
     (<-vulgar*sources
      daikanwa shinjigen@1ed)
@@ -4226,7 +4230,7 @@
 	)
        ((=ucs		    . #xE0102)	; 󠄂
 	))
-      (==ucs@iso	  . #x2F825)	; &g2-MJ007668;
+      (==ucs@cns	  . #x2F825)	; &g2-MJ007668;
       (==ucs@jis	  . #x52C7)	; &g2-MJ007668;
       (==ucs@ks		  . #x52C7)	; &g2-MJ007668;
       (==mj		  . 007668)	; &g2-MJ007668;
@@ -4258,8 +4262,6 @@
 	)
        ((===cns11643-6	    . #x2F25)	; &R-C6-2F25; [15-05]
 	)
-       ((===ucs@iso	    . #x2F825)	; &R-U-0002F825;
-	)
        ((===hng-khi	    . 00160)	; &HNG010-00160;
 	))
       ))
@@ -4698,6 +4700,37 @@
     ))
 (define-char
   '((ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x24C04)	; 𤰄
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=>ucs-itaiji-003	. #x52C7)	; &A-U-i003+52C7;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-003	  . #x52C7)	; &A-U-i003+52C7;
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@iso		  . #x24C04)	; &U-00024C04;
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=ucs-itaiji-003	. #x52C7)	; &U-i003+52C7;
+    ))
+(define-char
+  '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
     (ideographic-structure
@@ -11435,6 +11468,11 @@
     ))
 (define-char
   '((ideographic-radical . 19)	; ⼒
+    (==>ucs@bucs	. #x52C7)	; &BUCS+52C7;
+    (==>daijiten	. 00881)	; &BUCS+52C7;
+    ))
+(define-char
+  '((ideographic-radical . 19)	; ⼒
     (==>ucs@bucs	. #x52F3)	; &BUCS+52F3;
     ))
 (define-char
-- 
1.7.10.4