(U+5841): Use `<-simplified-ideograph*sources' instead of char-ref in

`<-simplified-ideograph'.
(JX1-2F5E): Unify U+FA3A instead of U+58A8.

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 0c77c7b..3082961 100644 (file)
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -6909,9 +6909,10 @@
     (ideographic-strokes . 9)
     (total-strokes      . 12)
     (<-simplified-ideograph
-     (:char    ((=daikanwa          . 05574)   ; �����
-                )
-      :sources (morohashi-daikanwa)))
+     ((=daikanwa         . 05574)      ; �����
+      ))
+    (<-simplified-ideograph*sources
+     daikanwa)
     (=ucs              . #x5841)       ; 塁
     (=jis-x0208                . #x4E5D)       ; �����
     (=gt               . 06689)        ; ������
@@ -9947,26 +9948,32 @@
     (=hanziku-2                . #xB475)       ; ������
     ))
 (define-char
-  '((ideographic-radical . 32) ; ⼟
+  '((=>ucs*            . #x58A8)       ; 墨
+    (ideographic-radical . 32) ; ⼟
     (ideographic-strokes . 12)
     (total-strokes      . 15)
     (hanyu-dazidian    1 487 3)
-    (=ucs              . #x58A8)       ; 墨
+    (=ucs              . #xFA3A)       ; 墨
     (=gb2312           . #x442B)       ; �����
     (=ks-x1001         . #x5978)       ; �����
     (=jis-x0213-1-2000 . #x2F5E)       ; �����
     (=big5             . #xBEA5)       ; ������
     (=daikanwa         . 05469)        ; �����
     (=jef-china3       . #x47DC)       ; �����
-    (=ucs@jis          . #xFA3A)       ; 墨
+    (=ucs@gb           . #x58A8)       ; 墨
+    (=ucs@ks           . #x58A8)       ; 墨
+    (=ucs@big5         . #x58A8)       ; 墨
     ))
 (define-char
-  '((=>ucs*            . #x58A8)       ; 墨
+  '((=>ucs@jis         . #xFA3A)       ; 墨
     (morohashi-daikanwa        5469 0 0)
     (ideographic-radical . 32) ; ⼟
     (ideographic-strokes . 12)
     (total-strokes      . 15)
-    (=ucs              . #xFA3A)       ; 墨
+    (->identical
+     ((=ucs              . #xFA3A)     ; 墨
+      ))
+    (=ucs              . #x58A8)       ; 墨
     ))
 (define-char
   '((=>ucs             . #x58A8)       ; 墨