(A-U+2458A-itaiji-001): Add `ideographic-structure'.

(U+2458A-itaiji-001): Modify structure; preserve the previous
structure as an apparent structure.
(GT-K05012): Likewise.

diff --git a/lisp/utf-2000/Ideograph-R078-Death.el b/lisp/utf-2000/Ideograph-R078-Death.el
index 03993fb..8481788 100644 (file)
--- a/lisp/utf-2000/Ideograph-R078-Death.el
+++ b/lisp/utf-2000/Ideograph-R078-Death.el
@@ -1366,6 +1366,15 @@
   '((ideographic-radical . 78) ; ⽍
     (ideographic-strokes . 3)
     (total-strokes      . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x239B5)    ; 𣦵
+      )
+     ((=>ucs@iwds-1      . #x4E0C)     ; &A-IWDSU+4E0C;
+      (=>iwds-1                  .  0221)      ; &A-IWDSU+4E0C;
+      ))
     (=>ucs-itaiji-001  . #x2458A)      ; &A-U-i001+2458A;
     ))
 (define-char
@@ -1379,6 +1388,15 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
       )
+     ((=ucs              . #x239B5)    ; 𣦵
+      )
+     ((=ucs@unicode      . #x5140)     ; &AJ1-04209;
+      (=adobe-japan1-0   . 04209)      ; &AJ1-04209;
+      ))
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
      ((=gt-k             . 00877)      ; &GT-K00877;
       )
      ((=ucs              . #x5143)     ; 元
@@ -1421,6 +1439,14 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
       )
+     ((=ucs              . #x239B5)    ; 𣦵
+      )
+     ((=ucs              . #x4E0C)     ; 丌
+      ))
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
      ((=gt-k             . 00877)      ; &GT-K00877;
       )
      ((=ucs              . #x4E93)     ; 亓