From 7dc9d2d3bd1505ea2874ba1aa089b5c984cb84ce Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 21 Apr 2017 14:39:10 +0900
Subject: [PATCH 1/1] (U-00020860): Add `ideographic-structure'; add
 `<-vulgar' for UU+52D1; add representative nodes.
 (U-0002089A): Apply new conventions for glyph
 granularity. (M-02432): Unify MJ031559 and
 KOSEKI-028260. (U-000208B7): Apply new conventions for
 glyph granularity.

---
 lisp/utf-2000/Ideograph-R019-Power.el |  125 ++++++++++++++++++++++++++++++---
 1 file changed, 114 insertions(+), 11 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 34bfa1d..826713c 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -2680,9 +2680,36 @@
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x6765)	; 来
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
     (=ucs		. #x20860)	; ð ¡ 
     (=cns11643-6	. #x2F26)	; &I-C6-2F26; [15-06]
     (=daikanwa		. 02357)	; &I-M-02357;
+    (<-vulgar
+     ((=ucs@unicode	  . #x52D1)	; &AJ1-17326;
+      (=adobe-japan1-5	  . 17326)	; &AJ1-17326;
+      (=daikanwa	  . 02380)	; &I-M-02380;
+      ))
+    (<-vulgar*sources
+     pianhai daikanwa)
+    (->subsumptive
+     ((==ucs@iso	  . #x20860)	; &g2-M-02357;
+      (==cns11643-6	  . #x2F26)	; &g2-M-02357; [15-06]
+      (==daikanwa	  . 02357)	; &g2-M-02357;
+      (->subsumptive
+       ((===daikanwa	    . 02357)	; &R-M-02357;
+	)
+       ((===cns11643-6	    . #x2F26)	; &R-C6-2F26; [15-06]
+	)
+       ((===ucs@iso	    . #x20860)	; &R-U-00020860;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 19)	; ⼒
@@ -6307,6 +6334,14 @@
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 11)
     (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x7737)	; 眷
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
     (=ucs		. #x2089A)	; 𠢚
     ))
 (define-char
@@ -6316,8 +6351,31 @@
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 11)
     (total-strokes	 . 13)
+    (=>mj		. 031559)	; &A-MJ031559;
     (->subsumptive
-     ((=daikanwa	  . 02432)	; &M-02432;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs@jis	    . #x7737)	; &MJ018201;
+	(=ucs@ks	    . #x7737)	; &MJ018201;
+	(=mj		    . 018201)	; &MJ018201;
+	)
+       ((=ucs		    . #x529B)	; 力
+	))
+      (=mj		  . 031559)	; &MJ031559;
+      (=koseki		  . 028260)	; &MJ031559;
+      (=daikanwa	  . 02432)	; &I-M-02432;
+      (->subsumptive
+       ((==mj		    . 031559)	; &g2-MJ031559;
+	(==koseki	    . 028260)	; &g2-MJ031559;
+	(==daikanwa	    . 02432)	; &g2-MJ031559;
+	(->subsumptive
+	 ((===daikanwa	      . 02432)	; &R-M-02432;
+	  )
+	 ((===mj	      . 031559)	; &R-MJ031559;
+	  ))
+	))
       )
      ((=hanziku-1	  . #xF3EC)	; &HZK01-F3EC;
       ))
@@ -6329,7 +6387,20 @@
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 11)
     (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs@unicode	  . #x7737)	; &C1-5C37;
+      (=gb2312		  . #x3E6C)	; &C1-5C37; [30-76]
+      (=cns11643-1	  . #x5C37)	; &I-C1-5C37; [60-23]
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
     (=ucs@iso		. #x2089A)	; &U-0002089A;
+    (->subsumptive
+     ((==ucs@iso	  . #x2089A)	; &g2-IU-0002089A;
+      ))
     ))
 (define-char
   '((<-denotational
@@ -7317,18 +7388,50 @@
 (define-char
   '((ideographic-radical . 19)	; ⼒
     (=ucs		. #x208B7)	; ð ¢·
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x208B7)	; ð ¢·
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 14)
+    (total-strokes	 . 16)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x20860)	; ð ¡ 
+      )
+     ((=ucs		  . #x56F0)	; 困
+      ))
+    (=ucs@iso		. #x208B7)	; &M-02466;
+    (=daikanwa		. 02466)	; &M-02466;
     (->subsumptive
-     ((ideographic-strokes . 14)
-      (total-strokes	   . 16)
-      (->subsumptive
-       ((=daikanwa	    . 02466)	; &M-02466;
-	)
-       ((=ucs@iso	    . #x208B7)	; &U-000208B7;
-	))
+     ((==daikanwa	  . 02466)	; &g2-M-02466;
       )
-     ((ideographic-strokes . 15)
-      (total-strokes	   . 17)
-      (=cns11643-5	  . #x5A7C)	; &C5-5A7C; [58-92]
+     ((==ucs@iso	  . #x208B7)	; &g2-IU-000208B7;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x208B7)	; ð ¢·
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 15)
+    (total-strokes	 . 17)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x52D1)	; 勑
+      )
+     ((=ucs		  . #x56F0)	; 困
+      ))
+    (=ucs@cns		. #x208B7)	; &C5-5A7C;
+    (=cns11643-5	. #x5A7C)	; &C5-5A7C; [58-92]
+    (->subsumptive
+     ((==ucs@cns	  . #x208B7)	; &g2-CU+208B7;
+      (==cns11643-5	  . #x5A7C)	; &g2-CU+208B7; [58-92]
       ))
     ))
 (define-char
-- 
1.7.10.4