From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 2 Jul 2024 19:43:39 +0000 (+0900)
Subject: (U+5C3A-itaiji-002): Add `ideographic-structure'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=47c44fb258c23900c3af08886f445bcb5b418de2;p=chise%2Fxemacs-chise.git

(U+5C3A-itaiji-002): Add `ideographic-structure'.
(U-00021C44): New character.
(U-00021C4A): New character.
(GT-K04467): Moved to Ideograph-R030-Mouth.el.
(U-00021C84): New character.
(U-00021C87): New character.
---

diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index b446ff2..d7717df 100644
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -381,6 +381,14 @@
   '((ideographic-radical . 44)	; ⼫
     (ideographic-strokes . 1)
     (total-strokes	 . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x5C38)	; å°¸
+      )
+     ((=ucs		  . #x200CC)	; 𠃌
+      ))
     (=ucs-itaiji-002	. #x5C3A)	; &U-i002+5C3A;
     (<-formed@component
      ((=ucs		  . #x5C3A)	; å°º
@@ -3111,6 +3119,20 @@
       )
      ((=ucs		  . #x5C38)	; å°¸
       )
+     ((=ucs-itaiji-006	  . #x4E13)	; &U-i006+4E13;
+      ))
+    (=ucs		. #x21C44)	; 𡱄
+    ))
+(define-char
+  '((ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x5C38)	; å°¸
+      )
      ((=ucs		  . #x53E5)	; 句
       ))
     (=ucs		. #x21C48)	; 𡱈
@@ -3136,6 +3158,20 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
     (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
+      (=ucs		  . #x2FF5)	; ⿵
+      )
+     ((=ucs-itaiji-002	  . #x5C3A)	; &U-i002+5C3A;
+      )
+     ((=ucs		  . #x6C34)	; æ°´
+      ))
+    (=ucs		. #x21C4A)	; 𡱊
+    ))
+(define-char
+  '((ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
       (=ucs		  . #x2FF8)	; ⿸
       )
@@ -3191,27 +3227,6 @@
     ))
 (define-char
   '((ideographic-radical . 44)	; ⼫
-    (ideographic-strokes . 5)
-    (total-strokes	 . 8)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
-      (=ucs		  . #x2FF5)	; ⿵
-      )
-     ((=ucs-itaiji-002	  . #x5C3A)	; &U-i002+5C3A;
-      )
-     ((=ucs@iso		  . #x20B9B)	; &C4-2147;
-      (=cns11643-4	  . #x2147)	; &C4-2147; [01-39]
-      (=daikanwa	  . 03230)	; &I-M-03230;
-      ))
-    (=gt-k		. 04467)	; &GT-K04467;
-    (=gt-pj-k1		. #x434D)	; &GT-K04467; [35-45]
-    (->subsumptive
-     ((==gt-k		  . 04467)	; &g2-GT-K04467;
-      (==gt-pj-k1	  . #x434D)	; &g2-GT-K04467; [35-45]
-      ))
-    ))
-(define-char
-  '((ideographic-radical . 44)	; ⼫
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
     (=ucs		. #x21C4C)	; 𡱌
@@ -5544,6 +5559,68 @@
       )
      ((=ucs		  . #x5C38)	; å°¸
       )
+     ((=>ucs@component	  . #x22A92)	; &A-compU+22A92;
+      ))
+    (=ucs		. #x21C84)	; 𡲄
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x21C84)	; 𡲄
+      ))
+    (ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 8)
+    (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x5C38)	; å°¸
+      )
+     ((=ucs-itaiji-001	  . #x22A99)	; &U-i001+22A99;
+      ))
+    (=ucs@iso		. #x21C84)	; &U-00021C84;
+    ))
+(define-char
+  '((ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 8)
+    (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x5C38)	; å°¸
+      )
+     ((=>ucs-itaiji-001	  . #x79B9)	; &A-U-i001+79B9;
+      ))
+    (=ucs		. #x21C87)	; 𡲇
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x21C87)	; 𡲇
+      ))
+    (ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 8)
+    (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x5C38)	; å°¸
+      )
+     ((=ucs-itaiji-001	  . #x79B9)	; &U-i001+79B9;
+      ))
+    (=ucs@iso		. #x21C87)	; &U-00021C87;
+    ))
+(define-char
+  '((ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 8)
+    (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=ucs		  . #x5C38)	; å°¸
+      )
      ((=>ucs-itaiji-002	  . #x4E30)	; &A-U-i002+4E30;
       ))
     (=ucs		. #x21C93)	; 𡲓