From a8c63b2c6d39afc6c3470915015c7d2e222934da Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 15 Jul 2005 10:10:29 +0000 Subject: [PATCH] (U-000224F5): Use `->subsumptive'. (U-000224F6): Add `<-ancient' for M-38892. --- lisp/utf-2000/Ideograph-R060-Step.el | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R060-Step.el b/lisp/utf-2000/Ideograph-R060-Step.el index 06f51f1..c47e2e7 100644 --- a/lisp/utf-2000/Ideograph-R060-Step.el +++ b/lisp/utf-2000/Ideograph-R060-Step.el @@ -1148,20 +1148,23 @@ (ideographic-strokes . 7) (total-strokes . 10) (=ucs . #x224F5) ; 𢓵 - (=daikanwa . 10123) ; &I-M-10123; - )) -(define-char - '((=>ucs . #x224F5) ; 𢓵 - (morohashi-daikanwa 10123 0 0) - (ideographic-radical . 60) ; ⼻ - (ideographic-strokes . 7) - (total-strokes . 10) - (=cns11643-5 . #x2D4A) ; &C5-2D4A; [13-42] + (->subsumptive + ((=daikanwa . 10123) ; &M-10123; + (=ucs@iso . #x224F5) ; &M-10123; + ) + ((=cns11643-5 . #x2D4A) ; &C5-2D4A; [13-42] + )) )) (define-char '((ideographic-radical . 60) ; ⼻ (ideographic-strokes . 7) (total-strokes . 10) + (<-ancient + ((=ks-x1001 . #x7757) ; &M-38892; [87-55] + (=daikanwa . 38892) ; &I-M-38892; + )) + (<-ancient*sources + zihui-bei daikanwa) (=ucs . #x224F6) ; 𢓶 (=cns11643-6 . #x3749) ; &I-C6-3749; [23-41] (=daikanwa . 10124) ; &I-M-10124; -- 1.7.10.4