From bfbd8d1676b847925b000e8ae34ba1b49c4a82fb Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 31 May 2017 00:54:07 +0900
Subject: [PATCH] (JU+5F25): Unify CB12752; add `<-same' for UU+5F4C.
 (U+38C6): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R057-Bow.el |   53 +++++++++++++++++++++++++++++++++--
 1 file changed, 50 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R057-Bow.el b/lisp/utf-2000/Ideograph-R057-Bow.el
index 7bd42d7..dd4104b 100644
--- a/lisp/utf-2000/Ideograph-R057-Bow.el
+++ b/lisp/utf-2000/Ideograph-R057-Bow.el
@@ -1623,6 +1623,14 @@
     (=gt-pj-1		. #x4C6F)	; &I-GT-12292; [44-79]
     (=daikanwa		. 09753)	; &I-M-09753;
     (=shinjigen		.  2276)	; &AJ1-03835;
+    (=cbeta		. 12752)	; &I-CB12752;
+    (<-same
+     ((=ucs@unicode	  . #x5F4C)	; &AJ1-04776;
+      (=adobe-japan1-0	  . 04776)	; &AJ1-04776;
+      (=daikanwa	  . 09877)	; &I-M-09877;
+      ))
+    (<-same*sources
+     yupian daikanwa)
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x5F25)	; å¼¥
@@ -1662,6 +1670,8 @@
        ((===gt		    . 12292)	; &R-GT-12292;
 	(===gt-k	    . 03844)	; &R-GT-12292;
 	))
+      )
+     ((==cbeta		  . 12752)	; &g2-CB12752;
       ))
     ))
 (define-char
@@ -5575,12 +5585,36 @@
     ))
 (define-char
   '((ideographic-radical . 57)	; ⼸
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5F13)	; 弓
+      )
+     ((=ucs		  . #x74BD)	; 璽
+      ))
+    (=ucs		. #x38C6)	; 㣆
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x38C6)	; 㣆
+      ))
+    (ideographic-radical . 57)	; ⼸
     (ideographic-strokes . 18)
     (total-strokes	 . 21)
-    (=ucs		. #x38C6)	; 㣆
-    (=cns11643-3	. #x5E2E)	; &I-C3-5E2E; [62-14]
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs@unicode	  . #x5F13)	; &AJ1-01655;
+      (=adobe-japan1-0	  . 01655)	; &AJ1-01655;
+      )
+     ((=ucs-itaiji-001	  . #x74BD)	; &U-i001+74BD;
+      ))
+    (=ucs@unicode	. #x38C6)	; &C3-5E2E;
+    (=cns11643-3	. #x5E2E)	; &C3-5E2E; [62-14]
     (=daikanwa		. 09900)	; &I-M-09900;
-    (=shinjigen		.  2278)	; 㣆
+    (=shinjigen		.  2278)	; &C3-5E2E;
     (<-original
      ((=ucs@unicode	  . #x5F4C)	; &AJ1-04776;
       (=adobe-japan1-0	  . 04776)	; &AJ1-04776;
@@ -5589,6 +5623,19 @@
       ))
     (<-original*sources
      shinjigen)
+    (->subsumptive
+     ((==ucs@unicode	  . #x38C6)	; &g2-M-09900;
+      (==cns11643-3	  . #x5E2E)	; &g2-M-09900; [62-14]
+      (==daikanwa	  . 09900)	; &g2-M-09900;
+      (==shinjigen	  .  2278)	; &g2-M-09900;
+      (->subsumptive
+       ((===daikanwa	    . 09900)	; &R-M-09900;
+	)
+       ((===cns11643-3	    . #x5E2E)	; &R-C3-5E2E; [62-14]
+	)
+       ((===ucs@unicode	    . #x38C6)	; &R-UU+38C6;
+	))
+      ))
     ))
 (define-char
   '((=>ucs		. #x22447)	; 𢑇
-- 
1.7.10.4