From 43841faf94c28a198fcb3217ab7557c56bdf00b2 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 16 Jun 2023 04:49:04 +0900
Subject: [PATCH] (A-BC-8CC6): New abstract node. (BC-8CC6): New character;
 use `<-denotational' for A-BC-8CC6. (A-BC-8851): Add
 `<-denotational@component' for A-compBC-8851.
 (A-BC-8851-itaiji-001): New abstract node; use
 `<-denotational@component' for A-compBC-8851.
 (BC-8851-itaiji-001): New character; use `<-denotational'
 for A-BC-8851-itaiji-001. (A-BC-8851-itaiji-002): New
 abstract node; use `<-denotational@component' for
 A-compBC-8851; unify A-BC-8851-itaiji-003.
 (BC-8851-itaiji-002): New character; use `<-denotational'
 for A-BC-8851-itaiji-002. (BC-8851-itaiji-003): Ditto.
 (A-compBC-8851): New abstract node.

---
 lisp/utf-2000/Ideograph-R083-Clan.el |  103 +++++++++++++++++++++++++++++++++-
 1 file changed, 102 insertions(+), 1 deletion(-)

diff --git a/lisp/utf-2000/Ideograph-R083-Clan.el b/lisp/utf-2000/Ideograph-R083-Clan.el
index 4df70bd..329ff5c 100644
--- a/lisp/utf-2000/Ideograph-R083-Clan.el
+++ b/lisp/utf-2000/Ideograph-R083-Clan.el
@@ -59,6 +59,20 @@
     ))
 (define-char
   '((ideographic-radical . 83)	; ⽒
+    (ideographic-strokes . 0)
+    (=>big5-cdp		. #x8CC6)	; &A-CDP-8CC6;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp	  . #x8CC6)	; &A-CDP-8CC6;
+      ))
+    (ideographic-radical . 83)	; ⽒
+    (ideographic-strokes . 0)
+    (total-strokes	 . 3)
+    (=big5-cdp		. #x8CC6)	; &CDP-8CC6;
+    ))
+(define-char
+  '((ideographic-radical . 83)	; ⽒
     (ideographic-strokes . 1)
     (total-strokes	 . 5)
     (=ucs		. #x6C10)	; 氐
@@ -265,7 +279,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 83)	; ⽒
+  '((<-denotational@component
+     ((=>big5-cdp@component . #x8851)	; &A-compCDP-8851;
+      ))
+    (ideographic-radical . 83)	; ⽒
     (=>big5-cdp		. #x8851)	; &A-CDP-8851;
     ))
 (define-char
@@ -278,6 +295,86 @@
     (=big5-cdp-var-001	. #x8851)	; &CDP-v001-8851;
     ))
 (define-char
+  '((<-denotational@component
+     ((=>big5-cdp@component . #x8851)	; &A-compCDP-8851;
+      ))
+    (ideographic-radical . 83)	; ⽒
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x4E8C)	; &A-compU+4E8C;
+      )
+     ((=>big5-cdp	  . #x8CC6)	; &A-CDP-8CC6;
+      ))
+    (=>big5-cdp-itaiji-001 . #x8851)	; &A-CDP-i001-8851;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp-itaiji-001 . #x8851)	; &A-CDP-i001-8851;
+      ))
+    (ideographic-radical . 83)	; ⽒
+    (ideographic-strokes . 1)
+    (total-strokes	 . 5)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x4E8C)	; &A-compU+4E8C;
+      )
+     ((=big5-cdp	  . #x8CC6)	; &CDP-8CC6;
+      ))
+    (=big5-cdp-itaiji-001 . #x8851)	; &CDP-i001-8851;
+    ))
+(define-char
+  '((<-denotational@component
+     ((=>big5-cdp@component . #x8851)	; &A-compCDP-8851;
+      ))
+    (ideographic-radical . 83)	; ⽒
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x5DE5)	; &A-compU+5DE5;
+      )
+     ((=>big5-cdp	  . #x8CC6)	; &A-CDP-8CC6;
+      ))
+    (=>big5-cdp-itaiji-002 . #x8851)	; &A-CDP-i002-8851;
+    (=>big5-cdp-itaiji-003 . #x8851)	; &A-CDP-i002-8851;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp-itaiji-002 . #x8851)	; &A-CDP-i002-8851;
+      ))
+    (ideographic-radical . 83)	; ⽒
+    (ideographic-strokes . 1)
+    (total-strokes	 . 6)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs@unicode	  . #x5DE5)	; &AJ1-01979;
+      )
+     ((=big5-cdp	  . #x8CC6)	; &CDP-8CC6;
+      ))
+    (=big5-cdp-itaiji-002 . #x8851)	; &CDP-i002-8851;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp-itaiji-002 . #x8851)	; &A-CDP-i002-8851;
+      ))
+    (ideographic-radical . 83)	; ⽒
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=big5-cdp	  . #x8BC8)	; &CDP-8BC8;
+      )
+     ((=big5-cdp	  . #x8CC6)	; &CDP-8CC6;
+      ))
+    (=big5-cdp-itaiji-003 . #x8851)	; &CDP-i003-8851;
+    ))
+(define-char
   '((<-denotational
      ((=>big5-cdp	  . #x8851)	; &A-CDP-8851;
       ))
@@ -493,3 +590,7 @@
     (==>ucs@bucs	. #x6C0F)	; &BUCS+6C0F;
     (==>daijiten	. 05932)	; &BUCS+6C0F;
     ))
+(define-char
+  '((ideographic-radical . 83)	; ⽒
+    (=>big5-cdp@component . #x8851)	; &A-compCDP-8851;
+    ))
-- 
1.7.10.4