From a7c11d57aeeb651ddd518ebca5552fd744635733 Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 20 Mar 2005 01:00:41 +0000 Subject: [PATCH] (): Use `->subsumptive' to integrate U+FA5E. (U+FA5E): Use `<-subsumptive' instead of `->identical'. (): Use `->subsumptive' to integrate U+FA5D. (U+FA5D): Use `<-subsumptive' instead of `->identical'. (U+44E7): Use `->denotational' and `->subsumptive'. --- lisp/utf-2000/Ideograph-R140-Grass.el | 54 ++++++++++++++++++--------------- 1 file changed, 30 insertions(+), 24 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R140-Grass.el b/lisp/utf-2000/Ideograph-R140-Grass.el index c315ff3..e138276 100644 --- a/lisp/utf-2000/Ideograph-R140-Grass.el +++ b/lisp/utf-2000/Ideograph-R140-Grass.el @@ -35,6 +35,10 @@ (=daikanwa . 30639) ; &I-M-30639; (=ucs@cns . #x8279) ; ⺿ (=ucs@jis . #xFA5E) ; ⺿ + (->subsumptive + ((=>ucs* . #x8279) ; 艹 + (=ucs . #xFA5E) ; 艹 + )) )) (define-char '((ideographic-radical . 140) ; ⾋ @@ -45,14 +49,6 @@ (=ucs . #x8279) ; 艹 )) (define-char - '((=>ucs* . #x8279) ; 艹 - (->identical - ((name . "CJK RADICAL GRASS TWO") - (=ucs . #x2EBF) ; ⺿ - )) - (=ucs . #xFA5E) ; 艹 - )) -(define-char '((name . "CJK RADICAL GRASS ONE") (general-category symbol other) ; Informative Category (bidi-category . "ON") @@ -90,14 +86,10 @@ (=gt-k . 00569) ; &I-GT-K00569; (=gt-pj-9 . #x4E5A) ; &I-GT-39645; [46-58] (=ucs@jis . #xFA5D) ; ⻀ - )) -(define-char - '((=>ucs* . #x8279) ; 艹 - (->identical - ((name . "CJK RADICAL GRASS THREE") - (=ucs . #x2EC0) ; ⻀ + (->subsumptive + ((=>ucs* . #x8279) ; 艹 + (=ucs . #xFA5D) ; 艹 )) - (=ucs . #xFA5D) ; 艹 )) (define-char '((=>daikanwa . 30640) ; >-39640; @@ -13217,19 +13209,33 @@ (=hanziku-8 . #xF546) ; &I-HZK08-F546; )) (define-char - '((=>ucs . #x44E7) ; 䓧 - (ideographic-radical . 140) ; ⾋ + '((ideographic-radical . 140) ; ⾋ (ideographic-strokes . 8) - (total-strokes . 12) - (=cns11643-3 . #x3E4C) ; &M-31327; [30-44] - (=daikanwa . 31327) ; &I-M-31327; + (=ucs . #x44E7) ; 䓧 )) (define-char - '((morohashi-daikanwa 31327 0 1) - (ideographic-radical . 140) ; ⾋ + '((ideographic-radical . 140) ; ⾋ (ideographic-strokes . 8) - (total-strokes . 11) - (=ucs . #x44E7) ; 䓧 + (<-denotational + ((=ucs . #x44E7) ; 䓧 + )) + (->subsumptive + ((total-strokes . 12) + (=cns11643-3 . #x3E4C) ; &M-31327; [30-44] + (=daikanwa . 31327) ; &I-M-31327; + ) + ((total-strokes . 11) + (=ucs@unicode . #x44E7) ; &UU+44E7; + )) + )) +(define-char + '((ideographic-radical . 140) ; ⾋ + (ideographic-strokes . 8) + (total-strokes . 12) + (<-denotational + ((=ucs . #x44E7) ; 䓧 + )) + (=hanziku-8 . #xF37C) ; &HZK08-F37C; )) (define-char '((ideographic-radical . 140) ; ⾋ -- 1.7.10.4