From 442403805085b085345c2d531078c2d9aba57363 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 19 Dec 2016 18:07:49 +0900
Subject: [PATCH] (U+4E29): Apply new conventions for glyph granularity.
 (GT-K00240): New character; use `<-denotational' for
 U+4E29. (GT-K01123): New character; use `<-subsumptive' for
 U+4E31.

---
 lisp/utf-2000/Ideograph-R002-Line.el |  110 +++++++++++++++++++++-------------
 1 file changed, 68 insertions(+), 42 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R002-Line.el b/lisp/utf-2000/Ideograph-R002-Line.el
index ccc9125..3559e5b 100644
--- a/lisp/utf-2000/Ideograph-R002-Line.el
+++ b/lisp/utf-2000/Ideograph-R002-Line.el
@@ -19,59 +19,79 @@
     ))
 (define-char
   '((ideographic-radical . 2)	; ⼁
+    (=ucs		. #x4E29)	; 丩
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x4E29)	; 丩
+      ))
+    (ideographic-radical . 2)	; ⼁
     (ideographic-strokes . 1)
     (total-strokes	 . 2)
     (hanyu-dazidian	1 49 2)
-    (=ucs		. #x4E29)	; 丩
+    (=ucs@unicode	. #x4E29)	; &AJ1-17237;
+    (=adobe-japan1-5	. 17237)	; &AJ1-17237;
+    (=cns11643-4	. #x2127)	; &I-C4-2127; [01-07]
+    (=jis-x0213-2	. #x2125)	; &I-JX2-2125; [01-05]
+    (=big5-cdp		. #x8BA3)	; &I-CDP-8BA3;
+    (=gt		. 00102)	; &I-GT-00102;
+    (=gt-k		. 00069)	; &I-GT-K00069;
+    (=gt-pj-2		. #x3054)	; &I-GT-00102; [16-52]
+    (=daikanwa		. 00068)	; &I-M-00068;
+    (=shinjigen		.  0031)	; &AJ1-17237;
     (->subsumptive
-     ((=ucs@unicode	  . #x4E29)	; &AJ1-17237;
-      (=adobe-japan1-5	  . 17237)	; &AJ1-17237;
-      (=jis-x0213-2	  . #x2125)	; &I-JX2-2125; [01-05]
-      (=big5-cdp	  . #x8BA3)	; &I-CDP-8BA3;
-      (=gt		  . 00102)	; &I-GT-00102;
-      (=gt-k		  . 00069)	; &I-GT-K00069;
-      (=gt-pj-2		  . #x3054)	; &I-GT-00102; [16-52]
-      (=daikanwa	  . 00068)	; &I-M-00068;
-      (=shinjigen	  .  0031)	; &AJ1-17237;
+     ((=decomposition@cid
+       ((=ucs		    . #x4E29)	; 丩
+	)
+       ((=ucs		    . #xE0100)	; 󠄀
+	))
+      (==ucs@unicode	  . #x4E29)	; &g2-AJ1-17237;
+      (==adobe-japan1-5	  . 17237)	; &g2-AJ1-17237;
+      (==jis-x0213-2	  . #x2125)	; &g2-AJ1-17237; [01-05]
+      (==daikanwa	  . 00068)	; &g2-AJ1-17237;
+      (==shinjigen	  .  0031)	; &g2-AJ1-17237;
       (->subsumptive
-       ((=decomposition@cid
-	 ((=ucs		      . #x4E29)	; 丩
-	  )
-	 ((=ucs		      . #xE0100)	; 󠄀
-	  ))
-	(==ucs@unicode	    . #x4E29)	; &g2-AJ1-17237;
-	(==adobe-japan1-5   . 17237)	; &g2-AJ1-17237;
-	(==jis-x0213-2	    . #x2125)	; &g2-AJ1-17237; [01-05]
-	(==daikanwa	    . 00068)	; &g2-AJ1-17237;
-	(==shinjigen	    .  0031)	; &g2-AJ1-17237;
-	(->subsumptive
-	 ((===daikanwa	      . 00068)	; &R-M-00068;
-	  )
-	 ((===jis-x0213-2     . #x2125)	; &R-JX2-2125; [01-05]
-	  )
-	 ((===adobe-japan1-5  . 17237)	; &R-AJ1-17237;
-	  )
-	 ((===ucs@unicode     . #x4E29)	; &R-UU+4E29;
-	  ))
+       ((===daikanwa	    . 00068)	; &R-M-00068;
 	)
-       ((==big5-cdp	    . #x8BA3)	; &g2-GT-00102;
-	(==gt		    . 00102)	; &g2-GT-00102;
-	(==gt-k		    . 00069)	; &g2-GT-00102;
-	(->subsumptive
-	 ((===big5-cdp	      . #x8BA3)	; &R-CDP-8BA3;
-	  )
-	 ((===gt	      . 00102)	; &R-GT-00102;
-	  (===gt-k	      . 00069)	; &R-GT-00102;
-	  ))
+       ((===jis-x0213-2	    . #x2125)	; &R-JX2-2125; [01-05]
+	)
+       ((===adobe-japan1-5  . 17237)	; &R-AJ1-17237;
+	)
+       ((===ucs@unicode	    . #x4E29)	; &R-UU+4E29;
+	))
+      )
+     ((==big5-cdp	  . #x8BA3)	; &g2-GT-00102;
+      (==gt		  . 00102)	; &g2-GT-00102;
+      (==gt-k		  . 00069)	; &g2-GT-00102;
+      (->subsumptive
+       ((===big5-cdp	    . #x8BA3)	; &R-CDP-8BA3;
+	)
+       ((===gt		    . 00102)	; &R-GT-00102;
+	(===gt-k	    . 00069)	; &R-GT-00102;
 	))
       )
-     ((=ucs@cns		  . #x4E29)	; &C4-2127;
-      (=cns11643-4	  . #x2127)	; &C4-2127; [01-07]
-      (=gt-k		  . 00068)	; &I-GT-K00068;
-      (=gt-pj-k1	  . #x735C)	; &C4-2127; [83-60]
+     ((==ucs@cns	  . #x4E29)	; &GT-K00068;
+      (==cns11643-4	  . #x2127)	; &GT-K00068; [01-07]
+      (=gt-k		  . 00068)	; &GT-K00068;
+      (=gt-pj-k1	  . #x735C)	; &GT-K00068; [83-60]
+      (->subsumptive
+       ((===cns11643-4	    . #x2127)	; &R-C4-2127; [01-07]
+	)
+       ((===gt-k	    . 00068)	; &R-GT-K00068;
+	))
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x4E29)	; 丩
+      ))
+    (ideographic-radical . 2)	; ⼁
+    (ideographic-strokes . 2)
+    (total-strokes	 . 3)
+    (=gt-k		. 00240)	; &GT-K00240;
+    (=gt-pj-k1		. #x364A)	; &GT-K00240; [22-42]
+    ))
+(define-char
   '((ideographic-radical@ucs . 2)	; ⼁
     (ideographic-strokes@ucs . 1)
     (ideographic-radical@ucs*sources
@@ -544,6 +564,12 @@
       )
      ((==ucs@unicode	  . #x4E31)	; &g2-UU+4E31;
       (==ucs@JP/hanazono  . nil)
+      )
+     ((=gt-k		  . 01123)	; &GT-K01123;
+      (=gt-pj-k1	  . #x3E57)	; &GT-K01123; [30-55]
+      (<-formed@component
+       ((=ucs		    . #x4E31)	; 丱
+	))
       ))
     ))
 (define-char
-- 
1.7.10.4