From 973229609a5a2ac3e1dfbf307d810129e48af34e Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sun, 16 Aug 2020 23:04:30 +0900 Subject: [PATCH] (): Add `ideographic-{radical|strokes}' and `total-strokes'; unify BC-8BA2 and GT-K00025; add GT-K00022. --- lisp/utf-2000/u031C0-CJK-Strokes.el | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/lisp/utf-2000/u031C0-CJK-Strokes.el b/lisp/utf-2000/u031C0-CJK-Strokes.el index 381f220..a9f8433 100644 --- a/lisp/utf-2000/u031C0-CJK-Strokes.el +++ b/lisp/utf-2000/u031C0-CJK-Strokes.el @@ -53,7 +53,33 @@ (general-category symbol other) ; Informative Category (bidi-category . "ON") (mirrored . nil) + (ideographic-radical . 5) ; ⼄ + (ideographic-strokes . 0) + (total-strokes . 1) (=ucs . #x31C7) ; ㇇ + (=big5-cdp . #x8BA2) ; &I-CDP-8BA2; + (=gt-k . 00025) ; &I-GT-K00025; + (=gt-pj-k1 . #x3031) ; ㇇ [16-17] + (->subsumptive + ((=>>ucs@unicode . #x31C7) ; &G-CDP-8BA2; + (=>>big5-cdp . #x8BA2) ; &G-CDP-8BA2; + (=>>gt-k . 00025) ; &G-CDP-8BA2; + (->subsumptive + ((==gt-k . 00025) ; &g2-GT-K00025; + (==gt-pj-k1 . #x3031) ; &g2-GT-K00025; [16-17] + ) + ((==big5-cdp . #x8BA2) ; &g2-CDP-8BA2; + ) + ((==ucs@unicode . #x31C7) ; &g2-UU+31C7; + )) + ) + ((=gt-k . 00022) ; >-K00022; + (=gt-pj-k1 . #x3026) ; >-K00022; [16-06] + (->subsumptive + ((==gt-k . 00022) ; &g2-GT-K00022; + (==gt-pj-k1 . #x3026) ; &g2-GT-K00022; [16-06] + )) + )) )) (define-char '((name . "CJK STROKE HZWG") -- 1.7.10.4