From e9c16349a57eada638fe896026e0bc088a825718 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 9 Jan 2018 19:15:23 +0900
Subject: [PATCH] (U+9FB1): Add `<-denotational@component' for A-compU+9FB1;
 unify MJ057203 and KOSEKI-053570. (A-compU+9FB1): New
 abstract node.

---
 lisp/utf-2000/Ideograph-R031-Enclosure.el |   31 ++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

diff --git a/lisp/utf-2000/Ideograph-R031-Enclosure.el b/lisp/utf-2000/Ideograph-R031-Enclosure.el
index 7ff9bbc..df05ac8 100644
--- a/lisp/utf-2000/Ideograph-R031-Enclosure.el
+++ b/lisp/utf-2000/Ideograph-R031-Enclosure.el
@@ -473,7 +473,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 31)	; ⼞
+  '((<-denotational@component
+     ((=>ucs@component	  . #x9FB1)	; &A-compU+9FB1;
+      ))
+    (ideographic-radical . 31)	; ⼞
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
     (ideographic-structure
@@ -485,7 +488,33 @@
      ((=ucs		  . #x3405)	; 㐅
       ))
     (=ucs		. #x9FB1)	; é¾±
+    (=mj		. 057203)	; &I-MJ057203;
+    (=koseki		. 053570)	; é¾±
     (=cbeta		. 00638)	; &I-CB00638;
+    (<-formed
+     ((=ucs		  . #x56DA)	; 囚
+      ))
+    (<-formed*sources
+     koseki)
+    (->subsumptive
+     ((==ucs@unicode	  . #x9FB1)	; &g2-MJ057203;
+      (==mj		  . 057203)	; &g2-MJ057203;
+      (==koseki		  . 053570)	; &g2-MJ057203;
+      (==cbeta		  . 00638)	; &g2-MJ057203;
+      (->subsumptive
+       ((===mj		    . 057203)	; &R-MJ057203;
+	)
+       ((===cbeta	    . 00638)	; &R-CB00638;
+	)
+       ((===ucs@unicode	    . #x9FB1)	; &R-UU+9FB1;
+	))
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 31)	; ⼞
+    (ideographic-strokes . 2)
+    (total-strokes	 . 5)
+    (=>ucs@component	. #x9FB1)	; &A-compU+9FB1;
     ))
 (define-char
   '((ideographic-radical . 31)	; ⼞
-- 
1.7.10.4