From 7ca57160b78d913b756920f2cf861100a8830ad0 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 6 Jul 2020 23:44:00 +0900 Subject: [PATCH] (A-compU+21C25): Delete `<-denotational' for A-BC-8C7A. (A-BC-8C7A): Add `<-denotational' for A-compU+21C25. (BC-8C7A-itaiji-001): New character; use `<-denotational' for A-BC-8C7A. (BC-8C7A): Use A-BC-8C7A instead of A-compU+21C25 as its mother. --- lisp/utf-2000/Ideograph-R044-Corpse.el | 33 ++++++++++++++++++++++++-------- 1 file changed, 25 insertions(+), 8 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el index b572f21..9a523da 100644 --- a/lisp/utf-2000/Ideograph-R044-Corpse.el +++ b/lisp/utf-2000/Ideograph-R044-Corpse.el @@ -496,10 +496,7 @@ )) )) (define-char - '((<-denotational - ((=>big5-cdp . #x8C7A) ; &A-CDP-8C7A; - )) - (ideographic-radical . 44) ; ⼫ + '((ideographic-radical . 44) ; ⼫ (=>ucs@component . #x21C25) ; &A-compU+21C25; )) (define-char @@ -576,7 +573,31 @@ (ideographic-strokes . 2) (total-strokes . 5) (sound@ja/on "ka") + (=>big5-cdp . #x8C7A) ; &A-CDP-8C7A; + )) +(define-char + '((<-denotational + ((=>big5-cdp . #x8C7A) ; &A-CDP-8C7A; + )) + (ideographic-radical . 44) ; ⼫ + (ideographic-strokes . 2) + (total-strokes . 5) + (=big5-cdp-itaiji-001 . #x8C7A) ; &CDP-i001-8C7A; + (->subsumptive + ((==big5-cdp-itaiji-001 . #x8C7A) ; &g2-CDP-i001-8C7A; + )) + )) +(define-char + '((<-denotational + ((=>big5-cdp . #x8C7A) ; &A-CDP-8C7A; + )) + (ideographic-radical . 44) ; ⼫ + (ideographic-strokes . 2) + (total-strokes . 5) (=big5-cdp . #x8C7A) ; &CDP-8C7A; + (<-formed@component + ((=ucs . #x77F3) ; 石 + )) (->subsumptive ((==big5-cdp . #x8C7A) ; &g2-CDP-8C7A; ) @@ -720,10 +741,6 @@ )) )) (define-char - '((ideographic-radical . 44) ; ⼫ - (=>big5-cdp . #x8C7A) ; &A-CDP-8C7A; - )) -(define-char '((<-denotational ((=>big5-cdp . #x8C7A) ; &A-CDP-8C7A; )) -- 1.7.10.4