From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 8 Feb 2017 07:59:11 +0000 (+0900)
Subject: (CB07314): New character; subsume GT-K00251 and GT-K00252.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6ccd6f9b297db702b03cde0d307f33c4e96c9e11;p=chise%2Fxemacs-chise.git-

(CB07314): New character; subsume GT-K00251 and GT-K00252.
(GT-K00251): Use `<-subsumptive' for CB07314 instead of
`<-denotational' for A-UU+5342.
(GT-K00252): Likewise.
---

diff --git a/lisp/utf-2000/Ideograph-R024-Ten.el b/lisp/utf-2000/Ideograph-R024-Ten.el
index abc32d4..37fee74 100644
--- a/lisp/utf-2000/Ideograph-R024-Ten.el
+++ b/lisp/utf-2000/Ideograph-R024-Ten.el
@@ -157,16 +157,7 @@
     (ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 1)
     (total-strokes	 . 3)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
-      (=ucs		  . #x2FF9)	; ⿹
-      )
-     ((=gt-k		  . 00007)	; &GT-K00007;
-      )
-     ((=ucs		  . #x20087)	; 𠂇
-      ))
-    (=gt-k		. 00251)	; &GT-K00251;
-    (=gt-pj-k1		. #x3163)	; &GT-K00251; [17-67]
+    (=big5-cdp		. #x88EC)	; &CDP-88EC;
     ))
 (define-char
   '((<-denotational
@@ -180,23 +171,16 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
       (=ucs		  . #x2FF9)	; ⿹
       )
-     ((name		  . "CJK RADICAL SECOND THREE")
-      (=ucs		  . #x2E84)	; ⺄
+     ((=gt-k		  . 00007)	; &GT-K00007;
       )
-     ((=ucs		  . #x20087)	; 𠂇
+     ((=ucs		  . #x5341)	; 十
       ))
-    (=gt-k		. 00252)	; &GT-K00252;
-    (=gt-pj-k1		. #x3A26)	; &GT-K00252; [26-06]
-    ))
-(define-char
-  '((<-denotational
-     ((=>ucs@iwds-1	  . #x5342)	; &A-IWDSU+5342;
-      (=>ucs@unicode	  . #x5342)	; &A-IWDSU+5342;
+    (=ucs@cns		. #x5342)	; &C4-2130;
+    (=cns11643-4	. #x2130)	; &C4-2130; [01-16]
+    (->subsumptive
+     ((==ucs@cns	  . #x5342)	; &g2-CU+5342;
+      (==cns11643-4	  . #x2130)	; &g2-CU+5342; [01-16]
       ))
-    (ideographic-radical . 24)	; ⼗
-    (ideographic-strokes . 1)
-    (total-strokes	 . 3)
-    (=big5-cdp		. #x88EC)	; &CDP-88EC;
     ))
 (define-char
   '((<-denotational
@@ -210,15 +194,28 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
       (=ucs		  . #x2FF9)	; ⿹
       )
-     ((=gt-k		  . 00007)	; &GT-K00007;
+     ((name		  . "CJK RADICAL SECOND THREE")
+      (=ucs		  . #x2E84)	; ⺄
       )
-     ((=ucs		  . #x5341)	; 十
+     ((=ucs		  . #x20087)	; 𠂇
       ))
-    (=ucs@cns		. #x5342)	; &C4-2130;
-    (=cns11643-4	. #x2130)	; &C4-2130; [01-16]
+    (=cbeta		. 07314)	; &CB07314;
     (->subsumptive
-     ((==ucs@cns	  . #x5342)	; &g2-CU+5342;
-      (==cns11643-4	  . #x2130)	; &g2-CU+5342; [01-16]
+     ((==cbeta		  . 07314)	; &g2-CB07314;
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
+	(=ucs		    . #x2FF9)	; ⿹
+	)
+       ((=gt-k		    . 00007)	; &GT-K00007;
+	)
+       ((=ucs		    . #x20087)	; 𠂇
+	))
+      (=gt-k		  . 00251)	; &GT-K00251;
+      (=gt-pj-k1	  . #x3163)	; &GT-K00251; [17-67]
+      )
+     ((=gt-k		  . 00252)	; &GT-K00252;
+      (=gt-pj-k1	  . #x3A26)	; &GT-K00252; [26-06]
       ))
     ))
 (define-char