From 0dffbd4ba1efdd4a82e5e9f720ef77c69a5a55ab Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Tue, 16 Feb 2016 14:57:17 +0900 Subject: [PATCH] (U-00021E01): Omit `ideographic-strokes' and `total-strokes'. (IU+21E01): New character; add `<-denotational' for U-00021E01; unify BC-88DE. (U+21E01-var-003): New character; add `<-denotational' for U-00021E01; add `<-formed' for U+5782; subsume HNG-KHI0031-0 and HNG-KHM0257-0. --- lisp/utf-2000/Ideograph-R046-Mountain.el | 38 ++++++++++++++++++++++++++++-- 1 file changed, 36 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R046-Mountain.el b/lisp/utf-2000/Ideograph-R046-Mountain.el index 6588d15..e5a251d 100644 --- a/lisp/utf-2000/Ideograph-R046-Mountain.el +++ b/lisp/utf-2000/Ideograph-R046-Mountain.el @@ -4089,6 +4089,27 @@ )) (define-char '((ideographic-radical . 46) ; ⼭ + (=ucs . #x21E01) ; 𡸁 + )) +(define-char + '((<-denotational + ((=ucs . #x21E01) ; 𡸁 + )) + (ideographic-radical . 46) ; ⼭ + (ideographic-strokes@ucs . 7) + (total-strokes@ucs . 10) + (ideographic-strokes . 6) + (total-strokes . 9) + (=ucs@iso . #x21E01) ; &CDP-88DE; + (=big5-cdp . #x88DE) ; &CDP-88DE; + (->subsumptive + ((==ucs@iso . #x21E01) ; &g2-IU-00021E01; + ) + ((==big5-cdp . #x88DE) ; &g2-CDP-88DE; + )) + )) +(define-char + '((ideographic-radical . 46) ; ⼭ (ideographic-strokes . 7) (total-strokes . 10) (=ucs . #x37C7) ; 㟇 @@ -5704,10 +5725,23 @@ (=iso-ir165 . #x2F70) ; &I-EGB-2F70; [15-80] )) (define-char - '((ideographic-radical . 46) ; ⼭ + '((<-denotational + ((=ucs . #x21E01) ; 𡸁 + )) + (ideographic-radical . 46) ; ⼭ (ideographic-strokes . 7) (total-strokes . 10) - (=ucs . #x21E01) ; 𡸁 + (=ucs-var-003 . #x21E01) ; &U-v003+21E01; + (<-formed + ((=ucs . #x5782) ; 垂 + )) + (<-formed*sources + hng) + (->subsumptive + ((===hng-khi . 00310) ; &HNG010-00310; + ) + ((===hng-khm . 02570) ; &HNG011-02570; + )) )) (define-char '((ideographic-radical . 46) ; ⼭ -- 1.7.10.4