From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 19 Jan 2022 13:32:07 +0000 (+0900)
Subject: (A-MJ057082): Unify A-CB09114.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ea7ab87677c73029f5d608c4e9102cf37daa6c06;p=chise%2Fxemacs-chise.git

(A-MJ057082): Unify A-CB09114.
(MJ057082): Add strokes; add `ideographic-structure'.
(CB09114): New character; use `<-subsumptive' for A-MJ057082.
---

diff --git a/lisp/utf-2000/Ideograph-R020-Wrap.el b/lisp/utf-2000/Ideograph-R020-Wrap.el
index c508e2b..a7f61b5 100644
--- a/lisp/utf-2000/Ideograph-R020-Wrap.el
+++ b/lisp/utf-2000/Ideograph-R020-Wrap.el
@@ -2768,14 +2768,41 @@
       )
      ((=ucs		  . #x26222)	; 𦈢
       ))
-    (=>mj		. 057082)	; &A-MJ057082;
+    (=>mj		. 057082)	; &A-CB09114;
+    (=>cbeta		. 09114)	; &A-CB09114;
     (->subsumptive
-     ((=mj		  . 057082)	; &MJ057082;
+     ((ideographic-strokes . 6)
+      (total-strokes	   . 8)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
+	(=ucs		    . #x2FF9)	; ⿹
+	)
+       ((=ucs		    . #x52F9)	; 勹
+	)
+       ((=>>ucs@iso	    . #x26222)	; &G-CDP-8DD6;
+	(=>>daikanwa	    . 28109)	; &G-CDP-8DD6;
+	))
+      (=mj		  . 057082)	; &MJ057082;
       (=koseki		  . 029330)	; &MJ057082;
       (->subsumptive
        ((==mj		    . 057082)	; &g2-MJ057082;
 	(==koseki	    . 029330)	; &g2-MJ057082;
 	))
+      )
+     ((ideographic-strokes . 7)
+      (total-strokes	   . 9)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
+	(=ucs		    . #x2FF9)	; ⿹
+	)
+       ((=ucs		    . #x52F9)	; 勹
+	)
+       ((=mj		    . 057891)	; &MJ057891;
+	))
+      (=cbeta		  . 09114)	; &CB09114;
+      (->subsumptive
+       ((==cbeta	    . 09114)	; &g2-CB09114;
+	))
       ))
     ))
 (define-char