From c327c586496d9b8cfefa7b388df4b8fc9a75b6fe Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 31 Aug 2023 22:40:01 +0900 Subject: [PATCH] (A-U+81FD-itaiji-002): Unify A-GT-K03616 and A-U+81FD-itaiji-003; add `ideographic-structure'. (GT-K03616): Add `<-denotational' for A-GT-K03616. --- lisp/utf-2000/Ideograph-R072-Sun.el | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el index e86ead3..7d2d979 100644 --- a/lisp/utf-2000/Ideograph-R072-Sun.el +++ b/lisp/utf-2000/Ideograph-R072-Sun.el @@ -2318,7 +2318,18 @@ '((ideographic-radical . 72) ; ⽇ (ideographic-strokes . 3) (total-strokes . 7) - (=>ucs-itaiji-002 . #x81FD) ; &A-U-i002+81FD; + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=>ucs@component . #x5200) ; &A-compU+5200; + (=>iwds-1 . 0149) ; &A-compU+5200; + ) + ((=ucs . #x65E7) ; 旧 + )) + (=>gt-k . 03616) ; &A-GT-K03616; + (=>ucs-itaiji-002 . #x81FD) ; &A-GT-K03616; + (=>ucs-itaiji-003 . #x81FD) ; &A-GT-K03616; )) (define-char '((<-denotational @@ -2343,7 +2354,10 @@ )) )) (define-char - '((ideographic-radical . 72) ; ⽇ + '((<-denotational + ((=>gt-k . 03616) ; &A-GT-K03616; + )) + (ideographic-radical . 72) ; ⽇ (ideographic-strokes . 3) (total-strokes . 7) (ideographic-structure -- 1.7.10.4