From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 5 May 2019 05:25:57 +0000 (+0900)
Subject: (A-IWDSU+4EBA): New abstract node to represent IWDS1-146,237.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=59a30595addf340bb44a24b9936f05b86ee326df;p=chise%2Fxemacs-chise.git

(A-IWDSU+4EBA): New abstract node to represent IWDS1-146,237.
(U+4EBA): Use A-IWDSU+4EBA instead of A-compU+4EBA as a target of
`<-denotational@component'.
(IWDS1-146): Unify A-IWDSU+201A2 instead of A-compU+4EBA; add
`<-denotational@component' for A-IWDSU+4EBA.
(U-000201A2): Add `<-denotational@component' for IWDS1-146.
(A-IWDSU+4EBC): Use A-IWDSU+4EBA instead of IWDS1-146 in
`ideographic-structure'.
(U+4EBD): Ditto.
(A-IWDSU+5166): Ditto; use `<-denotational@usage' instead of
`<-denotational' for BUCS+4EA1.
(A-IWDSU+4ED0): Use A-IWDSU+4EBA instead of IWDS1-146 in
`ideographic-structure'.
(U+3431): Ditto.
(U+4EFA): Ditto.
(U+4F1E): Ditto.
(U-0002A72C): Ditto.
(A-GT-K05990): Ditto.
(U+501D): Ditto.
(U+5098): Ditto.
---

diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index 1762415..211b6af 100644
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -3,13 +3,14 @@
   '((ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 0)
     (total-strokes	 . 2)
-    (=>ucs@component	. #x4EBA)	; &A-compU+4EBA;
-    (=>iwds-1		.  0146)	; &A-compU+4EBA;
+    (=>iwds-1*note	"146+237")
+    (=>ucs@iwds-1	. #x4EBA)	; &A-IWDSU+4EBA;
+    (=>iwds-1		.  14623)	; &A-IWDSU+4EBA;
     ))
 (define-char
   '((<-denotational@component
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       )
      ((=>ucs@component	  . #x516B)	; &A-compU+516B;
       ))
@@ -84,9 +85,24 @@
       ))
     ))
 (define-char
+  '((<-denotational@component
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
+      ))
+    (ideographic-radical . 9)	; ⼈
+    (ideographic-strokes . 0)
+    (total-strokes	 . 2)
+    (=>ucs@iwds-1	. #x201A2)	; &A-IWDSU+201A2;
+    (=>iwds-1		.  0146)	; &A-IWDSU+201A2;
+    ))
+(define-char
   '((<-denotational
      ((=ucs		  . #x4EBA)	; 人
       ))
+    (<-denotational@component
+     ((=>ucs@iwds-1	  . #x201A2)	; &A-IWDSU+201A2;
+      (=>iwds-1		  .  0146)	; &A-IWDSU+201A2;
+      ))
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 0)
     (total-strokes	 . 2)
@@ -214,8 +230,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       )
      ((=ucs		  . #x4E00)	; 一
       ))
@@ -336,8 +352,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x201A2)	; &A-IWDSU+201A2;
+      (=>iwds-1		  .  0146)	; &A-IWDSU+201A2;
       )
      ((=ucs		  . #x4E36)	; 丶
       ))
@@ -471,7 +487,7 @@
       ))
     ))
 (define-char
-  '((<-denotational
+  '((<-denotational@usage
      ((==>ucs@bucs	  . #x4EA1)	; &BUCS+4EA1;
       ))
     (ideographic-radical . 9)	; ⼈
@@ -483,8 +499,8 @@
       )
      ((=ucs		  . #x200CA)	; 𠃊
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       ))
     (=>ucs@iwds-1	. #x5166)	; &A-IWDSU+5166;
     (<-original
@@ -1673,8 +1689,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       )
      ((=ucs		  . #x5341)	; 十
       ))
@@ -2238,8 +2254,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       )
      ((=ucs		  . #x5F61)	; 彡
       ))
@@ -4653,8 +4669,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       )
      ((=>iwds-1		  .  0082)	; &IWDS1-082;
       ))
@@ -7646,8 +7662,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       )
      ((=big5-cdp	  . #x8A64)	; &CDP-8A64;
       ))
@@ -12411,8 +12427,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       )
      ((=ucs		  . #x672A)	; 未
       ))
@@ -22460,8 +22476,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       )
      ((=ucs		  . #x9578)	; 镸
       ))
@@ -26431,8 +26447,8 @@
       )
      ((=ucs		  . #x2099D)	; 𠦝
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       ))
     (=ucs		. #x501D)	; 倝
     ))
@@ -39258,8 +39274,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=>ucs@component	  . #x4EBA)	; &A-compU+4EBA;
-      (=>iwds-1		  .  0146)	; &A-compU+4EBA;
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
       )
      ((=big5-cdp	  . #x88A6)	; &CDP-88A6;
       ))