From: tomo <tomo>
Date: Wed, 17 Aug 2005 13:37:14 +0000 (+0000)
Subject: (U-00024517): Copied from Ideograph-R087-Claw.el; use `->subsumptive'.
X-Git-Tag: r21-4-17-chise-0_22-4^20~257
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=be6771232e498d33672d8f386ec5089a29259a49

(U-00024517): Copied from Ideograph-R087-Claw.el; use `->subsumptive'.
(C6-4743): Use `<-subsumptive' for U-00024517; unify H5-F8B3 and
IU-00024517 instead of using `->identical' for U-00024517.
---

diff --git a/lisp/utf-2000/Ideograph-R031-Enclosure.el b/lisp/utf-2000/Ideograph-R031-Enclosure.el
index f9c422a..3a4c7d2 100644
--- a/lisp/utf-2000/Ideograph-R031-Enclosure.el
+++ b/lisp/utf-2000/Ideograph-R031-Enclosure.el
@@ -2695,22 +2695,22 @@
     (=hanziku-2		. #xE6C7)	; &HZK02-E6C7;
     ))
 (define-char
-  '((=>ucs		. #x24517)	; 𤔗
-    (ideographic-radical . 31)	; ⼞
-    (ideographic-strokes . 9)
+  '((ideographic-radical@ucs . 87)	; ⽖
+    (ideographic-strokes@ucs . 9)
+    (ideographic-radical@cns . 31)	; ⼞
+    (ideographic-strokes@cns . 9)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
     (total-strokes	 . 12)
-    (=daikanwa		. 04811)	; &M-04811;
-    ))
-(define-char
-  '((=>ucs		. #x24517)	; 𤔗
-    (morohashi-daikanwa	4811 0 0)
-    (ideographic-radical . 31)	; ⼞
-    (ideographic-strokes . 9)
-    (total-strokes	 . 12)
-    (->identical
-     ((=ucs		  . #x24517)	; 𤔗
+    (=ucs		. #x24517)	; 𤔗
+    (->subsumptive
+     ((=daikanwa	  . 04811)	; &M-04811;
+      )
+     ((hanyu-dazidian	  3 2033 18)
+      (=cns11643-6	  . #x4743)	; &HZK05-F8B3; [39-35]
+      (=hanziku-5	  . #xF8B3)	; &I-HZK05-F8B3;
+      (=ucs@iso		  . #x24517)	; &HZK05-F8B3;
       ))
-    (=cns11643-6	. #x4743)	; &C6-4743; [39-35]
     ))
 (define-char
   '((=>ucs		. #x21207)	; 𡈇