(U+53E7): Use `->ideographic-variants*sources' instead of char-ref in

`->ideographic-variants'; unify GT-04102 and GT-K01162.
(U-00020BA0): Unify GT-04135 and GT-K01063.

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 9bd2dec..d007aeb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -138,11 +138,11 @@
     (ideographic-strokes . 2)
     (total-strokes      . 5)
     (->ideographic-variants
-     (:sources (shinjigen-1)
-      :char    ((shinjigen-1        . 515)
-                (=daikanwa          . 01525)   ; �����
-                )
+     ((shinjigen-1       . 515)
+      (=daikanwa         . 01525)      ; �����
       ))
+    (->ideographic-variants*sources
+     shinjigen-1)
     (hanyu-dazidian    1 574 2)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -156,6 +156,9 @@
     (=ucs              . #x53E7)       ; 叧
     (=jis-x0212                . #x3462)       ; �����
     (=cns11643-4       . #x216C)       ; �����
+    (=gt               . 04102)        ; ������
+    (=gt-k             . 01162)        ; ������
+    (=gt-pj-2          . #x4D4D)       ; ������
     (=daikanwa         . 03236)        ; �����
     (=hanziku-2                . #xC5E9)       ; ������
     (=jef-china3       . #x91AE)       ; �����
@@ -693,6 +696,9 @@
     (=ucs              . #x20BA0)      ; 𠮠
     (=cns11643-5       . #x2161)       ; �����
     (=big5-cdp         . #x8BF7)       ; ������
+    (=gt               . 04135)        ; ������
+    (=gt-k             . 01063)        ; ������
+    (=gt-pj-2          . #x4D56)       ; ������
     (=daikanwa         . 03258)        ; �����
     (=jef-china3       . #x91AF)       ; �����
     ))