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.

diff --git a/lisp/utf-2000/Ideograph-R100-Life.el b/lisp/utf-2000/Ideograph-R100-Life.el
index 25c94ed..96e0c22 100644 (file)
--- 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)       ; 甤