From: tomo <tomo>
Date: Thu, 16 Jun 2005 03:06:47 +0000 (+0000)
Subject: (U-00020554): Use `->subsumptive' to integrate M-49525 and C6-287A;
X-Git-Tag: r21-4-15-chise-0_22-1^2~96
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3d61001cf64ed8bdee4b7a54e533dbc071e0fa72;p=chise%2Fxemacs-chise.git-

(U-00020554): Use `->subsumptive' to integrate M-49525 and C6-287A;
use `ideographic-radical@ucs' instead of `ideographic-radical'; add
`ideographic-strokes@{ucs|cns}', `ideographic-radical@cns',
`ideographic-radical@cns*sources' and `total-strokes'.
---

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index efb907c..caeb526 100644
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -769,6 +769,25 @@
     (=hanziku-1		. #xB8A7)	; &I-HZK01-B8A7;
     ))
 (define-char
+  '((ideographic-radical@ucs . 13)	; ⼌
+    (ideographic-strokes@ucs . 5)
+    (ideographic-radical@cns . 130)	; ⾁
+    (ideographic-strokes@cns . 3)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
+    (total-strokes	 . 7)
+    (=ucs		. #x20554)	; 𠕔
+    (->subsumptive
+     ((=daikanwa	  . 49525)	; &M-49525;
+      )
+     ((hanyu-dazidian	  1 100 7)
+      (=hanziku-1	  . #xB8A4)	; &HZK01-B8A4;
+      (=ucs@iso		  . #x20554)	; &HZK01-B8A4;
+      )
+     ((=cns11643-6	  . #x287A)	; &C6-287A; [08-90]
+      ))
+    ))
+(define-char
   '((ideographic-radical . 13)	; ⼌
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
@@ -1658,12 +1677,6 @@
     ))
 (define-char
   '((ideographic-radical . 13)	; ⼌
-    (hanyu-dazidian	1 100 7)
-    (=ucs		. #x20554)	; 𠕔
-    (=hanziku-1		. #xB8A4)	; &I-HZK01-B8A4;
-    ))
-(define-char
-  '((ideographic-radical . 13)	; ⼌
     (hanyu-dazidian	8 8 10)
     (=ucs		. #x2055C)	; 𠕜
     (=hanziku-12	. #xEB61)	; &I-HZK12-EB61;