(<CJK RADICAL KNIFE ONE>): Use BC-8B5B instead of U-0002008A as the

mother; add `ideographic-radical', `ideographic-strokes' and
`total-strokes'.
(U-0002008A): Separate BC-8B5B.
(GT-K00089): Use BC-8B5B instead of U-0002008A as the mother.
(BC-8B6C): Add `<-formed@component' for U+5200.

diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index 3158ca0..a3b3f19 100644 (file)
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -82,12 +82,15 @@
     ))
 (define-char
   '((<-denotational
-     ((=ucs              . #x2008A)    ; 𠂊
+     ((=big5-cdp         . #x8B5B)     ; &CDP-8B5B;
       ))
     (name              . "CJK RADICAL KNIFE ONE")
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (ideographic-radical . 18) ; ⼑
+    (ideographic-strokes . 0)
+    (total-strokes      . 2)
     (=ucs              . #x2E88)       ; ⺈
     (=gt-k             . 00091)        ; &I-GT-K00091;
     (=gt-pj-k1         . #x3234)       ; ⺈ [18-20]
@@ -95,13 +98,27 @@
      ((=ucs              . #x5200)     ; 刀
       ))
     (<-identical@component/connect-below
+     ((=big5-cdp         . #x8B5B)     ; &CDP-8B5B;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 18) ; ⼑
+    (ideographic-strokes . 0)
+    (total-strokes      . 2)
+    (=ucs              . #x2008A)      ; 𠂊
+    ))
+(define-char
+  '((<-denotational
      ((=ucs              . #x2008A)    ; 𠂊
       ))
+    (ideographic-radical . 18) ; ⼑
+    (ideographic-strokes . 0)
+    (total-strokes      . 2)
+    (=ucs@iso          . #x2008A)      ; &U-0002008A;
     ))
 (define-char
   '((<-denotational
-     ((name              . "CJK RADICAL KNIFE ONE")
-      (=ucs              . #x2E88)     ; ⺈
+     ((=big5-cdp         . #x8B6C)     ; &CDP-8B6C;
       ))
     (ideographic-radical . 18) ; ⼑
     (ideographic-strokes . 0)
@@ -118,23 +135,16 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 18) ; ⼑
-    (ideographic-strokes . 0)
-    (total-strokes      . 2)
-    (=ucs              . #x2008A)      ; 𠂊
-    (=big5-cdp         . #x8B5B)       ; &CDP-8B5B;
-    (<-formed@component
-     ((=ucs              . #x5200)     ; 刀
-      ))
-    ))
-(define-char
   '((<-denotational
      ((=ucs              . #x2008A)    ; 𠂊
       ))
     (ideographic-radical . 18) ; ⼑
     (ideographic-strokes . 0)
     (total-strokes      . 2)
-    (=ucs@iso          . #x2008A)      ; &U-0002008A;
+    (=big5-cdp         . #x8B5B)       ; &CDP-8B5B;
+    (<-formed@component
+     ((=ucs              . #x5200)     ; 刀
+      ))
     ))
 (define-char
   '((<-denotational
@@ -144,6 +154,9 @@
     (ideographic-strokes . 0)
     (total-strokes      . 2)
     (=big5-cdp         . #x8B6C)       ; &CDP-8B6C;
+    (<-formed@component
+     ((=ucs              . #x5200)     ; 刀
+      ))
     ))
 (define-char
   '((ideographic-radical . 18) ; ⼑