From db6a47ad8a5ddd5d76b0e1e8d9e66a6a69445a03 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 20 Jan 2023 08:34:59 +0900 Subject: [PATCH] (A-BC-88BB): Unify A-GT-K01493. (GT-K01493): New character; use `<-denotational' for A-BC-88BB. --- lisp/utf-2000/Ideograph-R058-Snout.el | 31 +++++++++++++++++++++++-------- 1 file changed, 23 insertions(+), 8 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el index 81ac09c..9d096cb 100644 --- a/lisp/utf-2000/Ideograph-R058-Snout.el +++ b/lisp/utf-2000/Ideograph-R058-Snout.el @@ -481,7 +481,7 @@ )) (define-char '((<-denotational - ((=>big5-cdp . #x88BB) ; &A-CDP-88BB; + ((=>big5-cdp . #x88BB) ; &A-GT-K01493; )) (ideographic-radical . 58) ; ⼹ (ideographic-strokes . 2) @@ -490,6 +490,13 @@ )) (define-char '((ideographic-radical . 58) ; ⼹ + (ideographic-strokes . 2) + (total-strokes . 5) + (=>big5-cdp . #x88BB) ; &A-GT-K01493; + (=>gt-k . 01493) ; &A-GT-K01493; + )) +(define-char + '((ideographic-radical . 58) ; ⼹ (=>big5-cdp@cognate . #x89E5) ; &A-cgnCDP-89E5; )) (define-char @@ -542,12 +549,6 @@ '((ideographic-radical . 58) ; ⼹ (ideographic-strokes . 2) (total-strokes . 5) - (=>big5-cdp . #x88BB) ; &A-CDP-88BB; - )) -(define-char - '((ideographic-radical . 58) ; ⼹ - (ideographic-strokes . 2) - (total-strokes . 5) (ideographic-structure ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") (=ucs . #x2FF1) ; ⿱ @@ -667,7 +668,21 @@ )) (define-char '((<-denotational - ((=>big5-cdp . #x88BB) ; &A-CDP-88BB; + ((=>big5-cdp . #x88BB) ; &A-GT-K01493; + )) + (ideographic-radical . 58) ; ⼹ + (ideographic-strokes . 2) + (total-strokes . 5) + (=gt-k . 01493) ; >-K01493; + (=gt-pj-k1 . #x4040) ; >-K01493; [32-32] + (->subsumptive + ((==gt-k . 01493) ; &g2-GT-K01493; + (==gt-pj-k1 . #x4040) ; &g2-GT-K01493; [32-32] + )) + )) +(define-char + '((<-denotational + ((=>big5-cdp . #x88BB) ; &A-GT-K01493; )) (ideographic-radical . 58) ; ⼹ (ideographic-strokes . 2) -- 1.7.10.4