From 74a28624b20d3f20a7243668e1981baf2360a8d2 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 4 Jan 2023 17:37:44 +0900
Subject: [PATCH] (U+52B4): Apply new conventions for glyph granularity.
 (A-U+52B4-itaiji-001): New abstract node; use
 `<-denotational' for U+52B4. (U+52B4-itaiji-001): New
 character; use `<-denotational' for A-U+52B4-itaiji-001.

---
 lisp/utf-2000/Ideograph-R019-Power.el |   70 +++++++++++++++++++++++++++++++--
 1 file changed, 67 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 96abba6..6cc8178 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -1930,12 +1930,37 @@
   '((<-denotational@usage
      ((==>ucs@bucs	  . #x52DE)	; &BUCS+52DE;
       ))
-    (script		JP Jouyou Ideograph)
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x9FB8)	; &A-compU+9FB8;
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
     (=ucs		. #x52B4)	; 労
-    (=adobe-japan1-0	. 04049)	; &I-AJ1-04049;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x52B4)	; 労
+      ))
+    (script		JP Jouyou Ideograph)
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 5)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x300EE)	; 𰃮
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=ucs@unicode	. #x52B4)	; &AJ1-04049;
+    (=adobe-japan1-0	. 04049)	; &AJ1-04049;
     (=jis-x0208		. #x4F2B)	; &I-J90-4F2B; [47-11]
     (=cns11643-3	. #x2462)	; &I-C3-2462; [04-66]
     (=jis-x0213-1	. #x4F2B)	; &I-JX1-4F2B; [47-11]
@@ -1943,7 +1968,8 @@
     (=gt-k		. 02676)	; &I-GT-K02676;
     (=gt-pj-1		. #x4F2B)	; &I-GT-02987; [47-11]
     (=daikanwa		. 02329)	; &I-M-02329;
-    (=shinjigen		.  0717)	; 労
+    (=daijiten		. 00868)	; &I-DJT-00868;
+    (=shinjigen		.  0717)	; &AJ1-04049;
     (<-simplified@JP/Jouyou
      ((=ucs		  . #x52DE)	; 勞
       (=jis-x0208	  . #x5229)	; &I-J90-5229; [50-09]
@@ -1966,10 +1992,13 @@
       (==gt		  . 02987)	; &g2-AJ1-04049;
       (==gt-k		  . 02676)	; &g2-AJ1-04049;
       (==daikanwa	  . 02329)	; &g2-AJ1-04049;
+      (==daijiten	  . 00868)	; &g2-AJ1-04049;
       (==shinjigen	  .  0717)	; &g2-AJ1-04049;
       (->subsumptive
        ((===daikanwa	    . 02329)	; &R-M-02329;
 	)
+       ((===daijiten	    . 00868)	; &R-DJT-00868;
+	)
        ((===jis-x0208	    . #x4F2B)	; &R-J0-4F2B; [47-11]
 	(===jis-x0213-1	    . #x4F2B)	; &R-J0-4F2B; [47-11]
 	)
@@ -1985,6 +2014,41 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x52B4)	; 労
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 5)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x9FB8)	; 龸
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=>ucs-itaiji-001	. #x52B4)	; &A-U-i001+52B4;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-001	  . #x52B4)	; &A-U-i001+52B4;
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 5)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x9FB8)	; &GT-K01410;
+      (=gt-k		  . 01410)	; &GT-K01410;
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=ucs-itaiji-001	. #x52B4)	; &U-i001+52B4;
+    ))
+(define-char
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
-- 
1.7.10.4