(IWDS1-0222): New abstract component; unify A-compU+513F.

(U+513F): Add `<-denotational@component' for IWDS1-0119 and
IWDS1-0222.
(U+5140): Add `<-denotational@component' for IWDS1-0099, IWDS1-0214
and IWDS1-0221.
(IWDS1-0214): New abstract component; unify A-compU+5140.

diff --git a/lisp/utf-2000/Ideograph-R010-Legs.el b/lisp/utf-2000/Ideograph-R010-Legs.el
index e852c05..0cb7696 100644 (file)
--- a/lisp/utf-2000/Ideograph-R010-Legs.el
+++ b/lisp/utf-2000/Ideograph-R010-Legs.el
@@ -4,9 +4,23 @@
     (==>ucs@bucs       . #x5152)       ; &BUCS+5152;
     ))
 (define-char
+  '((ideographic-radical . 10) ; ⼉
+    (ideographic-strokes . 0)
+    (total-strokes      . 2)
+    (=>ucs@component   . #x513F)       ; &IWDS1-222;
+    (=>iwds-1          .  0222)        ; &IWDS1-222;
+    ))
+(define-char
   '((<-denotational
      ((==>ucs@bucs       . #x5152)     ; &BUCS+5152;
       ))
+    (<-denotational@component
+     ((=>ucs@component   . #x51E0)     ; &IWDS1-119;
+      (=>iwds-1                  .  0119)      ; &IWDS1-119;
+      )
+     ((=>ucs@component   . #x513F)     ; &IWDS1-222;
+      (=>iwds-1                  .  0222)      ; &IWDS1-222;
+      ))
     (ideographic-radical . 10) ; ⼉
     (ideographic-strokes . 0)
     (total-strokes      . 2)
@@ -59,7 +73,17 @@
       ))
     ))
 (define-char
-  '((ideographic-radical@ucs . 10)     ; ⼉
+  '((<-denotational@component
+     ((=>ucs@component   . #x5C22)     ; &IWDS1-099;
+      (=>iwds-1                  .  0099)      ; &IWDS1-099;
+      )
+     ((=>ucs@component   . #x5140)     ; &IWDS1-214;
+      (=>iwds-1                  .  0214)      ; &IWDS1-214;
+      )
+     ((=>ucs@component   . #x4E0C)     ; &IWDS1-221;
+      (=>iwds-1                  .  0221)      ; &IWDS1-221;
+      ))
+    (ideographic-radical@ucs . 10)     ; ⼉
     (ideographic-strokes@ucs . 1)
     (ideographic-radical@unknown . 43) ; ⼪
     (ideographic-strokes@unknown . 0)
@@ -4295,3 +4319,8 @@
       (==ucs@iso         . #x204DA)    ; &g2-IU-000204DA;
       ))
     ))
+(define-char
+  '((ideographic-radical@ucs . 10)     ; ⼉
+    (=>ucs@component   . #x5140)       ; &IWDS1-214;
+    (=>iwds-1          .  0214)        ; &IWDS1-214;
+    ))