From c9ae92fb7e82f73bdd0fc27e41b94ff444be3a73 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 19 Nov 2004 08:34:38 +0000 Subject: [PATCH] (M-29007): Map to U-00026536. (GT-K04926): Use `->subsumptive' to integrate BC-8C5B. --- lisp/utf-2000/Ideograph-R128-Ear.el | 23 ++++++++++------------- 1 file changed, 10 insertions(+), 13 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R128-Ear.el b/lisp/utf-2000/Ideograph-R128-Ear.el index ee699b9..2d09460 100644 --- a/lisp/utf-2000/Ideograph-R128-Ear.el +++ b/lisp/utf-2000/Ideograph-R128-Ear.el @@ -152,26 +152,23 @@ '((ideographic-radical . 128) ; ⽿ (ideographic-strokes . 2) (total-strokes . 8) - (=daikanwa . 29007) ; &M-29007; - )) -(define-char - '((ideographic-radical . 128) ; ⽿ - (ideographic-strokes . 2) - (total-strokes . 8) - (<-same - ((=big5-cdp . #x8C5B) ; &CDP-8C5B; + (=ucs . #x26536) ; 𦔶 + (->subsumptive + ((=daikanwa . 29007) ; &M-29007; + ) + ((=ucs@iso . #x26536) ; &UU+26536; )) - (=gt-k . 04926) ; >-K04926; - (=gt-pj-k1 . #x3432) ; >-K04926; [20-18] )) (define-char '((ideographic-radical . 128) ; ⽿ (ideographic-strokes . 2) (total-strokes . 8) - (<-same + (->subsumptive ((=gt-k . 04926) ; >-K04926; + (=gt-pj-k1 . #x3432) ; >-K04926; [20-18] + ) + ((=big5-cdp . #x8C5B) ; &CDP-8C5B; )) - (=big5-cdp . #x8C5B) ; &CDP-8C5B; )) (define-char '((ideographic-radical . 128) ; ⽿ @@ -180,7 +177,7 @@ (=ucs . #x8036) ; 耶 (->subsumptive ((=jis-x0208@1990 . #x4C6D) ; >-37579; [44-77] - (=cns11643-1 . #x5326) ; &I-M-29008; [51-06] + (=cns11643-1 . #x5326) ; &I-C1-5326; [51-06] (=gt . 37579) ; &I-GT-37579; (=gt-k . 05192) ; &I-GT-K05192; (=gt-pj-1 . #x4C6D) ; &I-GT-37579; [44-77] -- 1.7.10.4