From 1a43ca9071c11a57419385562bade2d6b4a0015b Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 23 Jul 2024 09:43:00 +0900
Subject: [PATCH] Use `shuowen-tongxundingsheng' instead of
 `shuowen-tongxun-dingsheng' as a source ID.
 (U+7523-itaiji-002): Use `<-denotational@usage' instead of
 `<-denotational' for BUCS+7522. (A-IWDSU+7522): Delete
 `<-denotational' for BUCS+7522. (U+7522): Add
 `<-denotational@usage' for BUCS+7522; unify DJT-07464.
 (U+7523): Add `<-denotational@usage' for BUCS+7522.
 (BUCS+7522): Unify A2-DJT-07464.

---
 lisp/utf-2000/Ideograph-R100-Life.el |   72 +++++++++++++++++++---------------
 1 file changed, 40 insertions(+), 32 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R100-Life.el b/lisp/utf-2000/Ideograph-R100-Life.el
index 25c94ed..96e0c22 100644
--- a/lisp/utf-2000/Ideograph-R100-Life.el
+++ b/lisp/utf-2000/Ideograph-R100-Life.el
@@ -412,6 +412,28 @@
     (=daikanwa		. 21681)	; &I-M-21681;
     ))
 (define-char
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x7522)	; &BUCS+7522;
+      ))
+    (ideographic-radical . 100)	; â½£
+    (ideographic-strokes . 5)
+    (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x7ACB)	; 立
+      )
+     ((=ucs		  . #x9FB6)	; 龶
+      ))
+    (=ucs-itaiji-002	. #x7523)	; &U-i002+7523;
+    (<-formed
+     ((=ucs		  . #x7523)	; 産
+      )
+     ((=ucs		  . #x7522)	; 產
+      ))
+    ))
+(define-char
   '((ideographic-radical . 100)	; â½£
     (ideographic-strokes . 6)
     (total-strokes	 . 11)
@@ -477,15 +499,6 @@
   '((ideographic-radical . 100)	; â½£
     (ideographic-strokes . 6)
     (total-strokes	 . 11)
-    (==>ucs@bucs	. #x7522)	; &BUCS+7522;
-    ))
-(define-char
-  '((<-denotational
-     ((==>ucs@bucs	  . #x7522)	; &BUCS+7522;
-      ))
-    (ideographic-radical . 100)	; â½£
-    (ideographic-strokes . 6)
-    (total-strokes	 . 11)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -505,6 +518,9 @@
      ((=>ucs@iwds-1	  . #x7522)	; &J97-3B3A;
       (=>jis-x0208	  . #x3B3A)	; &J97-3B3A; [27-26]
       ))
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x7522)	; &BUCS+7522;
+      ))
     (ideographic-radical . 100)	; â½£
     (ideographic-strokes . 6)
     (total-strokes	 . 11)
@@ -521,6 +537,7 @@
     (=ucs		. #x7522)	; 產
     (=cns11643-1	. #x5C28)	; &I-C1-5C28; [60-08]
     (=daikanwa		. 21684)	; &I-M-21684;
+    (=daijiten		. 07464)	; &I-DJT-07464;
     (=shinjigen		.  5010)	; 產
     (=jef-china3	. #x5ABF)	; &I-JC3-5ABF;
     (<-interchangeable
@@ -542,7 +559,7 @@
       (=daikanwa	  . 26435)	; &I-M-26435;
       ))
     (<-interchangeable$_1*sources
-     shuowen-tongxun-dingsheng daikanwa)
+     shuowen-tongxundingsheng daikanwa)
     (<-interchangeable$_2*sources
      kangxi daikanwa)
     (<-interchangeable$_3*sources
@@ -575,10 +592,13 @@
      daikanwa)
     (->subsumptive
      ((==daikanwa	  . 21684)	; &g2-M-21684;
+      (==daijiten	  . 07464)	; &g2-M-21684;
       (==jef-china3	  . #x5ABF)	; &g2-M-21684;
       (->subsumptive
        ((===daikanwa	    . 21684)	; &R-M-21684;
 	)
+       ((===daijiten	    . 07464)	; &R-DJT-07464;
+	)
        ((===jef-china3	    . #x5ABF)	; &R-JC3-5ABF;
 	))
       )
@@ -593,31 +613,12 @@
     ))
 (define-char
   '((<-denotational
-     ((==>ucs@bucs	  . #x7522)	; &BUCS+7522;
-      ))
-    (ideographic-radical . 100)	; â½£
-    (ideographic-strokes . 5)
-    (total-strokes	 . 9)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
-      )
-     ((=ucs		  . #x7ACB)	; 立
-      )
-     ((=ucs		  . #x9FB6)	; 龶
-      ))
-    (=ucs-itaiji-002	. #x7523)	; &U-i002+7523;
-    (<-formed
-     ((=ucs		  . #x7523)	; 産
-      )
-     ((=ucs		  . #x7522)	; 產
-      ))
-    ))
-(define-char
-  '((<-denotational
      ((=>ucs@iwds-1	  . #x7522)	; &J97-3B3A;
       (=>jis-x0208	  . #x3B3A)	; &J97-3B3A; [27-26]
       ))
+    (<-denotational@usage
+     ((==>ucs@bucs	  . #x7522)	; &BUCS+7522;
+      ))
     (ideographic-radical . 100)	; â½£
     (ideographic-strokes . 6)
     (total-strokes	 . 11)
@@ -706,6 +707,13 @@
     ))
 (define-char
   '((ideographic-radical . 100)	; â½£
+    (ideographic-strokes . 6)
+    (total-strokes	 . 11)
+    (==>ucs@bucs	. #x7522)	; &BUCS+7522;
+    (==>daijiten	. 07464)	; &BUCS+7522;
+    ))
+(define-char
+  '((ideographic-radical . 100)	; â½£
     (ideographic-strokes . 7)
     (total-strokes	 . 12)
     (=ucs		. #x7524)	; 甤
-- 
1.7.10.4