From 0d5f9764a2cb9bb2a20825019144c1a6bf8df15f Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 20 Jul 2024 23:11:52 +0900
Subject: [PATCH] Use `shuowen-tongxundingsheng' instead of
 `shuowen-tongxun-dingsheng' as a source ID. (U+6BD4): Add
 `<-denotational@usage' for BUCS+6BD4. (UU+6BD4): Unify
 DJT-05841. (BUCS+6BD4): New abstract node; unify
 A2-DJT-05841.

---
 lisp/utf-2000/Ideograph-R081-Compare.el |   18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R081-Compare.el b/lisp/utf-2000/Ideograph-R081-Compare.el
index 59eebf2..8a28887 100644
--- a/lisp/utf-2000/Ideograph-R081-Compare.el
+++ b/lisp/utf-2000/Ideograph-R081-Compare.el
@@ -19,6 +19,9 @@
   '((<-denotational@component
      ((=>ucs@iwds-1	  . #x6BD4)	; &A-IWDSU+6BD4;
       ))
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x6BD4)	; &BUCS+6BD4;
+      ))
     (ideographic-radical . 81)	; ⽐
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
@@ -63,6 +66,7 @@
     (=gt-k		. 00477)	; &I-GT-K00477;
     (=gt-pj-1		. #x4866)	; &I-GT-21460; [40-70]
     (=daikanwa		. 16743)	; &I-M-16743;
+    (=daijiten		. 05841)	; &I-DJT-05841;
     (=shinjigen		.  4012)	; &AJ1-03450;
     (<-formed
      ((=ucs@unicode	  . #x5E80)	; &AJ1-19347;
@@ -82,11 +86,11 @@
       (=daikanwa	  . 14528)	; &I-M-14528;
       ))
     (<-interchangeable$_1*sources
-     shuowen-tongxun-dingsheng daikanwa)
+     shuowen-tongxundingsheng daikanwa)
     (<-interchangeable$_2*sources
-     shuowen-tongxun-dingsheng shiwen daikanwa)
+     shuowen-tongxundingsheng shiwen daikanwa)
     (<-interchangeable*sources
-     shuowen-tongxun-dingsheng daikanwa)
+     shuowen-tongxundingsheng daikanwa)
     (<-same
      ((=ucs@unicode	  . #x5E80)	; &AJ1-19347;
       (=adobe-japan1-5	  . 19347)	; &AJ1-19347;
@@ -144,10 +148,13 @@
 	(==gt		    . 21460)	; &g2-AJ1-03450;
 	(==gt-k		    . 00477)	; &g2-AJ1-03450;
 	(==daikanwa	    . 16743)	; &g2-AJ1-03450;
+	(==daijiten	    . 05841)	; &g2-AJ1-03450;
 	(==shinjigen	    .  4012)	; &g2-AJ1-03450;
 	(->subsumptive
 	 ((===daikanwa	      . 16743)	; &R-M-16743;
 	  )
+	 ((===daijiten	      . 05841)	; &R-DJT-05841;
+	  )
 	 ((===jis-x0208	      . #x4866)	; &R-J0-4866; [40-70]
 	  (===jis-x0213-1     . #x4866)	; &R-J0-4866; [40-70]
 	  )
@@ -1915,3 +1922,8 @@
   '((ideographic-radical . 81)	; ⽐
     (=>ucs@component	. #x3C8B)	; &A-compU+3C8B;
     ))
+(define-char
+  '((ideographic-radical . 81)	; ⽐
+    (==>ucs@bucs	. #x6BD4)	; &BUCS+6BD4;
+    (==>daijiten	. 05841)	; &BUCS+6BD4;
+    ))
-- 
1.7.10.4