From 73026714ce24c025dd1494a5a2cdb3353206ccce Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 31 May 2017 00:55:42 +0900
Subject: [PATCH] (U+39BF): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R063-Door.el |   66 ++++++++++++++++++++++++++++++++--
 1 file changed, 63 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R063-Door.el b/lisp/utf-2000/Ideograph-R063-Door.el
index 1d49ced..fcd398f 100644
--- a/lisp/utf-2000/Ideograph-R063-Door.el
+++ b/lisp/utf-2000/Ideograph-R063-Door.el
@@ -481,13 +481,73 @@
   '((ideographic-radical . 63)	; â¼¾
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=>iwds-1		  .  0007)	; &IWDS1-007;
+      )
+     ((=ucs		  . #x6728)	; 木
+      ))
     (=ucs		. #x39BF)	; 㦿
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x39BF)	; 㦿
+      ))
+    (ideographic-radical . 63)	; â¼¾
+    (ideographic-strokes . 4)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x6236)	; 戶
+      )
+     ((=ucs		  . #x6728)	; 木
+      ))
+    (=ucs@cns		. #x39BF)	; &C4-2655;
+    (=cns11643-4	. #x2655)	; &C4-2655; [06-53]
+    (=daikanwa		. 11710)	; &I-M-11710;
     (->subsumptive
-     ((=daikanwa	  . 11710)	; &M-11710;
+     ((==daikanwa	  . 11710)	; &g2-M-11710;
+      )
+     ((==ucs@cns	  . #x39BF)	; &g2-CU+39BF;
+      (==cns11643-4	  . #x2655)	; &g2-CU+39BF; [06-53]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x39BF)	; 㦿
+      ))
+    (ideographic-radical . 63)	; â¼¾
+    (ideographic-strokes . 4)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
       )
-     ((=cns11643-4	  . #x2655)	; &C4-2655; [06-53]
+     ((=+>ucs@jis	  . #x6238)	; &o-J0-384D;
+      (=+>jis-x0208	  . #x384D)	; &o-J0-384D; [24-45]
       )
-     ((=ucs@unicode	  . #x39BF)	; &UU+39BF;
+     ((=ucs		  . #x6728)	; 木
+      ))
+    (=ucs@unicode	. #x39BF)	; &UU+39BF;
+    (=ucs@JP/hanazono	. nil)
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+	(=ucs		    . #x2FF8)	; ⿸
+	)
+       ((=ucs		    . #x6237)	; 户
+	)
+       ((=ucs		    . #x6728)	; 木
+	))
+      (=>>ucs@unicode	  . #x39BF)	; &G-UU+39BF;
+      (->subsumptive
+       ((==ucs@unicode	    . #x39BF)	; &g2-UU+39BF;
+	(==ucs@JP/hanazono  . nil)
+	))
       ))
     ))
 (define-char
-- 
1.7.10.4