From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 30 Mar 2017 06:46:07 +0000 (+0900)
Subject: (U-000200D1): Use `->denotational' and `->subsumptive'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=959380304b7b13314d16e783c8058374b417e56d;p=chise%2Fxemacs-chise.git-

(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.
---

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)	; ⼄