From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 31 Oct 2016 16:39:51 +0000 (+0900)
Subject: (U-00021940): Use `->subsumptive'.
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=2fb86965ed6f9b88011d84ffddaec168500228b2

(U-00021940): Use `->subsumptive'.
---

diff --git a/lisp/utf-2000/Ideograph-R039-Child.el b/lisp/utf-2000/Ideograph-R039-Child.el
index 74b2364..c4074e4 100644
--- a/lisp/utf-2000/Ideograph-R039-Child.el
+++ b/lisp/utf-2000/Ideograph-R039-Child.el
@@ -198,19 +198,50 @@
     (=daikanwa		. 06936)	; &I-M-06936;
     ))
 (define-char
-  '((=>ucs		. #x21940)	; 𡥀
-    (ideographic-radical . 39)	; ⼦
-    (ideographic-strokes . 2)
-    (total-strokes	 . 5)
-    (=cns11643-6	. #x2269)	; &C6-2269; [02-73]
-    (=daikanwa		. 06937)	; &I-M-06937;
-    ))
-(define-char
-  '((morohashi-daikanwa	6937 0 0)
-    (ideographic-radical . 39)	; ⼦
+  '((ideographic-radical . 39)	; ⼦
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=big5-cdp	  . #x8BA2)	; &CDP-8BA2;
+      )
+     ((=ucs		  . #x6728)	; 木
+      ))
     (=ucs		. #x21940)	; 𡥀
+    (=cns11643-6	. #x2269)	; &I-C6-2269; [02-73]
+    (=daikanwa		. 06937)	; &I-M-06937;
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=big5-cdp	    . #x8BA2)	; &CDP-8BA2;
+	)
+       ((=ucs		    . #x6729)	; 朩
+	))
+      (==ucs@cns	  . #x21940)	; &g2-M-06937;
+      (==cns11643-6	  . #x2269)	; &g2-M-06937; [02-73]
+      (==daikanwa	  . 06937)	; &g2-M-06937;
+      (->subsumptive
+       ((===daikanwa	    . 06937)	; &R-M-06937;
+	)
+       ((===cns11643-6	    . #x2269)	; &R-C6-2269; [02-73]
+	))
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
+	(=ucs		    . #x2FFB)	; â¿»
+	)
+       ((==ucs@unicode	    . #x5B50)	; &g2-AJ1-02208;
+	(==adobe-japan1-0   . 02208)	; &g2-AJ1-02208;
+	)
+       ((==ucs@unicode	    . #x516B)	; &MJ007274;
+	(=mj		    . 007274)	; &MJ007274;
+	))
+      (==ucs@iso	  . #x21940)	; &g2-IU-00021940;
+      ))
     ))
 (define-char
   '((ideographic-radical . 39)	; ⼦