From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 9 Jan 2018 10:15:23 +0000 (+0900)
Subject: (U+9FB1): Add `<-denotational@component' for A-compU+9FB1; unify
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e9c16349a57eada638fe896026e0bc088a825718;p=chise%2Fxemacs-chise.git

(U+9FB1): Add `<-denotational@component' for A-compU+9FB1; unify
MJ057203 and KOSEKI-053570.
(A-compU+9FB1): New abstract node.
---

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)	; ⼞