From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 16 Mar 2024 09:48:14 +0000 (+0900)
Subject: (A-BC-88CB-itaiji-001): Add `ideographic-structure'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b2789d443191cbc887e1d7dccd610d0d2f22580b;p=chise%2Fxemacs-chise.git

(A-BC-88CB-itaiji-001): Add `ideographic-structure'.
(BC-88CB-itaiji-001): Add `ideographic-structure'.
(U-0002A6B4): New character.
---

diff --git a/lisp/utf-2000/Ideograph-R213-Turtle.el b/lisp/utf-2000/Ideograph-R213-Turtle.el
index a1283d3..ae489af 100644
--- a/lisp/utf-2000/Ideograph-R213-Turtle.el
+++ b/lisp/utf-2000/Ideograph-R213-Turtle.el
@@ -910,6 +910,15 @@
 (define-char
   '((ideographic-radical . 213)	; ⿔
     (ideographic-strokes . 0)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x5200)	; &A-compU+5200;
+      (=>iwds-1		  .  0149)	; &A-compU+5200;
+      )
+     ((=>ucs-itaiji-002	  . #x5B83)	; &A-U-i002+5B83;
+      ))
     (=>big5-cdp-itaiji-001 . #x88CB)	; &A-CDP-i001-88CB;
     ))
 (define-char
@@ -919,6 +928,14 @@
     (ideographic-radical . 213)	; ⿔
     (ideographic-strokes . 0)
     (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x2008A)	; 𠂊
+      )
+     ((=ucs-itaiji-002	  . #x5B83)	; &U-i002+5B83;
+      ))
     (=big5-cdp-itaiji-001 . #x88CB)	; &CDP-i001-88CB;
     (<-unknown
      ((=big5-cdp	  . #x88CB)	; &CDP-88CB;
@@ -1462,6 +1479,47 @@
 (define-char
   '((ideographic-radical . 213)	; ⿔
     (ideographic-strokes . 4)
+    (total-strokes	 . 16)
+    (=ucs		. #x2A6B4)	; 𪚴
+    (=>ucs-itaiji-005	. #x9EFD)	; 𪚴
+    (=>ucs-itaiji-006	. #x9EFD)	; 𪚴
+    (<-formed@component
+     ((=ucs		  . #x9EFD)	; 黽
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2A6B4)	; 𪚴
+      ))
+    (ideographic-radical . 213)	; ⿔
+    (ideographic-strokes . 4)
+    (total-strokes	 . 16)
+    (=ucs-itaiji-005	. #x9EFD)	; &U-i005+9EFD;
+    (->subsumptive
+     ((==ucs-itaiji-005	  . #x9EFD)	; &g2-U-i005+9EFD;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2A6B4)	; 𪚴
+      ))
+    (ideographic-radical . 213)	; ⿔
+    (ideographic-strokes . 4)
+    (total-strokes	 . 16)
+    (=ucs@iso		. #x2A6B4)	; &U-0002A6B4;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2A6B4)	; 𪚴
+      ))
+    (ideographic-radical . 213)	; ⿔
+    (ideographic-strokes . 4)
+    (total-strokes	 . 16)
+    (=ucs-itaiji-006	. #x9EFD)	; &U-i006+9EFD;
+    ))
+(define-char
+  '((ideographic-radical . 213)	; ⿔
+    (ideographic-strokes . 4)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱