(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.

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 72a653e..14734aa 100644 (file)
--- 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)       ; å‹¥