From 8c2ae9a59eec1be13a79f5f9871fbf699be19dc5 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 29 Dec 2003 04:28:55 +0000
Subject: [PATCH] (JX1-2E63): Unify U+FA33 instead of U+52C9; use
 `->same-ideograph*sources' instead of char-ref in
 `->same-ideograph'. (J0-3650): Use
 `<-vulgar-ideograph*sources' instead of char-ref in
 `<-vulgar-ideograph'. (JX1-2E68): Unify U+FA34 instead of
 U+52E4.

---
 lisp/utf-2000/Ideograph-R019-Power.el |   59 +++++++++++++++++++++------------
 1 file changed, 38 insertions(+), 21 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 72a653e..14734aa 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -1636,14 +1636,16 @@
     (=hanziku-1		. #xF2AB)	; ý¢€ŸŠ«
     ))
 (define-char
-  '((ideographic-radical . 19)	; ⼒
+  '((=>ucs*		. #x52C9)	; 勉
+    (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
     (->same-ideograph
-     (:char	((shinjigen-1	     . 735)
-		 (=jis-x0208	     . #x4A59)	; ø½Š³‚
-		 )
-      :sources	(shinjigen-1)))
+     ((shinjigen-1	  . 735)
+      (=jis-x0208	  . #x4A59)	; ø½Š³‚
+      ))
+    (->same-ideograph*sources
+     shinjigen-1)
     (hanyu-dazidian	1 372 3)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
@@ -1655,7 +1657,7 @@
       ))
     (shinjigen-1	. 736)
     (shinjigen-2	. 736)
-    (=ucs		. #x52C9)	; 勉
+    (=ucs		. #xFA33)	; 勉
     (=gb2312		. #x4363)	; ø»„¹‚
     (=ks-x1001		. #x5875)	; ø»‰¬’
     (=cns11643-1	. #x502E)	; ø»’‡«
@@ -1663,15 +1665,21 @@
     (=big5		. #xAB6A)	; ý¢€Š­ª
     (=daikanwa		. 02362)	; ø¸€¤º
     (=jef-china3	. #x44E7)	; øº„“§
-    (=ucs@jis		. #xFA33)	; 勉
+    (=ucs@gb		. #x52C9)	; 勉
+    (=ucs@cns		. #x52C9)	; 勉
+    (=ucs@ks		. #x52C9)	; 勉
+    (=ucs@big5		. #x52C9)	; 勉
     ))
 (define-char
-  '((=>ucs*		. #x52C9)	; 勉
+  '((=>ucs@jis		. #xFA33)	; 勉
     (morohashi-daikanwa	2362 0 0)
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (=ucs		. #xFA33)	; 勉
+    (->identical
+     ((=ucs		  . #xFA33)	; 勉
+      ))
+    (=ucs		. #x52C9)	; 勉
     ))
 (define-char
   '((ideographic-radical . 19)	; ⼒
@@ -2767,14 +2775,16 @@
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
     (<-simplified-ideograph
-     (:char	((=daikanwa	     . 02424)	; ø¸€¥¸
-		 )
-      :sources	(morohashi-daikanwa)))
+     ((=daikanwa	  . 02424)	; ø¸€¥¸
+      ))
+    (<-simplified-ideograph*sources
+     daikanwa)
     (<-vulgar-ideograph
-     (:char	((shinjigen-1	     . 744)
-		 (=daikanwa	     . 02424)	; ø¸€¥¸
-		 )
-      :sources	(shinjigen-1)))
+     ((shinjigen-1	  . 744)
+      (=daikanwa	  . 02424)	; ø¸€¥¸
+      ))
+    (<-vulgar-ideograph*sources
+     shinjigen-1)
     (shinjigen-1	. 743)
     (shinjigen-2	. 743)
     (=ucs		. #x2F827)	; 勤
@@ -3015,7 +3025,8 @@
     (=daikanwa		. 02423)	; ø¸€¥·
     ))
 (define-char
-  '((ideographic-radical . 19)	; ⼒
+  '((=>ucs*		. #x52E4)	; 勤
+    (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 11)
     (total-strokes	 . 13)
     (hanyu-dazidian	1 378 3)
@@ -3029,7 +3040,7 @@
       ))
     (shinjigen-1	. 744)
     (shinjigen-2	. 744)
-    (=ucs		. #x52E4)	; 勤
+    (=ucs		. #xFA34)	; 勤
     (=gb2312		. #x475A)	; ø»„¾±
     (=ks-x1001		. #x5043)	; ø»‰Ÿ°
     (=cns11643-1	. #x633B)	; ø»’£²
@@ -3037,15 +3048,21 @@
     (=big5		. #xB6D4)	; ý¢€‹›”
     (=daikanwa		. 02424)	; ø¸€¥¸
     (=jef-china3	. #x44EF)	; øº„“¯
-    (=ucs@jis		. #xFA34)	; 勤
+    (=ucs@gb		. #x52E4)	; 勤
+    (=ucs@cns		. #x52E4)	; 勤
+    (=ucs@ks		. #x52E4)	; 勤
+    (=ucs@big5		. #x52E4)	; 勤
     ))
 (define-char
-  '((=>ucs*		. #x52E4)	; 勤
+  '((=>ucs@jis		. #xFA34)	; 勤
     (morohashi-daikanwa	2424 0 0)
     (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 11)
     (total-strokes	 . 13)
-    (=ucs		. #xFA34)	; 勤
+    (->identical
+     ((=ucs		  . #xFA34)	; 勤
+      ))
+    (=ucs		. #x52E4)	; 勤
     ))
 (define-char
   '((=>ucs		. #x52E5)	; 勥
-- 
1.7.10.4