From fd6e7f402dee64bc402333c023b704d2638d4e7c Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 28 Jul 2020 09:14:23 +0900
Subject: [PATCH] (A-BC-8CC3-itaiji-001): New abstract node; use
 `<-denotational' for A-cgnBC-8CC3. (BC-8CC3-itaiji-001):
 New character; use `<-denotational' for
 A-BC-8CC3-itaiji-001. (A-U+8A79-itaiji-001): New abstract
 node; use `<-denotational' for A-cgnU+269D5; use
 `<-denotational@usage' for BUCS+8A79. (U+8A79-itaiji-001):
 Use A-U+8A79-itaiji-001 instead of BUCS+8A79 as its mother.

---
 lisp/utf-2000/Ideograph-R048-Work.el |   73 +++++++++++++++++++++++++++++-----
 1 file changed, 64 insertions(+), 9 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R048-Work.el b/lisp/utf-2000/Ideograph-R048-Work.el
index f5eed77..431b5e2 100644
--- a/lisp/utf-2000/Ideograph-R048-Work.el
+++ b/lisp/utf-2000/Ideograph-R048-Work.el
@@ -1037,6 +1037,44 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>big5-cdp@cognate . #x8CC3)	; &A-cgnCDP-8CC3;
+      ))
+    (ideographic-radical . 48)	; ⼯
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@iwds-1	  . #x4E37)	; &A-IWDSU+4E37;
+      (=>iwds-1		  .  22119)	; &A-IWDSU+4E37;
+      )
+     ((=ucs		  . #x2201B)	; 𢀛
+      ))
+    (=>big5-cdp-itaiji-001 . #x8CC3)	; &A-CDP-i001-8CC3;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp-itaiji-001 . #x8CC3)	; &A-CDP-i001-8CC3;
+      ))
+    (ideographic-radical . 48)	; ⼯
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x513F)	; 儿
+      )
+     ((=ucs		  . #x2201B)	; 𢀛
+      ))
+    (=big5-cdp-itaiji-001 . #x8CC3)	; &CDP-i001-8CC3;
+    (->subsumptive
+     ((==big5-cdp-itaiji-001 . #x8CC3)	; &g2-CDP-i001-8CC3;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 48)	; ⼯
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
@@ -1261,6 +1299,9 @@
     ))
 (define-char
   '((<-denotational
+     ((=>ucs@cognate	  . #x269D5)	; &A-cgnU+269D5;
+      ))
+    (<-denotational@usage
      ((==>ucs@bucs	  . #x8A79)	; &BUCS+8A79;
       ))
     (ideographic-radical . 48)	; ⼯
@@ -1270,21 +1311,35 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
       (=ucs		  . #x2FF8)	; ⿸
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
-	(=ucs		    . #x2FF8)	; ⿸
-	)
-       ((=ucs		    . #x5383)	; 厃
-	)
-       ((=ucs		    . #x513F)	; 儿
-	))
+     ((=ucs		  . #x5383)	; 厃
       )
-     ((=ucs		  . #x2201B)	; 𢀛
+     ((=>big5-cdp-itaiji-001 . #x8CC3)	; &A-CDP-i001-8CC3;
+      ))
+    (=>ucs-itaiji-001	. #x8A79)	; &A-U-i001+8A79;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-001	  . #x8A79)	; &A-U-i001+8A79;
+      ))
+    (ideographic-radical . 48)	; ⼯
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs@unicode	  . #x5383)	; &AJ1-21236;
+      (=adobe-japan1-6	  . 21236)	; &AJ1-21236;
+      )
+     ((=big5-cdp-itaiji-001 . #x8CC3)	; &CDP-i001-8CC3;
       ))
     (=ucs-itaiji-001	. #x8A79)	; &U-i001+8A79;
     (<-formed
      ((=ucs		  . #x8A79)	; 詹
       ))
+    (->subsumptive
+     ((==ucs-itaiji-001	  . #x8A79)	; &g2-U-i001+8A79;
+      ))
     ))
 (define-char
   '((ideographic-radical . 48)	; ⼯
-- 
1.7.10.4