From 073c951fe150d5f8f3d1b2bc98ca5a578b1a1904 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 8 Jul 2017 15:02:21 +0900
Subject: [PATCH] (U-00021BC4): Apply new conventions for glyph granularity;
 unify BC-8DC2. (MJ057365): Unify U-0002D552.

---
 lisp/utf-2000/Ideograph-R043-Lame.el |   38 ++++++++++++++++++++++++++++------
 1 file changed, 32 insertions(+), 6 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R043-Lame.el b/lisp/utf-2000/Ideograph-R043-Lame.el
index 5e702a9..dbf1afb 100644
--- a/lisp/utf-2000/Ideograph-R043-Lame.el
+++ b/lisp/utf-2000/Ideograph-R043-Lame.el
@@ -339,12 +339,36 @@
   '((ideographic-radical . 43)	; ⼪
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
+      (=ucs		  . #x2FFA)	; ⿺
+      )
+     ((=ucs		  . #x5C22)	; å°¢
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (sound@ja/on/go	"riki")
+    (sound@ja/on/kan	"ryoku")
     (=ucs		. #x21BC4)	; 𡯄
+    (=cns11643-5	. #x2165)	; &I-C5-2165; [01-69]
+    (=big5-cdp		. #x8DC2)	; &I-CDP-8DC2;
+    (=daikanwa		. 07544)	; &I-M-07544;
     (->subsumptive
-     ((=daikanwa	  . 07544)	; &M-07544;
+     ((==big5-cdp	  . #x8DC2)	; &g2-CDP-8DC2;
+      (==daikanwa	  . 07544)	; &g2-CDP-8DC2;
+      (->subsumptive
+       ((===daikanwa	    . 07544)	; &R-M-07544;
+	)
+       ((===big5-cdp	    . #x8DC2)	; &R-CDP-8DC2;
+	))
       )
-     ((=ucs@iso		  . #x21BC4)	; &C5-2165;
-      (=cns11643-5	  . #x2165)	; &C5-2165; [01-69]
+     ((==ucs@iso	  . #x21BC4)	; &g2-IU-00021BC4;
+      (==cns11643-5	  . #x2165)	; &g2-IU-00021BC4; [01-69]
+      (->subsumptive
+       ((===cns11643-5	    . #x2165)	; &R-C5-2165; [01-69]
+	)
+       ((===ucs@iso	    . #x21BC4)	; &R-U-00021BC4;
+	))
       ))
     ))
 (define-char
@@ -1822,15 +1846,17 @@
       )
      ((=ucs		  . #x5C24)	; å°¤
       ))
-    (=mj		. 057365)	; &MJ057365;
-    (=koseki		. 086490)	; &MJ057365;
+    (=ucs		. #x2D552)	; 𭕒
+    (=mj		. 057365)	; &I-MJ057365;
+    (=koseki		. 086490)	; 𭕒
     (<-formed
      ((=ucs		  . #x5C31)	; å°±
       ))
     (<-formed*sources
      hng)
     (->subsumptive
-     ((==mj		  . 057365)	; &g2-MJ057365;
+     ((==ucs@JP/hanazono  . #x2D552)	; &g2-MJ057365;
+      (==mj		  . 057365)	; &g2-MJ057365;
       (==koseki		  . 086490)	; &g2-MJ057365;
       )
      ((===hng-khi	  . 03470)	; &HNG010-03470;
-- 
1.7.10.4