(<CJK STROKE HP>): Add `ideographic-{radical|strokes}' and

`total-strokes'; unify BC-8BA2 and GT-K00025; add GT-K00022.

diff --git a/lisp/utf-2000/u031C0-CJK-Strokes.el b/lisp/utf-2000/u031C0-CJK-Strokes.el
index 381f220..a9f8433 100644 (file)
--- a/lisp/utf-2000/u031C0-CJK-Strokes.el
+++ b/lisp/utf-2000/u031C0-CJK-Strokes.el
@@ -53,7 +53,33 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (ideographic-radical . 5)  ; ⼄
+    (ideographic-strokes . 0)
+    (total-strokes      . 1)
     (=ucs              . #x31C7)       ; ㇇
+    (=big5-cdp         . #x8BA2)       ; &I-CDP-8BA2;
+    (=gt-k             . 00025)        ; &I-GT-K00025;
+    (=gt-pj-k1         . #x3031)       ; ㇇ [16-17]
+    (->subsumptive
+     ((=>>ucs@unicode    . #x31C7)     ; &G-CDP-8BA2;
+      (=>>big5-cdp       . #x8BA2)     ; &G-CDP-8BA2;
+      (=>>gt-k           . 00025)      ; &G-CDP-8BA2;
+      (->subsumptive
+       ((==gt-k                    . 00025)    ; &g2-GT-K00025;
+       (==gt-pj-k1         . #x3031)   ; &g2-GT-K00025; [16-17]
+       )
+       ((==big5-cdp        . #x8BA2)   ; &g2-CDP-8BA2;
+       )
+       ((==ucs@unicode     . #x31C7)   ; &g2-UU+31C7;
+       ))
+      )
+     ((=gt-k             . 00022)      ; &GT-K00022;
+      (=gt-pj-k1         . #x3026)     ; &GT-K00022; [16-06]
+      (->subsumptive
+       ((==gt-k                    . 00022)    ; &g2-GT-K00022;
+       (==gt-pj-k1         . #x3026)   ; &g2-GT-K00022; [16-06]
+       ))
+      ))
     ))
 (define-char
   '((name              . "CJK STROKE HZWG")