From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 23 Mar 2014 13:08:28 +0000 (+0900)
Subject: (JSP-4173): Use `->subsumptive' to add representative nodes.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6c95ec2a35ffa034637a7c12ae9edc8cc374a887;p=chise%2Fxemacs-chise.git-

(JSP-4173): Use `->subsumptive' to add representative nodes.
(AJ1-13548): Unify KU+665F and MJ013289.
(G0-6A50): Unify MJ013318.
(JX1-7540): Unify MJ013317.
---

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index f84ec5c..05ae73a 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -844,6 +844,7 @@
 	(=ucs		    . #x2FF1)	; ⿱
 	)
        ((=ucs@jis	    . #x5C6F)	; &AJ1-03246;
+	(=ucs@ks	    . #x5C6F)	; &AJ1-03246;
 	(=adobe-japan1-0    . 03246)	; &AJ1-03246;
 	)
        ((=ucs		    . #x65E5)	; 日
@@ -863,6 +864,14 @@
 	))
       (<-ancient*sources
        shinjigen)
+      (->subsumptive
+       ((==daikanwa	    . 13778)	; &R-M-13778;
+	)
+       ((==shinjigen	    .  3302)	; &R-SJG2-3302;
+	)
+       ((==ucs@jis	    . #x65FE)	; &R-JSP-4173;
+	(==jis-x0212	    . #x4173)	; &R-JSP-4173; [33-83]
+	))
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -3762,14 +3771,16 @@
 	)
        ((=ucs		    . #xE0105)	; 󠄅
 	))
-      (=adobe-japan1-4	  . 13548)	; &AJ1-13548;
+      (=ucs@ks		  . #x665F)	; &MJ013289;
+      (=mj		  . 013289)	; &MJ013289;
+      (=adobe-japan1-4	  . 13548)	; &I-AJ1-13548;
       (=jis-x0208@1978	  . #x5A70)	; &I-J78-5A70; [58-80]
       (=jis-x0208@1983	  . #x5A70)	; &I-J83-5A70; [58-80]
       (=ks-x1001	  . #x6079)	; &I-K0-6079; [64-89]
       (=hanyo-denshi/ft	  . #x307E)	; &I-HD-FT-307E; [16-94]
       (=daikanwa	  . 13950)	; &I-M-13950;
-      (=shinjigen@1ed	  .  3333)	; &AJ1-13548;
-      (=shinjigen/+p@rev  .  3326)	; &AJ1-13548;
+      (=shinjigen@1ed	  .  3333)	; &MJ013289;
+      (=shinjigen/+p@rev  .  3326)	; &MJ013289;
       (<-unknown
        ((=adobe-japan1-4    . 14137)	; &AJ1-14137;
 	))
@@ -4711,8 +4722,9 @@
 	)
        ((=ucs		    . #xE0104)	; 󠄄
 	))
-      (=ucs@unicode	  . #x6677)	; &HD-JT-B2A3;
-      (=gb2312		  . #x6A50)	; &HD-JT-B2A3; [74-48]
+      (=ucs@unicode	  . #x6677)	; &MJ013318;
+      (=mj		  . 013318)	; &MJ013318;
+      (=gb2312		  . #x6A50)	; &I-G0-6A50; [74-48]
       (=hanyo-denshi/jt	  . #xB2A3)	; &I-HD-JT-B2A3;
       (=jef-china3	  . #x51A8)	; &I-JC3-51A8;
       ))
@@ -4729,10 +4741,11 @@
       )
      ((=ucs		  . #xE0103)	; 󠄃
       ))
-    (=ucs@cns		. #x6677)	; &AJ1-16889;
-    (=ucs@jis/2000	. #x6677)	; &AJ1-16889;
-    (=ucs@jis/2004	. #x6677)	; &AJ1-16889;
-    (=adobe-japan1-5	. 16889)	; &AJ1-16889;
+    (=ucs@cns		. #x6677)	; &MJ013317;
+    (=ucs@jis/2000	. #x6677)	; &MJ013317;
+    (=ucs@jis/2004	. #x6677)	; &MJ013317;
+    (=mj		. 013317)	; &MJ013317;
+    (=adobe-japan1-5	. 16889)	; &I-AJ1-16889;
     (=cns11643-1	. #x5F63)	; &I-C1-5F63; [63-67]
     (=jis-x0213-1	. #x7540)	; &I-JX1-7540; [85-32]
     (=hanyo-denshi/jc	. #x7540)	; &I-HD-JC-7540; [85-32]
@@ -9612,9 +9625,9 @@
 	)
        ((=ucs		    . #x65E5)	; 日
 	)
-       ((=ucs@jis	    . #x5EE3)	; &AJ1-04749;
-	(=ucs@ks	    . #x5EE3)	; &AJ1-04749;
-	(=adobe-japan1-0    . 04749)	; &AJ1-04749;
+       ((=ucs@jis	    . #x5EE3)	; &MJ011077;
+	(=ucs@ks	    . #x5EE3)	; &MJ011077;
+	(=mj		    . 011077)	; &MJ011077;
 	))
       (=daikanwa	  . 14246)	; &M-14246;
       (=cbeta		  . 05953)	; &I-CB05953;
@@ -10050,9 +10063,8 @@
       )
      ((=ucs		  . #x65E5)	; 日
       )
-     ((=ucs@ks		  . #x7235)	; &HD-JT-B55C;
-      (=ks-x1001	  . #x6D49)	; &HD-JT-B55C; [77-41]
-      (=daikanwa	  . 19711)	; &I-M-19711;
+     ((=ucs@ks		  . #x7235)	; &MJ016748;
+      (=mj		  . 016748)	; &MJ016748;
       ))
     (=daikanwa		. 14262)	; &M-14262;
     ))
@@ -10069,11 +10081,8 @@
       )
      ((=ucs		  . #x65E5)	; 日
       )
-     ((=ucs@unicode	  . #x7235)	; &HD-JA-3C5F;
-      (=jis-x0208	  . #x3C5F)	; &HD-JA-3C5F; [28-63]
-      (=gb2312		  . #x3E74)	; &I-G0-3E74; [30-84]
-      (=cns11643-1	  . #x743A)	; &I-C1-743A; [84-26]
-      (=jis-x0213-1	  . #x3C5F)	; &I-JX1-3C5F; [28-63]
+     ((=ucs@unicode	  . #x7235)	; &MJ016747;
+      (=mj		  . 016747)	; &MJ016747;
       ))
     (=ucs@unicode	. #x3B2D)	; &UU+3B2D;
     ))
@@ -10352,6 +10361,7 @@
      ((=ucs		  . #x65E5)	; 日
       )
      ((=ucs@jis		  . #x5C6C)	; &AJ1-04657;
+      (=ucs@ks		  . #x5C6C)	; &AJ1-04657;
       (=adobe-japan1-0	  . 04657)	; &AJ1-04657;
       ))
     (=daikanwa		. 14274)	; &M-14274;