(JX1-2E6E): Unify U+FA35 instead of U+5351.

(J0-485C): Use `<-vulgar-ideograph*sources' instead of char-ref in
`<-vulgar-ideograph'.

diff --git a/lisp/utf-2000/Ideograph-R024-Ten.el b/lisp/utf-2000/Ideograph-R024-Ten.el
index 04214e9..ca8a95f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R024-Ten.el
+++ b/lisp/utf-2000/Ideograph-R024-Ten.el
@@ -728,7 +728,8 @@
     (=cns11643-5       . #x2540)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 24) ; ⼗
+  '((=>ucs*            . #x5351)       ; 卑
+    (ideographic-radical . 24) ; ⼗
     (ideographic-strokes . 6)
     (total-strokes      . 8)
     (hanyu-dazidian    1 63 1)
@@ -742,7 +743,7 @@
       ))
     (shinjigen-1       . 830)
     (shinjigen-2       . 830)
-    (=ucs              . #x5351)       ; 卑
+    (=ucs              . #xFA35)       ; 卑
     (=gb2312           . #x3130)       ; �����
     (=ks-x1001         . #x5D64)       ; �����
     (=cns11643-1       . #x4C38)       ; �����
@@ -750,15 +751,21 @@
     (=big5             . #xA8F5)       ; ������
     (=daikanwa         . 02738)        ; �����
     (=jef-china3       . #x45C3)       ; �����
-    (=ucs@jis          . #xFA35)       ; 卑
+    (=ucs@gb           . #x5351)       ; 卑
+    (=ucs@cns          . #x5351)       ; 卑
+    (=ucs@ks           . #x5351)       ; 卑
+    (=ucs@big5         . #x5351)       ; 卑
     ))
 (define-char
-  '((=>ucs*            . #x5351)       ; 卑
+  '((=>ucs@jis         . #xFA35)       ; 卑
     (morohashi-daikanwa        2738 0 0)
     (ideographic-radical . 24) ; ⼗
     (ideographic-strokes . 6)
     (total-strokes      . 8)
-    (=ucs              . #xFA35)       ; 卑
+    (->identical
+     ((=ucs              . #xFA35)     ; 卑
+      ))
+    (=ucs              . #x5351)       ; 卑
     ))
 (define-char
   '((script            JP-Jouyou Ideograph)
@@ -768,10 +775,11 @@
     (ideographic-strokes . 7)
     (total-strokes      . 9)
     (<-vulgar-ideograph
-     (:char    ((shinjigen-1        . 830)
-                (=daikanwa          . 02738)   ; �����
-                )
-      :sources (shinjigen-1)))
+     ((shinjigen-1       . 830)
+      (=daikanwa         . 02738)      ; �����
+      ))
+    (<-vulgar-ideograph*sources
+     shinjigen-1)
     (shinjigen-1       . 829)
     (shinjigen-2       . 829)
     (=jis-x0208                . #x485C)       ; �����
@@ -786,10 +794,11 @@
     (ideographic-strokes . 6)
     (total-strokes      . 8)
     (<-vulgar-ideograph
-     (:char    ((shinjigen-1        . 830)
-                (=daikanwa          . 02738)   ; �����
-                )
-      :sources (seiji-tsuu morohashi-daikanwa shinjigen-1)))
+     ((shinjigen-1       . 830)
+      (=daikanwa         . 02738)      ; �����
+      ))
+    (<-vulgar-ideograph*sources
+     zhengzi-tong daikanwa shinjigen-1)
     (shinjigen-1       . 831)
     (shinjigen-2       . 831)
     (=ucs              . #x24C1E)      ; 𤰞