From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 26 Oct 2023 02:46:22 +0000 (+0900)
Subject: (A-MJ007320): Modify structure; preserve the previous IDS as an
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bc1a4e8c2968ef47499e4371da5016627e11ea0f;p=chise%2Fxemacs-chise.git

(A-MJ007320): Modify structure; preserve the previous IDS as an
apparent structure.
(MJ007320): Likewise.
(U+5193-var-004): New character; use `<-denotational' for A-MJ007320.
(U+5193-var-003): Use A-MJ007320 instead of U+5193 as its mother; add
`ideographic-structure'.
(GT-02026): Modify structure; preserve the previous IDS as an apparent
structure.
---

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index d37ed9a..6c40d4c 100644
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -4903,6 +4903,14 @@
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
     (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs-itaiji-012	  . #x20992)	; &A-U-i012+20992;
+      )
+     ((=ucs		  . #x5189)	; 冉
+      ))
+    (ideographic-structure@apparent
      ((name		  . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
       (=ucs		  . #x2FFB)	; â¿»
       )
@@ -4921,8 +4929,15 @@
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
     (ideographic-structure
-     ((name		  . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
-      (=ucs		  . #x2FFB)	; â¿»
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs-itaiji-012	  . #x20992)	; &U-i012+20992;
+      )
+     ((=mj		  . 007307)	; &MJ007307;
+      ))
+    (ideographic-structure@apparent
+     ((=ucs-itaiji-002	  . #x2FF1)	; &U-i002+2FF1;
       )
      ((=ucs		  . #x2000E)	; 𠀎
       )
@@ -4963,25 +4978,59 @@
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
     (ideographic-structure
-     ((name		  . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
-      (=ucs		  . #x2FFB)	; â¿»
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x2000E)	; 𠀎
+     ((=ucs-itaiji-014	  . #x20992)	; &U-i014+20992;
+      )
+     ((=mj		  . 007307)	; &MJ007307;
+      ))
+    (=ucs-var-003	. #x5193)	; &U-v003+5193;
+    ))
+(define-char
+  '((<-denotational
+     ((=>mj		  . 007320)	; &A-GT-02023;
+      ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 8)
+    (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs-itaiji-013	  . #x20992)	; &U-i013+20992;
       )
      ((=ucs@unicode	  . #x5189)	; &MJ007308;
       (=mj		  . 007308)	; &MJ007308;
       ))
-    (=gt		. 02026)	; &GT-02026;
-    (=gt-pj-9		. #x5237)	; &GT-02026; [50-23]
+    (=ucs-var-004	. #x5193)	; &U-v004+5193;
     ))
 (define-char
   '((<-denotational
-     ((=ucs		  . #x5193)	; 冓
+     ((=>mj		  . 007320)	; &A-GT-02023;
       ))
     (ideographic-radical . 13)	; ⼌
     (ideographic-strokes . 8)
     (total-strokes	 . 10)
-    (=ucs-var-003	. #x5193)	; &U-v003+5193;
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs-itaiji-012	  . #x20992)	; &U-i012+20992;
+      )
+     ((=ucs@unicode	  . #x5189)	; &MJ007308;
+      (=mj		  . 007308)	; &MJ007308;
+      ))
+    (ideographic-structure@apparent
+     ((=ucs-itaiji-002	  . #x2FF1)	; &U-i002+2FF1;
+      )
+     ((=ucs		  . #x2000E)	; 𠀎
+      )
+     ((=ucs@unicode	  . #x5189)	; &MJ007308;
+      (=mj		  . 007308)	; &MJ007308;
+      ))
+    (=gt		. 02026)	; &GT-02026;
+    (=gt-pj-9		. #x5237)	; &GT-02026; [50-23]
     ))
 (define-char
   '((<-denotational