(U+8846): Add `ideographic-structure'.

(UU+8846): Likewise.
(U+8846-itaiji-005): Use UU+4E51 instead of U+4E51 in
`ideographic-structure'.

diff --git a/lisp/utf-2000/Ideograph-R143-Blood.el b/lisp/utf-2000/Ideograph-R143-Blood.el
index 2e49271..73cecc9 100644 (file)
--- a/lisp/utf-2000/Ideograph-R143-Blood.el
+++ b/lisp/utf-2000/Ideograph-R143-Blood.el
@@ -507,12 +507,20 @@
 (define-char
   '((<-denotational
      ((=>ucs@iwds-1      . #x8846)     ; &A-IWDSU+8846;
-      (=ucs@big5         . #x773E)     ; &A-IWDSU+8846;
       (=>iwds-1                  .  0329)      ; &A-IWDSU+8846;
       ))
     (ideographic-radical . 143)        ; ⾎
     (ideographic-strokes . 6)
     (total-strokes      . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x8840)     ; 血
+      )
+     ((=>ucs@iwds-1      . #x4E51)     ; &A-IWDSU+4E51;
+      (=>iwds-1                  .  0328)      ; &A-IWDSU+4E51;
+      ))
     (=ucs              . #x8846)       ; 衆
     ))
 (define-char
@@ -522,6 +530,16 @@
     (ideographic-radical . 143)        ; ⾎
     (ideographic-strokes . 6)
     (total-strokes      . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs@unicode      . #x8840)     ; &AJ1-01858;
+      (=adobe-japan1-0   . 01858)      ; &AJ1-01858;
+      )
+     ((=ucs@unicode      . #x4E51)     ; &AJ1-17241;
+      (=adobe-japan1-5   . 17241)      ; &AJ1-17241;
+      ))
     (=ucs@unicode      . #x8846)       ; &AJ1-02362;
     (=adobe-japan1-0   . 02362)        ; &AJ1-02362;
     (=jis-x0208                . #x3D30)       ; &I-J90-3D30; [29-16]
@@ -604,7 +622,8 @@
       )
      ((=ucs-itaiji-002   . #x8840)     ; &U-i002+8840;
       )
-     ((=ucs              . #x4E51)     ; 乑
+     ((=ucs@unicode      . #x4E51)     ; &AJ1-17241;
+      (=adobe-japan1-5   . 17241)      ; &AJ1-17241;
       ))
     (=ucs-itaiji-005   . #x8846)       ; &U-i005+8846;
     ))