From fdbf39e41f38e41a0549b773c2ed623c10c58883 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 9 Jan 2024 14:55:20 +0900
Subject: [PATCH] (U-00030004): Unify CB08601. (A-U+4EA1-itaiji-001): New
 abstract node. (U+4EA1-itaiji-001): New character; use
 `<-denotational' for A-U+4EA1-itaiji-001.
 (A-U+200EC-itaiji-004): New abstract node.
 (U+200EC-itaiji-004): New character; use `<-denotational'
 for A-U+200EC-itaiji-004.

---
 lisp/utf-2000/Ideograph-R001-One.el |   71 +++++++++++++++++++++++++++++++++++
 1 file changed, 71 insertions(+)

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index ef3a2cc..b798b0e 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -1844,15 +1844,19 @@
     (=big5-cdp		. #x89E3)	; &I-CDP-89E3;
     (=gt-k		. 00278)	; &I-GT-K00278;
     (=gt-pj-k1		. #x3573)	; 𰀄 [21-83]
+    (=cbeta		. 08601)	; &I-CB08601;
     (->subsumptive
      ((==ucs@JP/hanazono  . #x30004)	; &g2-CDP-89E3;
       (==big5-cdp	  . #x89E3)	; &g2-CDP-89E3;
       (==gt-k		  . 00278)	; &g2-CDP-89E3;
       (==gt-pj-k1	  . #x3573)	; &g2-CDP-89E3; [21-83]
+      (==cbeta		  . 08601)	; &g2-CDP-89E3;
       (->subsumptive
        ((===big5-cdp	    . #x89E3)	; &R-CDP-89E3;
 	)
        ((===gt-k	    . 00278)	; &R-GT-K00278;
+	)
+       ((===cbeta	    . 08601)	; &R-CB08601;
 	))
       ))
     ))
@@ -5107,6 +5111,41 @@
   '((ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 4)
     (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E36)	; 丶
+      )
+     ((=>ucs@iwds-1	  . #x30002)	; &A-IWDSU+30002;
+      (=>big5-cdp	  . #x8DC1)	; &A-IWDSU+30002;
+      ))
+    (=>ucs-itaiji-001	. #x4EA1)	; &A-U-i001+4EA1;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-001	  . #x4EA1)	; &A-U-i001+4EA1;
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E36)	; 丶
+      )
+     ((=ucs-var-002	  . #x2CF16)	; &U-v002+2CF16;
+      ))
+    (=ucs-itaiji-001	. #x4EA1)	; &U-i001+4EA1;
+    (->subsumptive
+     ((==ucs-itaiji-001	  . #x4EA1)	; &g2-U-i001+4EA1;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
     (=gt-k		. 01514)	; &GT-K01514;
     (=gt-pj-k1		. #x432A)	; &GT-K01514; [35-10]
     (<-formed@component
@@ -6570,6 +6609,38 @@
     (=ucs-itaiji-011	. #x6C10)	; &U-i011+6C10;
     ))
 (define-char
+  '((ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 5)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5F50)	; 彐
+      )
+     ((=>ucs@iwds-1	  . #x30002)	; &A-IWDSU+30002;
+      (=>big5-cdp	  . #x8DC1)	; &A-IWDSU+30002;
+      ))
+    (=>ucs-itaiji-004	. #x200EC)	; &A-U-i004+200EC;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-004	  . #x200EC)	; &A-U-i004+200EC;
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 5)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x2B739)	; 𫜹
+      )
+     ((=ucs		  . #x30004)	; 𰀄
+      ))
+    (=ucs-itaiji-004	. #x200EC)	; &U-i004+200EC;
+    ))
+(define-char
   '((<-denotational@usage
      ((==>ucs@bucs	  . #x7232)	; &BUCS+7232;
       ))
-- 
1.7.10.4