From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 17 Jul 2024 13:08:04 +0000 (+0900)
Subject: Use `shuowen-tongxundingsheng' instead of `shuowen-tongxun-dingsheng'
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=be90f7e0d8e17706a14f4593e4797696d6fadaf7;p=chise%2Fxemacs-chise.git

Use `shuowen-tongxundingsheng' instead of `shuowen-tongxun-dingsheng'
as a source ID.
(U+51F6): Add `<-denotational@usage' for BUCS+51F6.
(g2-BC-8C5E): Omit `ideographic-structure'.
(g2-UU+342B): Likewise.
(BUCS+51F6): New abstract node; unify A2-DJT-00718.
---

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index 006f3a4..8b555a1 100644
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -166,6 +166,9 @@
   '((<-denotational
      ((=>ucs@cognate	  . #x51F6)	; &A-cgnU+51F6;
       ))
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x51F6)	; &BUCS+51F6;
+      ))
     (ideographic-radical . 17)	; ⼐
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
@@ -190,6 +193,7 @@
     (=gt-k		. 00412)	; &I-GT-K00412;
     (=gt-pj-1		. #x3627)	; &I-GT-02360; [22-07]
     (=daikanwa		. 01803)	; &I-M-01803;
+    (=daijiten		. 00718)	; &I-DJT-00718;
     (=shinjigen		.  0578)	; 凶
     (<-interchangeable
      ((=ucs		  . #x8A29)	; 訩
@@ -210,7 +214,7 @@
       (=daikanwa	  . 35464)	; &I-M-35464;
       ))
     (<-interchangeable$_1*sources
-     shuowen-tongxun-dingsheng daikanwa)
+     shuowen-tongxundingsheng daikanwa)
     (<-interchangeable$_2*sources
      jiyun daikanwa)
     (<-interchangeable$_3*sources
@@ -275,10 +279,13 @@
        ((===adobe-japan1-0  . 01695)	; &R-AJ1-01695;
 	))
       )
-     ((==ucs@unicode	  . #x51F6)	; &g2-UU+51F6;
+     ((==ucs@unicode	  . #x51F6)	; &g2-DJT-00718;
       (==ucs@JP/hanazono  . nil)
-      (==gb2312		  . #x5057)	; &g2-UU+51F6; [48-55]
+      (==gb2312		  . #x5057)	; &g2-DJT-00718; [48-55]
+      (==daijiten	  . 00718)	; &g2-DJT-00718;
       (->subsumptive
+       ((===daijiten	    . 00718)	; &R-DJT-00718;
+	)
        ((===ucs@unicode	    . #x51F6)	; &R-UU+51F6;
 	)
        ((===hng-kak	    . 00250)	; &HNG017-00250;
@@ -1443,19 +1450,7 @@
     (<-vulgar*sources
      pianhai-leibian daikanwa)
     (->subsumptive
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=+>ucs@unicode	    . #x4EA0)	; &o-J0-5035;
-	(=+>jis-x0208	    . #x5035)	; &o-J0-5035; [48-21]
-	)
-       ((==ucs@cns	    . #x51F6)	; &g2-AJ1-01695;
-	(==ucs@jis	    . #x51F6)	; &g2-AJ1-01695;
-	(==ucs@ks	    . #x51F6)	; &g2-AJ1-01695;
-	(==adobe-japan1-0   . 01695)	; &g2-AJ1-01695;
-	))
-      (==big5-cdp	  . #x8C5E)	; &g2-CDP-8C5E;
+     ((==big5-cdp	  . #x8C5E)	; &g2-CDP-8C5E;
       (==daikanwa/ho	  .  0008)	; &g2-CDP-8C5E;
       (==cbeta		  . 04846)	; &g2-CDP-8C5E;
       (==jef-china3	  . #x8DCD)	; &g2-CDP-8C5E;
@@ -1472,16 +1467,7 @@
      ((==ucs@cns	  . #x342B)	; &g2-CU+342B;
       (==cns11643-3	  . #x2323)	; &g2-CU+342B; [03-03]
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=+>ucs@unicode	    . #x4EA0)	; &o-J0-5035;
-	(=+>jis-x0208	    . #x5035)	; &o-J0-5035; [48-21]
-	)
-       ((==ucs@unicode	    . #x51F6)	; &g2-UU+51F6;
-	))
-      (==ucs@unicode	  . #x342B)	; &g2-UU+342B;
+     ((==ucs@unicode	  . #x342B)	; &g2-UU+342B;
       (==ucs@JP/hanazono  . nil)
       ))
     ))
@@ -3003,6 +2989,11 @@
     ))
 (define-char
   '((ideographic-radical . 17)	; ⼐
+    (==>ucs@bucs	. #x51F6)	; &BUCS+51F6;
+    (==>daijiten	. 00718)	; &BUCS+51F6;
+    ))
+(define-char
+  '((ideographic-radical . 17)	; ⼐
     (==>ucs@bucs	. #x51FC)	; &BUCS+51FC;
     ))
 (define-char