From fc222e6894a7420f5cfa8a96e38175f0999de56e Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 20 Jan 2019 02:55:28 +0900
Subject: [PATCH] (A-cgnBC-8CC9): Changed from A-BC-8CC9.
 (BC-8CC9-itaiji-001): Use A-cgnBC-8CC9 instead of A-BC-8CC9
 as its mother. (BC-8CC9): Likewise; apply new conventions
 for glyph granularity. (BC-8CC9-var-002): New character;
 use `<-subsumptive' for BC-8CC9. (BC-8CC9-itaiji-002): Use
 A-cgnBC-8CC9 instead of A-BC-8CC9 as its mother.

---
 lisp/utf-2000/Ideograph-R131-Minister.el |   40 +++++++++++++++++++++++-------
 1 file changed, 31 insertions(+), 9 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R131-Minister.el b/lisp/utf-2000/Ideograph-R131-Minister.el
index bcbef3b..c881a1c 100644
--- a/lisp/utf-2000/Ideograph-R131-Minister.el
+++ b/lisp/utf-2000/Ideograph-R131-Minister.el
@@ -330,13 +330,11 @@
     ))
 (define-char
   '((ideographic-radical . 131)	; ⾂
-    (ideographic-strokes . 3)
-    (total-strokes	 . 9)
-    (=>big5-cdp		. #x8CC9)	; &A-CDP-8CC9;
+    (=>big5-cdp@cognate . #x8CC9)	; &A-cgnCDP-8CC9;
     ))
 (define-char
   '((<-denotational
-     ((=>big5-cdp	  . #x8CC9)	; &A-CDP-8CC9;
+     ((=>big5-cdp@cognate . #x8CC9)	; &A-cgnCDP-8CC9;
       ))
     (ideographic-radical . 131)	; ⾂
     (ideographic-strokes . 3)
@@ -361,7 +359,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=>big5-cdp	  . #x8CC9)	; &A-CDP-8CC9;
+     ((=>big5-cdp@cognate . #x8CC9)	; &A-cgnCDP-8CC9;
       ))
     (ideographic-radical . 131)	; ⾂
     (ideographic-strokes . 3)
@@ -372,11 +370,32 @@
       )
      ((=ucs		  . #x81E3)	; 臣
       )
-     ((=big5-cdp	  . #x8C74)	; &CDP-8C74;
+     ((=+>big5-cdp	  . #x8C74)	; &o-CDP-8C74;
       ))
     (=big5-cdp		. #x8CC9)	; &CDP-8CC9;
     (->subsumptive
-     ((==big5-cdp	  . #x8CC9)	; &g2-CDP-8CC9;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x81E3)	; 臣
+	)
+       ((=big5-cdp	    . #x8C74)	; &CDP-8C74;
+	))
+      (=>>big5-cdp	  . #x8CC9)	; &G-CDP-8CC9;
+      (->subsumptive
+       ((==big5-cdp	    . #x8CC9)	; &g2-CDP-8CC9;
+	))
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x81E3)	; 臣
+	)
+       ((=big5-cdp	    . #x89BC)	; &CDP-89BC;
+	))
+      (=big5-cdp-var-002  . #x8CC9)	; &CDP-v002-8CC9;
       ))
     ))
 (define-char
@@ -433,7 +452,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=>big5-cdp	  . #x8CC9)	; &A-CDP-8CC9;
+     ((=>big5-cdp@cognate . #x8CC9)	; &A-cgnCDP-8CC9;
       ))
     (ideographic-radical . 131)	; ⾂
     (ideographic-strokes . 4)
@@ -674,7 +693,10 @@
      ((=ucs		  . #x76E3)	; 監
       ))
     (->subsumptive
-     ((==big5-cdp	  . #x8D50)	; &g2-CDP-8D50;
+     ((=>>big5-cdp	  . #x8D50)	; &G-CDP-8D50;
+      (->subsumptive
+       ((==big5-cdp	    . #x8D50)	; &g2-CDP-8D50;
+	))
       ))
     ))
 (define-char
-- 
1.7.10.4