From 80b5ef3937ba05091fbf441a373ec1370bafa455 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 6 Sep 2022 14:33:22 +0900
Subject: [PATCH] (U+5BD4): Apply new conventions for glyph granularity.
 (A2-DJT-02373): Unify BUCS+5BD4.

---
 lisp/utf-2000/Ideograph-R040-Roof.el |   52 +++++++++++++++++++++++++++++++---
 1 file changed, 48 insertions(+), 4 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 29d742a..843e84f 100644
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -12584,13 +12584,41 @@
     ))
 (define-char
   '((<-denotational@usage
-     ((==>daijiten	  . 02373)	; &A2-DJT-02373;
+     ((==>ucs@bucs	  . #x5BD4)	; &BUCS+5BD4;
       ))
     (ideographic-radical . 40)	; ⼧
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5B80)	; 宀
+      )
+     ((=ucs		  . #x662F)	; 是
+      ))
+    (sound@ja/on/go	"ziki")
+    (sound@ja/on/kan	"syoku")
     (=ucs		. #x5BD4)	; 寔
-    (=adobe-japan1-0	. 04629)	; &I-AJ1-04629;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5BD4)	; 寔
+      ))
+    (ideographic-radical . 40)	; ⼧
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5B80)	; 宀
+      )
+     ((=ucs@unicode	  . #x662F)	; &AJ1-02635;
+      (=adobe-japan1-0	  . 02635)	; &AJ1-02635;
+      ))
+    (=ucs@unicode	. #x5BD4)	; &AJ1-04629;
+    (=adobe-japan1-0	. 04629)	; &AJ1-04629;
     (=jis-x0208		. #x5566)	; &I-J90-5566; [53-70]
     (=ks-x1001		. #x6351)	; &I-K0-6351; [67-49]
     (=cns11643-2	. #x3B37)	; &I-C2-3B37; [27-23]
@@ -12601,7 +12629,22 @@
     (=gt-pj-1		. #x5566)	; &I-GT-09100; [53-70]
     (=daikanwa		. 07244)	; &I-M-07244;
     (=daijiten		. 02373)	; &I-DJT-02373;
-    (=shinjigen		.  1850)	; 寔
+    (=shinjigen		.  1850)	; &AJ1-04629;
+    (<-interchangeable
+     ((=ucs@unicode	  . #x5BE6)	; &AJ1-04632;
+      (=adobe-japan1-0	  . 04632)	; &AJ1-04632;
+      (=daikanwa	  . 07294)	; &I-M-07294;
+      )
+     ((=ucs@jis		  . #x5BD8)	; &AJ1-08435;
+      (=adobe-japan1-2	  . 08435)	; &AJ1-08435;
+      (=daikanwa	  . 07257)	; &I-M-07257;
+      ))
+    (<-interchangeable$_1*sources
+     zengyun liji-shu daikanwa)
+    (<-interchangeable$_2*sources
+     shiwen daikanwa)
+    (<-interchangeable*sources
+     daikanwa)
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x5BD4)	; 寔
@@ -23354,7 +23397,8 @@
     ))
 (define-char
   '((ideographic-radical . 40)	; ⼧
-    (==>daijiten	. 02373)	; &A2-DJT-02373;
+    (==>ucs@bucs	. #x5BD4)	; &BUCS+5BD4;
+    (==>daijiten	. 02373)	; &BUCS+5BD4;
     ))
 (define-char
   '((ideographic-radical . 40)	; ⼧
-- 
1.7.10.4