From 4e1d8a9548b553969456823ec92e82a99852b32f Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 7 Jul 2016 14:05:07 +0900
Subject: [PATCH] (U+807F): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R129-Brush.el |   51 +++++++++++++++++++++++++++++----
 1 file changed, 45 insertions(+), 6 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R129-Brush.el b/lisp/utf-2000/Ideograph-R129-Brush.el
index 6fb30c6..e80babf 100644
--- a/lisp/utf-2000/Ideograph-R129-Brush.el
+++ b/lisp/utf-2000/Ideograph-R129-Brush.el
@@ -4,7 +4,16 @@
     (ideographic-strokes . 0)
     (total-strokes	 . 6)
     (=ucs		. #x807F)	; 聿
-    (=jis-x0208		. #x6666)	; &I-J90-6666; [70-70]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x807F)	; 聿
+      ))
+    (ideographic-radical . 129)	; ⾀
+    (ideographic-strokes . 0)
+    (total-strokes	 . 6)
+    (=ucs@unicode	. #x807F)	; &GT-37829;
+    (=jis-x0208		. #x6666)	; &GT-37829; [70-70]
     (=gb2312		. #x6D32)	; &I-G0-6D32; [77-18]
     (=ks-x1001		. #x6B53)	; &I-K0-6B53; [75-51]
     (=cns11643-1	. #x4857)	; &I-C1-4857; [40-55]
@@ -14,7 +23,35 @@
     (=gt-k		. 01735)	; &I-GT-K01735;
     (=gt-pj-1		. #x6666)	; &I-GT-37829; [70-70]
     (=daikanwa		. 29215)	; &I-M-29215;
-    (=shinjigen@rev	.  6411)	; 聿
+    (=shinjigen		.  6411)	; &GT-37829;
+    (->subsumptive
+     ((==ucs@unicode	  . #x807F)	; &g2-GT-37829;
+      (==gb2312		  . #x6D32)	; &g2-GT-37829; [77-18]
+      (==ks-x1001	  . #x6B53)	; &g2-GT-37829; [75-51]
+      (==jis-x0208	  . #x6666)	; &g2-GT-37829; [70-70]
+      (==cns11643-1	  . #x4857)	; &g2-GT-37829; [40-55]
+      (==jis-x0213-1	  . #x6666)	; &g2-GT-37829; [70-70]
+      (==gt		  . 37829)	; &g2-GT-37829;
+      (==gt-k		  . 01735)	; &g2-GT-37829;
+      (==daikanwa	  . 29215)	; &g2-GT-37829;
+      (==shinjigen	  .  6411)	; &g2-GT-37829;
+      (->subsumptive
+       ((===daikanwa	    . 29215)	; &R-M-29215;
+	)
+       ((===jis-x0208	    . #x6666)	; &R-J0-6666; [70-70]
+	(===jis-x0213-1	    . #x6666)	; &R-J0-6666; [70-70]
+	)
+       ((===cns11643-1	    . #x4857)	; &R-C1-4857; [40-55]
+	)
+       ((===gt		    . 37829)	; &R-GT-37829;
+	(===gt-k	    . 01735)	; &R-GT-37829;
+	)
+       ((===ucs@ks	    . #x807F)	; &R-K0-6B53;
+	(===ks-x1001	    . #x6B53)	; &R-K0-6B53; [75-51]
+	)
+       ((===ucs@unicode	    . #x807F)	; &R-UU+807F;
+	))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -23,14 +60,16 @@
     (ideographic-radical . 129)	; ⾀
     (ideographic-strokes . 0)
     (total-strokes	 . 6)
-    (<-ideographic-component-forms
+    (=big5-cdp		. #x8BC6)	; &CDP-8BC6;
+    (=gt-k		. 02451)	; &I-GT-K02451;
+    (=gt-pj-k1		. #x325E)	; &CDP-8BC6; [18-62]
+    (<-formed@component/connect-below
      ((=ucs		  . #x807F)	; 聿
       ))
     (->subsumptive
-     ((=big5-cdp	  . #x8BC6)	; &CDP-8BC6;
+     ((==big5-cdp	  . #x8BC6)	; &g2-CDP-8BC6;
       )
-     ((=gt-k		  . 02451)	; &GT-K02451;
-      (=gt-pj-k1	  . #x325E)	; &GT-K02451; [18-62]
+     ((==gt-k		  . 02451)	; &g2-GT-K02451;
       ))
     ))
 (define-char
-- 
1.7.10.4