From 2d94a69f62892cf2117f8f2812e4fb6144790903 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 10 Mar 2017 17:14:16 +0900
Subject: [PATCH] (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.

---
 lisp/utf-2000/Ideograph-R072-Sun.el |   30 ++++++++++++++++++++++--------
 1 file changed, 22 insertions(+), 8 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index c60c2df..b58cab6 100644
--- 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
-- 
1.7.10.4