From b38ee9a7c84923c1989b2695e8f692d5089ddd2f Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 27 Apr 2017 19:47:50 +0900
Subject: [PATCH] (U+34BC): Apply new conventions for glyph granularity.
 (MJ057021): New character; use `<-denotational' for U+34BC;
 unify HD-KS018450; add `<-formed' for UU+34BC.

---
 lisp/utf-2000/Ideograph-R013-Down-Box.el |   70 +++++++++++++++++++++++++++---
 1 file changed, 65 insertions(+), 5 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index 3de46d3..d2e78aa 100644
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -2791,21 +2791,45 @@
     (ideographic-radical . 13)	; ⼌
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
-    (hanyu-dazidian	1 101 3)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x5EFF)	; 廿
+     ((=>ucs@component	  . #x5EFF)	; &IWDS1-303;
+      (=>iwds-1		  .  0303)	; &IWDS1-303;
       )
-     ((=big5-cdp	  . #x8C62)	; &CDP-8C62;
+     ((=>big5-cdp	  . #x8C62)	; &A-CDP-8C62;
       ))
     (sound@ja/on/go/p1	"maN")
     (sound@ja/on/go/p2	"meN")
     (sound@ja/on/kan/p1 "baN")
     (sound@ja/on/kan/p2 "beN")
     (=ucs		. #x34BC)	; 㒼
-    (=adobe-japan1-5	. 17303)	; &I-AJ1-17303;
+    (=>cns11643-5	. #x3126)	; 㒼 [17-06]
+    (=>jis-x0213-2	. #x232B)	; 㒼 [03-11]
+    (=>big5-cdp		. #x8C61)	; 㒼
+    (=>gt		. 02035)	; 㒼
+    (=>gt-k		. 08276)	; 㒼
+    (=>daikanwa		. 01547)	; 㒼
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x34BC)	; 㒼
+      ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 9)
+    (total-strokes	 . 11)
+    (hanyu-dazidian	1 101 3)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5EFF)	; 廿
+      )
+     ((=big5-cdp	  . #x8C62)	; &CDP-8C62;
+      ))
+    (=ucs@unicode	. #x34BC)	; &AJ1-17303;
+    (=adobe-japan1-5	. 17303)	; &AJ1-17303;
     (=cns11643-5	. #x3126)	; &I-C5-3126; [17-06]
     (=jis-x0213-2	. #x232B)	; &I-JX2-232B; [03-11]
     (=big5-cdp		. #x8C61)	; &I-CDP-8C61;
@@ -2840,7 +2864,8 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((=ucs		    . #x5EFF)	; 廿
+       ((==ucs@unicode	    . #x5EFF)	; &g2-AJ1-03283;
+	(==adobe-japan1-0   . 03283)	; &g2-AJ1-03283;
 	)
        ((==big5-cdp	    . #x8C62)	; &g2-CDP-8C62;
 	))
@@ -2858,6 +2883,41 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x34BC)	; 㒼
+      ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 9)
+    (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x9FB7)	; &CDP-8B5C;
+      (=big5-cdp	  . #x8B5C)	; &CDP-8B5C;
+      )
+     ((=big5-cdp-var-001  . #x8C62)	; &CDP-v001-8C62;
+      ))
+    (=mj		. 057021)	; &MJ057021;
+    (=hanyo-denshi/ks	. 018450)	; &MJ057021;
+    (<-formed
+     ((=ucs@unicode	  . #x34BC)	; &AJ1-17303;
+      (=adobe-japan1-5	  . 17303)	; &AJ1-17303;
+      ))
+    (<-formed*sources
+     koseki)
+    (->subsumptive
+     ((==mj		  . 057021)	; &g2-MJ057021;
+      (==hanyo-denshi/ks  . 018450)	; &g2-MJ057021;
+      (->subsumptive
+       ((===hanyo-denshi/ks . 018450)	; &R-HD-KS-018450;
+	(=hanyo-denshi/ks/mf . #x0735)	; &R-HD-KS-018450;
+	)
+       ((===mj		    . 057021)	; &R-MJ057021;
+	))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 13)	; ⼌
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
-- 
1.7.10.4