X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R019-Power.el;h=f26de57111f131a924fcd0156db7153fccbffaeb;hb=a2bc237c12cced56e7b6235c8ffcddbe812dd4bc;hp=665e44a36b97f5632528791cfb2c5b29ade753d6;hpb=ef8cf0aed12994f433233c61134b14da9eb6db25;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 665e44a..f26de57 100644
--- 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)	; ⼒
@@ -1279,9 +1285,9 @@
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
-    (comment		. "<vulgar character> of S1-0740")
     (shinjigen-1	. 741)
     (shinjigen-2	. 741)
+    (vulgar-char-of-shinjigen-1 . 740)
     (ideograph-daikanwa . 02392)	; ø¸€¥˜
     ))
 (define-char
@@ -1416,7 +1422,7 @@
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
-    (comment		. "<ancient character> of S1-0757")
+    (ancient-char-of-shinjigen-1 . 757)
     (shinjigen-1	. 759)
     (shinjigen-2	. 759)
     (japanese-jisx0212		. #x336E)	; ø»Š¿¹
@@ -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)	; 募