From: tomo <tomo>
Date: Fri, 15 Jun 2001 09:42:03 +0000 (+0000)
Subject: (M-02360'): Use `script' and `vulgar-ideograph-of' instead of
X-Git-Tag: r21-2-38-utf-2000-0_17-1~575
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c3f3cf7152b92864813c6d458da34bf4ff325c04;p=chise%2Fxemacs-chise.git.1

(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
--- 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)	; 募