From 1d1250fb27bc5dad54c2244e1e6f69430f920c45 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 11 May 2022 21:34:48 +0900
Subject: [PATCH] (U+51A0): Apply new conventions for glyph granularity.
 (A2-DJT-00646): Unify BUCS+51A0.

---
 lisp/utf-2000/Ideograph-R014-Cover.el |   42 ++++++++++++++++++++++++++++-----
 1 file changed, 36 insertions(+), 6 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R014-Cover.el b/lisp/utf-2000/Ideograph-R014-Cover.el
index 099cf54..c7386e2 100644
--- a/lisp/utf-2000/Ideograph-R014-Cover.el
+++ b/lisp/utf-2000/Ideograph-R014-Cover.el
@@ -1186,22 +1186,42 @@
     ))
 (define-char
   '((<-denotational@usage
-     ((==>daijiten	  . 00646)	; &A2-DJT-00646;
+     ((==>ucs@bucs	  . #x51A0)	; &BUCS+51A0;
       ))
     (ideographic-radical . 14)	; ⼍
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (hanyu-dazidian	1 303 18)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
      ((=ucs		  . #x5196)	; 冖
       )
-     ((=big5-cdp	  . #x8DB7)	; &CDP-8DB7;
+     ((=ucs		  . #x3774)	; 㝴
       ))
+    (sound@ja/on	"kWaN")
     (=ucs		. #x51A0)	; 冠
-    (=adobe-japan1-0	. 01507)	; &I-AJ1-01507;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x51A0)	; 冠
+      ))
+    (ideographic-radical . 14)	; ⼍
+    (ideographic-strokes . 7)
+    (total-strokes	 . 9)
+    (hanyu-dazidian	1 303 18)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5196)	; 冖
+      )
+     ((=ucs@unicode	  . #x3774)	; &C4-2371;
+      (=cns11643-4	  . #x2371)	; &C4-2371; [03-81]
+      (=daikanwa	  . 07417)	; &I-M-07417;
+      ))
+    (=ucs@unicode	. #x51A0)	; &AJ1-01507;
+    (=adobe-japan1-0	. 01507)	; &AJ1-01507;
     (=jis-x0208		. #x3427)	; &I-J90-3427; [20-07]
     (=gb2312		. #x395A)	; &I-G0-395A; [25-58]
     (=ks-x1001		. #x4E2E)	; &I-K0-4E2E; [46-14]
@@ -1213,7 +1233,16 @@
     (=gt-pj-1		. #x3427)	; &I-GT-02084; [20-07]
     (=daikanwa		. 01580)	; &I-M-01580;
     (=daijiten		. 00646)	; &I-DJT-00646;
-    (=shinjigen		.  0528)	; 冠
+    (=shinjigen		.  0528)	; &AJ1-01507;
+    (<-interchangeable
+     ((=ucs@cns		  . #x9E1B)	; &C1-7D49;
+      (=cns11643-1	  . #x7D49)	; &C1-7D49; [93-41]
+      (=daikanwa	  . 47500)	; &I-M-47500;
+      ))
+    (<-interchangeable$_1*sources
+     daikanwa)
+    (<-interchangeable*sources
+     daikanwa)
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x51A0)	; 冠
@@ -3765,7 +3794,8 @@
     ))
 (define-char
   '((ideographic-radical . 14)	; ⼍
-    (==>daijiten	. 00646)	; &A2-DJT-00646;
+    (==>ucs@bucs	. #x51A0)	; &BUCS+51A0;
+    (==>daijiten	. 00646)	; &BUCS+51A0;
     ))
 (define-char
   '((ideographic-radical . 14)	; ⼍
-- 
1.7.10.4