(A-U+81FD-itaiji-002): New abstract character.

(G-GT-K03318): Apply new conventions for glyph granularity; unify
GT-K03616, U+81FD-itaiji-002 and U+81FD-itaiji-003.

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index c60c2df..b58cab6 100644 (file)
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -982,6 +982,12 @@
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 3)
     (total-strokes      . 7)
+    (=>ucs-itaiji-002  . #x81FD)       ; &A-U-i002+81FD;
+    ))
+(define-char
+  '((ideographic-radical . 72) ; ⽇
+    (ideographic-strokes . 3)
+    (total-strokes      . 7)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -990,7 +996,11 @@
       )
      ((=ucs              . #x65E7)     ; 旧
       ))
-    (=>>gt-k           . 03318)        ; &G-GT-K03318;
+    (=gt-k             . 03616)        ; &GT-K03616;
+    (=>>gt-k           . 03318)        ; &GT-K03616;
+    (=gt-pj-k1         . #x5E44)       ; &GT-K03616; [62-36]
+    (=ucs-itaiji-002   . #x81FD)       ; &GT-K03616;
+    (=ucs-itaiji-003   . #x81FD)       ; &GT-K03616;
     (<-simplified@component
      ((=ucs              . #x81FD)     ; 臽
       ))
@@ -1003,24 +1013,28 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
        (=ucs               . #x2FF1)   ; ⿱
        )
-       ((name              . "CJK RADICAL KNIFE ONE")
-       (=ucs               . #x2E88)   ; ⺈
+       ((=gt-k             . 00089)    ; &GT-K00089;
        )
        ((=ucs              . #x65E7)   ; 旧
        ))
-      (=gt-k             . 03318)      ; &GT-K03318;
-      (=gt-pj-k1         . #x357D)     ; &GT-K03318; [21-93]
+      (==gt-k            . 03616)      ; &g2-GT-K03616;
+      (==ucs-itaiji-002          . #x81FD)     ; &g2-GT-K03616;
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
        (=ucs               . #x2FF1)   ; ⿱
        )
-       ((=gt-k             . 00089)    ; &GT-K00089;
+       ((name              . "CJK RADICAL KNIFE ONE")
+       (=ucs               . #x2E88)   ; ⺈
        )
        ((=ucs              . #x65E7)   ; 旧
        ))
-      (=gt-k             . 03616)      ; &GT-K03616;
-      (=gt-pj-k1         . #x5E44)     ; &GT-K03616; [62-36]
+      (=gt-k             . 03318)      ; &GT-K03318;
+      (=gt-pj-k1         . #x357D)     ; &GT-K03318; [21-93]
+      (->subsumptive
+       ((==gt-k                    . 03318)    ; &g2-GT-K03318;
+       (==ucs-itaiji-003   . #x81FD)   ; &g2-GT-K03318;
+       ))
       ))
     ))
 (define-char