(U+537C): Add `ideographic-structure'; add `sound@ja/on/{kan|go}'.

(C2-2973): Unify CU+537C, MJ007908 and KOSEKI-033210; add some
relations for other characters; add representative nodes.
(UU+537C): Add representative nodes.

diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index aef103d..91b4ef7 100644 (file)
--- a/lisp/utf-2000/Ideograph-R026-Seal.el
+++ b/lisp/utf-2000/Ideograph-R026-Seal.el
@@ -1923,6 +1923,16 @@
   '((ideographic-radical . 26) ; ⼙
     (ideographic-strokes . 7)
     (total-strokes      . 9)
+    (ideographic-structure
+     ((=>ucs@iwds-1      . #x2FFA)     ; &A-IWDSU+2FFA;
+      (=>iwds-1                  .  0307)      ; &A-IWDSU+2FFA;
+      )
+     ((=ucs              . #x5140)     ; 兀
+      )
+     ((=ucs              . #x5371)     ; 危
+      ))
+    (sound@ja/on/go    "goti")
+    (sound@ja/on/kan   "gotu")
     (=ucs              . #x537C)       ; 卼
     ))
 (define-char
@@ -1938,11 +1948,89 @@
       )
      ((=ucs              . #x5140)     ; 兀
       )
-     ((=ucs              . #x5371)     ; 危
+     ((=ucs@unicode      . #x5371)     ; &MJ007888;
+      (=mj               . 007888)     ; &MJ007888;
       ))
-    (=cns11643-2       . #x2937)       ; &C2-2937; [09-23]
+    (=ucs@cns          . #x537C)       ; &MJ007908;
+    (=mj               . 007908)       ; &MJ007908;
+    (=cns11643-2       . #x2937)       ; &I-C2-2937; [09-23]
     (=big5             . #xCDF5)       ; &I-B-CDF5;
+    (=koseki           . 033210)       ; &MJ007908;
     (=daikanwa         . 02868)        ; &I-M-02868;
+    (<-formed
+     ((=ucs@unicode      . #x674C)     ; &JX2-2E3E;
+      (=gb2312           . #x683B)     ; &JX2-2E3E; [72-27]
+      (=jis-x0212        . #x427B)     ; &I-JSP-427B; [34-91]
+      (=cns11643-2       . #x2442)     ; &I-C2-2442; [04-34]
+      (=jis-x0213-2      . #x2E3E)     ; &I-JX2-2E3E; [14-30]
+      (=daikanwa         . 14457)      ; &I-M-14457;
+      )
+     ((=ucs              . #x6264)     ; 扤
+      ))
+    (<-formed$_1*sources
+     koseki mj)
+    (<-formed*sources
+     koseki mj)
+    (<-same
+     ((=ucs@unicode      . #x674C)     ; &JX2-2E3E;
+      (=gb2312           . #x683B)     ; &JX2-2E3E; [72-27]
+      (=jis-x0212        . #x427B)     ; &I-JSP-427B; [34-91]
+      (=cns11643-2       . #x2442)     ; &I-C2-2442; [04-34]
+      (=jis-x0213-2      . #x2E3E)     ; &I-JX2-2E3E; [14-30]
+      (=daikanwa         . 14457)      ; &I-M-14457;
+      ))
+    (<-same$_1*sources
+     shiwen daikanwa)
+    (<-same*sources
+     shiwen daikanwa)
+    (->formed
+     ((=ucs@unicode      . #x3433)     ; &MJ000034;
+      (=mj               . 000034)     ; &MJ000034;
+      (=daikanwa         . 00389)      ; &I-M-00389;
+      )
+     ((=ucs@iso                  . #x20484)    ; &C6-2950;
+      (=cns11643-6       . #x2950)     ; &C6-2950; [09-48]
+      (=daikanwa         . 01373)      ; &I-M-01373;
+      )
+     ((=ucs              . #x26919)    ; 𦤙
+      (=daikanwa         . 30126)      ; &I-M-30126;
+      ))
+    (->formed$_1*sources
+     yunhai daikanwa)
+    (->formed$_2*sources
+     jiyun daikanwa)
+    (->formed$_3*sources
+     jiyun daikanwa)
+    (->formed*sources
+     daikanwa)
+    (->interchangeable
+     ((=ucs@unicode      . #x674C)     ; &JX2-2E3E;
+      (=gb2312           . #x683B)     ; &JX2-2E3E; [72-27]
+      (=jis-x0212        . #x427B)     ; &I-JSP-427B; [34-91]
+      (=cns11643-2       . #x2442)     ; &I-C2-2442; [04-34]
+      (=jis-x0213-2      . #x2E3E)     ; &I-JX2-2E3E; [14-30]
+      (=daikanwa         . 14457)      ; &I-M-14457;
+      )
+     ((=mj               . 007207)     ; &MJ007207;
+      ))
+    (->interchangeable$_1*sources
+     yunhai)
+    (->interchangeable*sources
+     yunhai)
+    (->subsumptive
+     ((==ucs@cns         . #x537C)     ; &g2-MJ007908;
+      (==mj              . 007908)     ; &g2-MJ007908;
+      (==cns11643-2      . #x2937)     ; &g2-MJ007908; [09-23]
+      (==koseki                  . 033210)     ; &g2-MJ007908;
+      (==daikanwa        . 02868)      ; &g2-MJ007908;
+      (->subsumptive
+       ((===daikanwa       . 02868)    ; &R-M-02868;
+       )
+       ((===mj             . 007908)   ; &R-MJ007908;
+       )
+       ((===cns11643-2     . #x2937)   ; &R-C2-2937; [09-23]
+       ))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -1957,9 +2045,15 @@
       )
      ((=ucs              . #x5140)     ; 兀
       )
-     ((=ucs              . #x5371)     ; 危
+     ((=ucs@unicode      . #x5371)     ; &MJ007888;
+      (=mj               . 007888)     ; &MJ007888;
       ))
     (=ucs@unicode      . #x537C)       ; &UU+537C;
+    (=ucs@JP/hanazono  . nil)
+    (->subsumptive
+     ((==ucs@unicode     . #x537C)     ; &g2-UU+537C;
+      (==ucs@JP/hanazono  . nil)
+      ))
     ))
 (define-char
   '((ideographic-radical . 26) ; ⼙