(C3-2740): Unify M-00104; don't use `->identical'.

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index b5906be..8095dc8 100644 (file)
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -1912,8 +1912,7 @@
     (ideographic-strokes . 7)
     (total-strokes      . 8)
     (->same-ideograph
-     ((ideographic-radical . 3)        ; ⼂
-      (ideograph-daikanwa . 00104)     ; �����
+     ((ideograph-daikanwa . 00104)     ; �����
       ))
     (<-ancient-ideograph
      (:sources (morohashi-daikanwa)
@@ -1928,14 +1927,33 @@
     (mojikyo           . 000059)       ; ������
     ))
 (define-char
-  '((=>ucs             . #x4E3D)       ; 丽
-    (morohashi-daikanwa        59 0 2)
-    (ideographic-radical . 1)  ; ⼀
+  '((ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 7)
     (total-strokes      . 8)
-    (->identical
-     ((ideographic-radical . 3)        ; ⼂
-      (ideograph-daikanwa . 00104)     ; �����
+    (ideograph-gt-pj-2 . #x304C)       ; ������
+    (ideograph-daikanwa . 00060)       ; �����
+    (china3-jef                . #x8EF3)       ; �����
+    (ideograph-gt      . 00083)        ; ������
+    (mojikyo           . 000060)       ; ������
+    ))
+(define-char
+  '((=>ucs             . #x4E3D)       ; 丽
+    (ideographic-      (:radical       1 ; ⼀
+                        :strokes       7
+                        :sources       (cns-11643))
+                       (:radical       3 ; ⼂
+                        :strokes       7
+                        :sources       (morohashi-daikanwa gt)))
+    (total-strokes      . 8)
+    (->same-ideograph
+     ((ideographic-radical . 1)        ; ⼀
+      (ideograph-daikanwa . 00059)     ; �����
+      ))
+    (<-ancient-ideograph
+     (:sources (morohashi-daikanwa)
+      :char    ((ideographic-radical . 198)    ; ⿅
+                (ideograph-daikanwa . 47663)   ; �����
+                )
       ))
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -1974,16 +1992,10 @@
        ))
       ))
     (chinese-cns11643-3 . #x2740)      ; �����
-    ))
-(define-char
-  '((ideographic-radical . 1)  ; ⼀
-    (ideographic-strokes . 7)
-    (total-strokes      . 8)
-    (ideograph-gt-pj-2 . #x304C)       ; ������
-    (ideograph-daikanwa . 00060)       ; �����
-    (china3-jef                . #x8EF3)       ; �����
-    (ideograph-gt      . 00083)        ; ������
-    (mojikyo           . 000060)       ; ������
+    (ideograph-gt-pj-2 . #x3071)       ; ������
+    (ideograph-daikanwa . 00104)       ; �����
+    (ideograph-gt      . 00145)        ; ������
+    (mojikyo           . 000104)       ; ������
     ))
 (define-char
   '((ideographic-radical . 1)  ; ⼀