(J90-6136): Unify MH-347; use `->same-ideograph' for M-21735; delete

`ideographic-variants' for M021735.

diff --git a/lisp/utf-2000/Ideograph-R102-Field.el b/lisp/utf-2000/Ideograph-R102-Field.el
index 0b32622..518ab4c 100644 (file)
--- a/lisp/utf-2000/Ideograph-R102-Field.el
+++ b/lisp/utf-2000/Ideograph-R102-Field.el
@@ -156,6 +156,20 @@
     (ideograph-daikanwa . 21737)       ; �����
     ))
 (define-char
+  '((morohashi-daikanwa        ho 347)
+    (ideographic-radical . 102)        ; ⽥
+    (ideographic-strokes . 2)
+    (total-strokes      . 7)
+    (->same-ideograph
+     (:sources (morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 21735)   ; �����
+                )
+      ))
+    (japanese-jisx0208-1990    . #x6136)       ; �����
+    (mojikyo                   . 054615)       ; ������
+    (ucs                       . #x753C)       ; 甼
+    ))
+(define-char
   '((ideographic-radical . 102)        ; ⽥
     (ideographic-strokes . 2)
     (total-strokes      . 7)
@@ -178,18 +192,6 @@
     ))
 (define-char
   '((ideographic-radical . 102)        ; ⽥
-    (ideographic-strokes . 2)
-    (total-strokes      . 7)
-    (ideographic-variants
-     ((char . ((mojikyo                   . 021735)    ; ������
-              ))
-      ))
-    (japanese-jisx0208-1990    . #x6136)       ; �����
-    (mojikyo                   . 054615)       ; ������
-    (ucs                       . #x753C)       ; 甼
-    ))
-(define-char
-  '((ideographic-radical . 102)        ; ⽥
     (ideographic-strokes . 3)
     (total-strokes      . 8)
     (chinese-gb2312    . #x3B2D)       ; �����