From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 27 Apr 2017 05:27:31 +0000 (+0900)
Subject: (U-00021687): Use `->subsumptive'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6028fa8619aae88fa8308d304643a0989c09eda6;p=chise%2Fxemacs-chise.git

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

diff --git a/lisp/utf-2000/Ideograph-R037-Big.el b/lisp/utf-2000/Ideograph-R037-Big.el
index 876919d..6ec2c43 100644
--- a/lisp/utf-2000/Ideograph-R037-Big.el
+++ b/lisp/utf-2000/Ideograph-R037-Big.el
@@ -2729,12 +2729,12 @@
     (=hanyo-denshi/jt	. #xAFC4)	; &I-HD-JT-AFC4;
     (=jef-china3	. #x48EA)	; &I-JC3-48EA;
     (->subsumptive
-     ((=>>ucs@ks	  . #x5951)	; &G-AJ1-13739;
-      (=>>ucs@cns	  . #x5951)	; &G-AJ1-13739;
-      (=>>mj		  . 009493)	; &G-AJ1-13739;
-      (=>>adobe-japan1-4  . 13739)	; &G-AJ1-13739;
-      (=>>cns11643-1	  . #x5056)	; &G-AJ1-13739; [48-54]
-      (=>>hanyo-denshi/jt . #xAFC4)	; &G-AJ1-13739;
+     ((=>>ucs@ks	  . #x5951)	; &G-MJ009493;
+      (=>>ucs@cns	  . #x5951)	; &G-MJ009493;
+      (=>>mj		  . 009493)	; &G-MJ009493;
+      (=>>adobe-japan1-4  . 13739)	; &G-MJ009493;
+      (=>>cns11643-1	  . #x5056)	; &G-MJ009493; [48-54]
+      (=>>hanyo-denshi/jt . #xAFC4)	; &G-MJ009493;
       (->subsumptive
        ((=decomposition@cid
 	 ((=ucs		      . #x5951)	; 契
@@ -4227,16 +4227,16 @@
     (=daikanwa		. 05960)	; &I-M-05960;
     (=shinjigen		.  1593)	; &MJ009514;
     (->subsumptive
-     ((=>>ucs@jis	  . #x5960)	; &G-AJ1-04556;
-      (=>>ucs@ks	  . #x5960)	; &G-AJ1-04556;
-      (=>>mj		  . 009514)	; &G-AJ1-04556;
-      (=>>adobe-japan1-0  . 04556)	; &G-AJ1-04556;
-      (=>>jis-x0208	  . #x547B)	; &G-AJ1-04556; [52-91]
-      (=>>jis-x0213-1	  . #x547B)	; &G-AJ1-04556; [52-91]
-      (=>>hanyo-denshi/ja . #x547B)	; &G-AJ1-04556; [52-91]
-      (=>>gt		  . 07540)	; &G-AJ1-04556;
-      (=>>gt-k		  . 09178)	; &G-AJ1-04556;
-      (=>>daikanwa	  . 05960)	; &G-AJ1-04556;
+     ((=>>ucs@jis	  . #x5960)	; &G-MJ009514;
+      (=>>ucs@ks	  . #x5960)	; &G-MJ009514;
+      (=>>mj		  . 009514)	; &G-MJ009514;
+      (=>>adobe-japan1-0  . 04556)	; &G-MJ009514;
+      (=>>jis-x0208	  . #x547B)	; &G-MJ009514; [52-91]
+      (=>>jis-x0213-1	  . #x547B)	; &G-MJ009514; [52-91]
+      (=>>hanyo-denshi/ja . #x547B)	; &G-MJ009514; [52-91]
+      (=>>gt		  . 07540)	; &G-MJ009514;
+      (=>>gt-k		  . 09178)	; &G-MJ009514;
+      (=>>daikanwa	  . 05960)	; &G-MJ009514;
       (->subsumptive
        ((==daikanwa	    . 05960)	; &g2-M-05960;
 	(==shinjigen	    .  1593)	; &g2-M-05960;
@@ -5772,17 +5772,31 @@
     (ideographic-strokes . 13)
     (total-strokes	 . 16)
     (hanyu-dazidian	1 550 1)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=big5-cdp	  . #x8AEB)	; &CDP-8AEB;
+      )
+     ((=ucs		  . #x5927)	; 大
+      ))
     (=ucs		. #x21687)	; 𡚇
+    (=cns11643-5	. #x537C)	; &I-C5-537C; [51-92]
     (=daikanwa		. 06015)	; &I-M-06015;
-    (=hanziku-2		. #xC0F9)	; &I-HZK02-C0F9;
-    ))
-(define-char
-  '((=>ucs		. #x21687)	; 𡚇
-    (morohashi-daikanwa	6015 0 0)
-    (ideographic-radical . 37)	; ⼤
-    (ideographic-strokes . 13)
-    (total-strokes	 . 16)
-    (=cns11643-5	. #x537C)	; &C5-537C; [51-92]
+    (->subsumptive
+     ((==ucs@iso	  . #x21687)	; &g2-M-06015;
+      (==daikanwa	  . 06015)	; &g2-M-06015;
+      (->subsumptive
+       ((===daikanwa	    . 06015)	; &R-M-06015;
+	)
+       ((===ucs@iso	    . #x21687)	; &R-U-00021687;
+	)
+       ((=hanziku-2	    . #xC0F9)	; &HZK02-C0F9;
+	))
+      )
+     ((==ucs@cns	  . #x21687)	; &g2-CU+21687;
+      (==cns11643-5	  . #x537C)	; &g2-CU+21687; [51-92]
+      ))
     ))
 (define-char
   '((ideographic-radical . 37)	; ⼤