(<CJK RADICAL SECOND THREE>): Add `<-denotational@component' for

A-compU+4E41; add `ideographic-radical' and `ideographic-strokes'; use
`->subsumptive'.

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 5c5934a..0fc81a4 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -45,10 +45,15 @@
       ))
     ))
 (define-char
-  '((name              . "CJK RADICAL SECOND THREE")
+  '((<-denotational@component
+     ((=>ucs@component   . #x4E41)     ; &A-compU+4E41;
+      ))
+    (name              . "CJK RADICAL SECOND THREE")
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (ideographic-radical . 5)  ; ⼄
+    (ideographic-strokes . 0)
     (total-strokes      . 1)
     (=ucs              . #x2E84)       ; ⺄
     (=big5-cdp         . #x8D43)       ; &I-CDP-8D43;
@@ -57,14 +62,17 @@
     (<-formed@component
      ((=ucs              . #x4E59)     ; 乙
       ))
-    ))
-(define-char
-  '((=>ucs             . #x2E84)       ; ⺄
-    (total-strokes      . 1)
-    (=gt-k             . 00007)        ; &GT-K00007;
-    (=gt-pj-k1         . #x302D)       ; &GT-K00007; [16-13]
-    (<-formed@component
-     ((=ucs              . #x4E59)     ; 乙
+    (->subsumptive
+     ((==big5-cdp        . #x8D43)     ; &g2-CDP-8D43;
+      (==gt-k            . 00008)      ; &g2-CDP-8D43;
+      (==gt-pj-k1        . #x302E)     ; &g2-CDP-8D43; [16-14]
+      )
+     ((=gt-k             . 00007)      ; &GT-K00007;
+      (=gt-pj-k1         . #x302D)     ; &GT-K00007; [16-13]
+      (->subsumptive
+       ((==gt-k                    . 00007)    ; &g2-GT-K00007;
+       (==gt-pj-k1         . #x302D)   ; &g2-GT-K00007; [16-13]
+       ))
       ))
     ))
 (define-char