From 959380304b7b13314d16e783c8058374b417e56d Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 30 Mar 2017 15:46:07 +0900
Subject: [PATCH] (U-000200D1): Use `->denotational' and `->subsumptive'.
 (IU+200D1): Add `sound@ja/on'; add `<-Small-Seal' for
 U+4E5A; add `->Bopomofo' for <BOPOMOFO LETTER EN>.
 (g2-IU+200D1): Unify GT-K00039. (GT-K00040): New character;
 use `<-subsumptive' for IU+200D1. (BC-8873): New character;
 use `<-denotational' for U-000200D1. (GT-K00038): New
 character; use `<-subsumptive' for BC-8873. (GT-K00041):
 Ditto.

---
 lisp/utf-2000/Ideograph-R005-Second.el |   60 +++++++++++++++++++++++++++++---
 1 file changed, 56 insertions(+), 4 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R005-Second.el b/lisp/utf-2000/Ideograph-R005-Second.el
index 04563a6..7ba399c 100644
--- a/lisp/utf-2000/Ideograph-R005-Second.el
+++ b/lisp/utf-2000/Ideograph-R005-Second.el
@@ -96,21 +96,73 @@
     (=daikanwa		. 00163)	; &I-M-00163;
     ))
 (define-char
-  '((=>ucs		. #x200D1)	; 𠃑
+  '((ideographic-radical . 5)	; ⼄
+    (ideographic-strokes . 0)
+    (total-strokes	 . 1)
+    (=ucs		. #x200D1)	; 𠃑
+    ))
+(define-char
+  '((<-denotational@component
+     ((=ucs		  . #x200D1)	; 𠃑
+      ))
     (ideographic-radical . 5)	; ⼄
     (ideographic-strokes . 0)
     (total-strokes	 . 1)
+    (sound@ja/on	"iN")
+    (=ucs@iso		. #x200D1)	; &GT-00223;
     (=gt		. 00223)	; &GT-00223;
     (=gt-pj-2		. #x3144)	; &GT-00223; [17-36]
     (=daikanwa		. 00164)	; &I-M-00164;
+    (<-Small-Seal
+     ((=ucs		  . #x4E5A)	; 乚
+      (=daikanwa	  . 00163)	; &I-M-00163;
+      ))
+    (<-Small-Seal*sources
+     daikanwa)
+    (->Bopomofo
+     ((name		  . "BOPOMOFO LETTER EN")
+      (=ucs		  . #x3123)	; ㄣ
+      ))
+    (->subsumptive
+     ((==gt		  . 00223)	; &g2-GT-00223;
+      (==daikanwa	  . 00164)	; &g2-GT-00223;
+      (->subsumptive
+       ((===daikanwa	    . 00164)	; &R-M-00164;
+	)
+       ((===gt		    . 00223)	; &R-GT-00223;
+	))
+      )
+     ((==ucs@iso	  . #x200D1)	; &GT-K00039;
+      (==cns11643-5	  . #x2121)	; &GT-K00039; [01-01]
+      (=gt-k		  . 00039)	; &GT-K00039;
+      (=gt-pj-k1	  . #x303F)	; &GT-K00039; [16-31]
+      (->subsumptive
+       ((===cns11643-5	    . #x2121)	; &R-C5-2121; [01-01]
+	)
+       ((===ucs@iso	    . #x200D1)	; &R-U-000200D1;
+	))
+      )
+     ((=gt-k		  . 00040)	; &GT-K00040;
+      (=gt-pj-k1	  . #x303D)	; &GT-K00040; [16-29]
+      ))
     ))
 (define-char
-  '((morohashi-daikanwa	164 0 1)
+  '((<-denotational
+     ((=ucs		  . #x200D1)	; 𠃑
+      ))
     (ideographic-radical . 5)	; ⼄
     (ideographic-strokes . 0)
     (total-strokes	 . 1)
-    (=ucs		. #x200D1)	; 𠃑
-    (=cns11643-5	. #x2121)	; &I-C5-2121; [01-01]
+    (=big5-cdp		. #x8873)	; &CDP-8873;
+    (->subsumptive
+     ((==big5-cdp	  . #x8873)	; &g2-CDP-8873;
+      )
+     ((=gt-k		  . 00038)	; &GT-K00038;
+      (=gt-pj-k1	  . #x303C)	; &GT-K00038; [16-28]
+      )
+     ((=gt-k		  . 00041)	; &GT-K00041;
+      (=gt-pj-k1	  . #x303E)	; &GT-K00041; [16-30]
+      ))
     ))
 (define-char
   '((ideographic-radical . 5)	; ⼄
-- 
1.7.10.4