From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 8 Feb 2018 07:43:51 +0000 (+0900)
Subject: (U+8846): Add `ideographic-structure'.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=47ea34f34c265593be7de81dfb743b81a13c6402;p=chise%2Fxemacs-chise.git.1

(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
--- 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;
     ))