(U+976D): Use `->same@jiyun' for M-29262 and `->same@zihui' for

M-43109 instead of `->same'; use `->subsumptive'.
(C3-4024): Moved into U+976D.
(J83-3F59): Likewise.

diff --git a/lisp/utf-2000/Ideograph-R177-Leather.el b/lisp/utf-2000/Ideograph-R177-Leather.el
index 9bfba94..2f4a1b0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R177-Leather.el
+++ b/lisp/utf-2000/Ideograph-R177-Leather.el
@@ -66,44 +66,37 @@
     (=daikanwa         . 42714)        ; �����
     ))
 (define-char
-  '((ideographic-radical . 177)        ; ⾰
+  '((=>daikanwa                . 42715)        ; �����
+    (ideographic-radical . 177)        ; ⾰
     (ideographic-strokes . 3)
     (total-strokes      . 12)
-    (->same
-     (:sources (morohashi-daikanwa)
-      :char    ((=daikanwa          . 29262)   ; �����
-                )
-      )
-     (:sources (morohashi-daikanwa)
-      :char    ((=daikanwa          . 43109)   ; �����
-                )
+    (->same@jiyun
+     ((=daikanwa         . 29262)      ; �����
       ))
+    (->same@jiyun*sources
+     jiyun daikanwa)
+    (->same@zihui
+     ((=daikanwa         . 43109)      ; �����
+      ))
+    (->same@zihui*sources
+     jiyun zihui daikanwa)
     (=ucs              . #x976D)       ; 靭
-    (=jis-x0208-1978   . #x7057)       ; �����
-    (=ks-x1001         . #x6C65)       ; �����
-    (=gt               . 57333)        ; ������
-    (=gt-pj-8          . #x386F)       ; ������
-    (=daikanwa         . 42715)        ; �����
-    ))
-(define-char
-  '((=>ucs             . #x976D)       ; 靭
-    (morohashi-daikanwa        42715 0 1)
-    (ideographic-radical . 177)        ; ⾰
-    (ideographic-strokes . 3)
-    (total-strokes      . 12)
-    (=cns11643-3       . #x4024)       ; �����
-    ))
-(define-char
-  '((=>ucs             . #x976D)       ; 靭
-    (morohashi-daikanwa        42715 0 2)
-    (ideographic-radical . 177)        ; ⾰
-    (ideographic-strokes . 3)
-    (total-strokes      . 12)
-    (=jis-x0208-1983   . #x3F59)       ; �����
-    (=jis-x0208-1990   . #x3F59)       ; �����
-    (=gt               . 57334)        ; ������
-    (=gt-pj-1          . #x3F59)       ; ������
-    (=ucs@jis          . #x976D)       ; �����
+    (->subsumptive
+     ((=jis-x0208-1978   . #x7057)     ; �����
+      (=ks-x1001         . #x6C65)     ; �����
+      (=gt               . 57333)      ; ������
+      (=gt-pj-8                  . #x386F)     ; ������
+      (=daikanwa         . 42715)      ; �����
+      (=ucs@unicode      . #x976D)     ; �����
+      )
+     ((=cns11643-3       . #x4024)     ; �����
+      )
+     ((=jis-x0208-1983   . #x3F59)     ; �����
+      (=jis-x0208-1990   . #x3F59)     ; �����
+      (=gt               . 57334)      ; ������
+      (=gt-pj-1                  . #x3F59)     ; ������
+      (=ucs@jis                  . #x976D)     ; �����
+      ))
     ))
 (define-char
   '((ideographic-radical . 177)        ; ⾰