(M-02360'): Use `script' and `vulgar-ideograph-of' instead of

`comment'.
(M-02384'): Use `script' instead of `comment'.
(M-02415'): Use `script' and `vulgar-ideograph-of' instead of
`comment'.

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 4280834..f26de57 100644 (file)
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -878,18 +878,24 @@
     (ucs               . #x52C7)       ; 勇
     ))
 (define-char
-  '((->ucs             . #x52C7)       ; 勇
+  '((script            JP-Jouyou Ideograph)
+    (->ucs             . #x52C7)       ; 勇
     (morohashi-daikanwa        2360 1)
     (ideographic-radical . 19) ; ⼒
     (ideographic-strokes . 7)
     (total-strokes      . 9)
-    (comment           . "[JP-Jouyou] <vulgar character> of S1-0731")
     (shinjigen-1       . 730)
     (shinjigen-2       . 730)
+    (vulgar-ideograph-of
+     ((sources           shinjigen-1)
+      (char . ((shinjigen-1       . 731)
+              (ideograph-daikanwa . 02360)     ; �����
+              ))
+      ))
     (japanese-jisx0208-1978    . #x4D26)       ; �����
     (japanese-jisx0208         . #x4D26)       ; �����
     (chinese-cns11643-6                . #x2F25)       ; �����
-    (mojikyo                   . 050110)       ; �����
+    (mojikyo                   . 050110)       ; ������
     ))
 (define-char
   '((ideographic-radical . 19) ; ⼒
@@ -1165,18 +1171,18 @@
     (ideograph-daikanwa . 02384)       ; �����
     ))
 (define-char
-  '((->ucs             . #x52C9)       ; 勉
+  '((script            JP-Jouyou Ideograph)
+    (->ucs             . #x52C9)       ; 勉
     (morohashi-daikanwa        2384 1)
     (ideographic-radical . 19) ; ⼒
     (ideographic-strokes . 8)
     (total-strokes      . 10)
-    (comment           . "[JP-Jouyou]")
     (shinjigen-1       . 735)
     (shinjigen-2       . 735)
     (japanese-jisx0208-1978    . #x4A59)       ; �����
     (japanese-jisx0208         . #x4A59)       ; �����
     (chinese-cns11643-6                . #x3558)       ; �����
-    (mojikyo                   . 050111)       ; �����
+    (mojikyo                   . 050111)       ; ������
     ))
 (define-char
   '((ideographic-radical . 19) ; ⼒
@@ -1553,19 +1559,25 @@
     (ideograph-daikanwa . 02415)       ; �����
     ))
 (define-char
-  '((->ucs             . #x52E4)       ; 勤
+  '((script            JP-Jouyou Ideograph)
+    (->ucs             . #x52E4)       ; 勤
     (morohashi-daikanwa        2415 1)
     (ideographic-radical . 19) ; ⼒
     (ideographic-strokes . 10)
     (total-strokes      . 12)
-    (comment           . "[JP-Jouyou] <vulgar character> of S1-0744")
     (shinjigen-1       . 743)
     (shinjigen-2       . 743)
+    (vulgar-ideograph-of
+     ((sources           shinjigen-1)
+      (char . ((shinjigen-1       . 744)
+              (ideograph-daikanwa . 02424)     ; �����
+              ))
+      ))
     (japanese-jisx0208-1978    . #x3650)       ; �����
     (japanese-jisx0208         . #x3650)       ; �����
     (chinese-cns11643-4                . #x364C)       ; �����
     (japanese-jisx0208-1990    . #x3650)       ; �����
-    (mojikyo                   . 050112)       ; �����
+    (mojikyo                   . 050112)       ; ������
     ))
 (define-char
   '((->ucs             . #x52DF)       ; 募