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

Use `shuowen-tongxundingsheng' instead of `shuowen-tongxun-dingsheng'
as a source ID.
(U+533D): Add `<-denotational@usage' for A2-DJT-00980.
(CU+533D): Unify DJT-00980.
(A2-DJT-00980): New abstract node.
---

diff --git a/lisp/utf-2000/Ideograph-R023-Hiding-Enclosure.el b/lisp/utf-2000/Ideograph-R023-Hiding-Enclosure.el
index 4b8b808..f72439e 100644
--- a/lisp/utf-2000/Ideograph-R023-Hiding-Enclosure.el
+++ b/lisp/utf-2000/Ideograph-R023-Hiding-Enclosure.el
@@ -1086,7 +1086,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 23)	; ⼖
+  '((<-denotational@usage
+     ((==>daijiten	  . 00980)	; &A2-DJT-00980;
+      ))
+    (ideographic-radical . 23)	; ⼖
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
     (hanyu-dazidian	1 85 19)
@@ -1122,6 +1125,7 @@
     (=ucs@cns		. #x533D)	; &C2-2936;
     (=cns11643-2	. #x2936)	; &C2-2936; [09-22]
     (=daikanwa		. 02684)	; &I-M-02684;
+    (=daijiten		. 00980)	; &I-DJT-00980;
     (<-ancient
      ((=ucs@unicode	  . #x5043)	; &AJ1-04169;
       (=adobe-japan1-0	  . 04169)	; &AJ1-04169;
@@ -1136,11 +1140,11 @@
       (=daikanwa	  . 33268)	; &I-M-33268;
       ))
     (<-interchangeable$_1*sources
-     shuowen-tongxun-dingsheng hanshu-zhu daikanwa)
+     shuowen-tongxundingsheng hanshu-zhu daikanwa)
     (<-interchangeable$_2*sources
-     shuowen-tongxun-dingsheng daikanwa)
+     shuowen-tongxundingsheng daikanwa)
     (<-interchangeable*sources
-     shuowen-tongxun-dingsheng daikanwa)
+     shuowen-tongxundingsheng daikanwa)
     (->formed
      ((=ucs@unicode	  . #x5830)	; &AJ1-01283;
       (=adobe-japan1-0	  . 01283)	; &AJ1-01283;
@@ -1152,6 +1156,12 @@
      zhengzitong daikanwa)
     (->subsumptive
      ((==daikanwa	  . 02684)	; &g2-M-02684;
+      (==daijiten	  . 00980)	; &g2-M-02684;
+      (->subsumptive
+       ((===daikanwa	    . 02684)	; &R-M-02684;
+	)
+       ((===daijiten	    . 00980)	; &R-DJT-00980;
+	))
       )
      ((==ucs@cns	  . #x533D)	; &g2-CU+533D;
       (==cns11643-2	  . #x2936)	; &g2-CU+533D; [09-22]
@@ -2263,6 +2273,10 @@
     ))
 (define-char
   '((ideographic-radical . 23)	; ⼖
+    (==>daijiten	. 00980)	; &A2-DJT-00980;
+    ))
+(define-char
+  '((ideographic-radical . 23)	; ⼖
     (==>ucs@bucs	. #x5340)	; &BUCS+5340;
     (==>daijiten	. 00984)	; &BUCS+5340;
     ))