From 35ec79d915f5caa2daf515b0abf007da57f31500 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 8 Oct 2004 04:20:33 +0000 Subject: [PATCH] (U+7568): Use `->subsumptive'. (C6-4B56): Unify U-0002F938. --- lisp/utf-2000/Ideograph-R102-Field.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R102-Field.el b/lisp/utf-2000/Ideograph-R102-Field.el index c915d8d..a606774 100644 --- a/lisp/utf-2000/Ideograph-R102-Field.el +++ b/lisp/utf-2000/Ideograph-R102-Field.el @@ -1420,8 +1420,12 @@ (ideographic-strokes . 6) (total-strokes . 11) (=ucs . #x7568) ; 畨 - (=cns11643-3 . #x3747) ; &I-C3-3747; [23-39] - (=daikanwa . 21855) ; &I-M-21855; + (->subsumptive + ((=daikanwa . 21855) ; &M-21855; + (=ucs@unicode . #x7568) ; &M-21855; + ) + ((=cns11643-3 . #x3747) ; &C3-3747; [23-39] + )) )) (define-char '((ideographic-radical . 102) ; ⽥ @@ -1704,13 +1708,14 @@ (=iso-ir165 . #x7D51) ; &I-EGB-7D51; [93-49] )) (define-char - '((=>ucs . #x7570) ; 異 + '((=>ucs* . #x7570) ; 異 (ideographic-radical . 102) ; ⽥ (ideographic-strokes . 7) (total-strokes . 12) (shinjigen-1 . 5055) (shinjigen-2 . 5055) - (=cns11643-6 . #x4B56) ; &M-21866; [43-54] + (=ucs . #x2F938) ; 異 + (=cns11643-6 . #x4B56) ; &I-C6-4B56; [43-54] (=daikanwa . 21866) ; &I-M-21866; )) (define-char -- 1.7.10.4