(U+20089): Use `name*' instead of `name' for non-standard name; rename

<cjk radical person for top> to <ideographic component person for
top>; add `:sources' of `:radical' and `:strokes'.

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index 8527d9e..acacbe4 100644 (file)
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -199,11 +199,13 @@
     (ideograph-gt      . 00159)        ; ������
     ))
 (define-char
-  '((name              . "cjk radical person for top")
+  '((name*             . "ideographic component person for top")
     (ideographic-      (:radical       4 ; ⼃
-                        :strokes       1)
+                        :strokes       1
+                        :sources       (ucs))
                        (:radical       1 ; ⼀
-                        :strokes       1)
+                        :strokes       1
+                        :sources       (gt))
                        (:radical       9 ; ⼈
                         :strokes       0))
     (total-strokes      . 2)
@@ -629,7 +631,8 @@
       )
      ((ucs               . #x4E3F)     ; 丿
       )
-     ((korean-ksc5601    . #x717D)     ; �����
+     ((=jis-x0208        . #x4737)     ; �����
+      (korean-ksc5601    . #x717D)     ; �����
       (ideograph-daikanwa . 00125)     ; �����
       ))
     (shinjigen-1       . 52)