From b8d164b1ae63876201f7f193664345bf3adb56e6 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 16 Nov 2004 07:15:56 +0000 Subject: [PATCH] (): Add `<-ideographic-component-forms' for U+7F8A; separate BC-8970. (GT-K01701): Add `ideographic-{radical|strokes}' and `total-strokes'; add `<-ideographic-component-forms' for U+7F8A. (BC-8CCC): Likewise. --- lisp/utf-2000/u02E00-CJK-Radical-Supplement.el | 29 +++++++++++++++++++++++- 1 file changed, 28 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el index 9252fba..c2188b1 100644 --- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el +++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el @@ -599,16 +599,40 @@ (general-category symbol other) ; Informative Category (bidi-category . "ON") (mirrored . nil) + (<-ideographic-component-forms + ((=ucs . #x7F8A) ; 羊 + )) (=ucs . #x2EB6) ; ⺶ - (=big5-cdp . #x8970) ; &I-CDP-8970; )) (define-char '((=>ucs . #x2EB6) ; ⺶ + (ideographic-radical . 123) ; ⽺ + (ideographic-strokes . 0) + (total-strokes . 6) + (<-ideographic-component-forms + ((=ucs . #x7F8A) ; 羊 + )) (=gt-k . 01701) ; >-K01701; (=gt-pj-k1 . #x3443) ; >-K01701; [20-35] )) (define-char '((=>ucs . #x2EB6) ; ⺶ + (ideographic-radical . 123) ; ⽺ + (ideographic-strokes . 0) + (total-strokes . 6) + (<-ideographic-component-forms + ((=ucs . #x7F8A) ; 羊 + )) + (=big5-cdp . #x8970) ; &CDP-8970; + )) +(define-char + '((=>ucs . #x2EB6) ; ⺶ + (ideographic-radical . 123) ; ⽺ + (ideographic-strokes . 0) + (total-strokes . 7) + (<-ideographic-component-forms + ((=ucs . #x7F8A) ; 羊 + )) (=big5-cdp . #x8CCC) ; &CDP-8CCC; )) (define-char @@ -616,6 +640,9 @@ (general-category symbol other) ; Informative Category (bidi-category . "ON") (mirrored . nil) + (<-ideographic-component-forms + ((=ucs . #x7F8A) ; 羊 + )) (<-radical ((=ucs . #x2634C) ; 𦍌 )) -- 1.7.10.4