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