From 5062dfb66b059a65d2c3f1e5d9586b8707eb5f7c Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 10 Jul 2023 13:51:36 +0900 Subject: [PATCH] (U+4E25): Use `<-denotational@usage' instead of `<-denotational' for BUCS+56B4; apply new conventions for glyph granularity. --- lisp/utf-2000/Ideograph-R001-One.el | 29 ++++++++++++++++++++++++----- 1 file changed, 24 insertions(+), 5 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el index d91499b..f99607f 100644 --- a/lisp/utf-2000/Ideograph-R001-One.el +++ b/lisp/utf-2000/Ideograph-R001-One.el @@ -6977,19 +6977,38 @@ )) )) (define-char - '((<-denotational + '((<-denotational@usage ((==>ucs@bucs . #x56B4) ; &BUCS+56B4; )) (ideographic-radical . 1) ; ⼀ (ideographic-strokes . 6) (total-strokes . 7) - (hanyu-dazidian 1 19 10) (=ucs . #x4E25) ; 严 - (=gb2312 . #x514F) ; &I-G0-514F; [49-47] + )) +(define-char + '((<-denotational + ((=ucs . #x4E25) ; 严 + )) + (ideographic-radical . 1) ; ⼀ + (ideographic-strokes . 6) + (total-strokes . 7) + (hanyu-dazidian 1 19 10) + (=ucs@unicode . #x4E25) ; &G0-514F; + (=gb2312 . #x514F) ; &G0-514F; [49-47] (=big5-cdp . #x8A6C) ; &I-CDP-8A6C; (<-simplified@CN - ((=ucs@unicode . #x56B4) ; &UU+56B4; - (=gb12345 . #x514F) ; &UU+56B4; [49-47] + ((=ucs@unicode . #x56B4) ; &DJT-01581; + (=gb12345 . #x514F) ; &DJT-01581; [49-47] + )) + (->subsumptive + ((==ucs@unicode . #x4E25) ; &g2-CDP-8A6C; + (==gb2312 . #x514F) ; &g2-CDP-8A6C; [49-47] + (==big5-cdp . #x8A6C) ; &g2-CDP-8A6C; + (->subsumptive + ((===big5-cdp . #x8A6C) ; &R-CDP-8A6C; + ) + ((===ucs@unicode . #x4E25) ; &R-UU+4E25; + )) )) )) (define-char -- 1.7.10.4