(U-00021A1D): Use A-compU+5915 instead of U+5915 as a component.

(U+21A1D-itaiji-001): Modify structure.
(U+21A1D-itaiji-004): New character; use `<-denotational' for
U-00021A1D.

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 0159f2b..dfcaa8c 100644 (file)
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -9309,7 +9309,7 @@
       )
      ((=>ucs@component   . #x707E)     ; &A-compU+707E;
       )
-     ((=ucs              . #x5915)     ; 夕
+     ((=>ucs@component   . #x5915)     ; &A-compU+5915;
       ))
     (=ucs              . #x21A1D)      ; 𡨝
     (<-formed
@@ -9349,18 +9349,33 @@
     (ideographic-strokes . 7)
     (total-strokes      . 10)
     (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-      (=ucs              . #x2FF3)     ; ⿳
-      )
-     ((=ucs              . #x5B80)     ; 宀
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
       )
-     ((=gt-k             . 00859)      ; &GT-K00859;
+     ((=ucs-itaiji-001   . #x707E)     ; &U-i001+707E;
       )
      ((=ucs              . #x5915)     ; 夕
       ))
     (=ucs-itaiji-001   . #x21A1D)      ; &U-i001+21A1D;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x21A1D)    ; 𡨝
+      ))
+    (ideographic-radical . 40) ; ⼧
+    (ideographic-strokes . 7)
+    (total-strokes      . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs-itaiji-001   . #x707E)     ; &U-i001+707E;
+      )
+     ((=ucs              . #x5902)     ; 夂
+      ))
+    (=ucs-itaiji-004   . #x21A1D)      ; &U-i004+21A1D;
+    ))
+(define-char
   '((ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 7)
     (total-strokes      . 10)