From 276f474c49c9ad7ddecb9f01e1fa950f9ae48674 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 17 Feb 2019 13:43:27 +0900
Subject: [PATCH] (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.

---
 lisp/utf-2000/Ideograph-R026-Seal.el |  100 +++++++++++++++++++++++++++++++++-
 1 file changed, 97 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index aef103d..91b4ef7 100644
--- 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)	; ⼙
-- 
1.7.10.4