From ccd9f26fdff07f9040a54254b7abf795558b40c2 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Tue, 18 Nov 2014 08:47:01 +0900 Subject: [PATCH] (G-GT-K03318): New abstract node to integrate GT-K03318 and GT-K03616. --- lisp/utf-2000/Ideograph-R072-Sun.el | 52 +++++++++++++++++------------------ 1 file changed, 25 insertions(+), 27 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el index 1eeeb75..0c695c0 100644 --- a/lisp/utf-2000/Ideograph-R072-Sun.el +++ b/lisp/utf-2000/Ideograph-R072-Sun.el @@ -683,43 +683,41 @@ ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") (=ucs . #x2FF1) ; ⿱ ) - ((name . "CJK RADICAL KNIFE ONE") - (=ucs . #x2E88) ; ⺈ + ((=ucs . #x2008A) ; 𠂊 ) ((=ucs . #x65E7) ; 旧 )) - (=gt-k . 03318) ; >-K03318; - (=gt-pj-k1 . #x357D) ; >-K03318; [21-93] + (=>>gt-k . 03318) ; &G-GT-K03318; (<-simplified@component ((=ucs . #x81FD) ; 臽 )) (<-simplified@misc - ((=ucs@cns . #x81FD) ; &AJ1-18448; - (=ucs@jis . #x81FD) ; &AJ1-18448; + ((=ucs@unicode . #x81FD) ; &AJ1-18448; (=adobe-japan1-5 . 18448) ; &AJ1-18448; )) - )) -(define-char - '((ideographic-radical . 72) ; ⽇ - (ideographic-strokes . 3) - (total-strokes . 7) - (ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ - ) - ((=gt-k . 00089) ; >-K00089; + (->subsumptive + ((ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((name . "CJK RADICAL KNIFE ONE") + (=ucs . #x2E88) ; ⺈ + ) + ((=ucs . #x65E7) ; 旧 + )) + (=gt-k . 03318) ; >-K03318; + (=gt-pj-k1 . #x357D) ; >-K03318; [21-93] ) - ((=ucs . #x65E7) ; 旧 - )) - (=gt-k . 03616) ; >-K03616; - (=gt-pj-k1 . #x5E44) ; >-K03616; [62-36] - (<-simplified@component - ((=ucs . #x81FD) ; 臽 - )) - (<-simplified@misc - ((=ucs@cns . #x81FD) ; &AJ1-18448; - (=ucs@jis . #x81FD) ; &AJ1-18448; - (=adobe-japan1-5 . 18448) ; &AJ1-18448; + ((ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=gt-k . 00089) ; >-K00089; + ) + ((=ucs . #x65E7) ; 旧 + )) + (=gt-k . 03616) ; >-K03616; + (=gt-pj-k1 . #x5E44) ; >-K03616; [62-36] )) )) (define-char -- 1.7.10.4