(J78-7057): Add `->same-ideograph'.

(J83-3F59): Unify J90-3F59.
(J90-7057): New character; unify MH-701.
(J83-7057): New character; relate to MH-701; unify U+9771.
(J78-3F59): New character; relate to MH-701.
(J90-705D): Unify J78-705D and J83-705D.
(J90-7060): Unify J78-7060 and J83-7060.

diff --git a/lisp/utf-2000/Ideograph-R177-Leather.el b/lisp/utf-2000/Ideograph-R177-Leather.el
index bdcb67a..1872a65 100644 (file)
--- a/lisp/utf-2000/Ideograph-R177-Leather.el
+++ b/lisp/utf-2000/Ideograph-R177-Leather.el
@@ -53,6 +53,15 @@
   '((ideographic-radical . 177)        ; ⾰
     (ideographic-strokes . 3)
     (total-strokes      . 12)
+    (->same-ideograph
+     (:sources (morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 29262)   ; �����
+                )
+      )
+     (:sources (morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 43109)   ; �����
+                )
+      ))
     (japanese-jisx0208-1978    . #x7057)       ; �����
     (korean-ksc5601            . #x6C65)       ; �����
     (ideograph-daikanwa                . 42715)        ; �����
@@ -72,14 +81,7 @@
     (ideographic-radical . 177)        ; ⾰
     (ideographic-strokes . 3)
     (total-strokes      . 12)
-    (japanese-jisx0208 . #x3F59)       ; �����
-    ))
-(define-char
-  '((->ucs             . #x976D)       ; 靭
-    (morohashi-daikanwa        42715 0 2 0)
-    (ideographic-radical . 177)        ; ⾰
-    (ideographic-strokes . 3)
-    (total-strokes      . 12)
+    (japanese-jisx0208         . #x3F59)       ; �����
     (japanese-jisx0208-1990    . #x3F59)       ; �����
     ))
 (define-char
@@ -145,6 +147,39 @@
     (ideograph-daikanwa . 42723)       ; �����
     ))
 (define-char
+  '((=>ucs             . #x9771)       ; 靱
+    (morohashi-daikanwa        ho 701)
+    (ideographic-radical . 177)        ; ⾰
+    (ideographic-strokes . 3)
+    (total-strokes      . 12)
+    (<-vulgar-ideograph
+     (:sources (doubun-tsuukou morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 42713)   ; �����
+                )
+      )
+     (:sources (ruishuu-meigishou morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 27248)   ; �����
+                )
+      ))
+    (japanese-jisx0208-1990    . #x7057)       ; �����
+    ))
+(define-char
+  '((morohashi-daikanwa        ho 701 0)
+    (ideographic-radical . 177)        ; ⾰
+    (ideographic-strokes . 3)
+    (total-strokes      . 12)
+    (japanese-jisx0208 . #x7057)       ; �����
+    (ucs               . #x9771)       ; 靱
+    ))
+(define-char
+  '((=>ucs             . #x9771)       ; 靱
+    (morohashi-daikanwa        ho 701 2)
+    (ideographic-radical . 177)        ; ⾰
+    (ideographic-strokes . 3)
+    (total-strokes      . 12)
+    (japanese-jisx0208-1978    . #x3F59)       ; �����
+    ))
+(define-char
   '((ideographic-radical . 177)        ; ⾰
     (ideographic-strokes . 3)
     (total-strokes      . 12)
@@ -161,11 +196,6 @@
     ))
 (define-char
   '((ideographic-radical . 177)        ; ⾰
-    (ideographic-strokes . 3)
-    (ucs               . #x9771)       ; 靱
-    ))
-(define-char
-  '((ideographic-radical . 177)        ; ⾰
     (ideographic-strokes . 4)
     (total-strokes      . 13)
     (chinese-cns11643-2 . #x4863)      ; �����
@@ -707,6 +737,8 @@
   '((ideographic-radical . 177)        ; ⾰
     (ideographic-strokes . 5)
     (shinjigen-2       . 9066)
+    (japanese-jisx0208-1978    . #x705D)       ; �����
+    (japanese-jisx0208         . #x705D)       ; �����
     (japanese-jisx0208-1990    . #x705D)       ; �����
     (ideograph-daikanwa                . 42794)        ; �����
     (ucs                       . #x9786)       ; 鞆
@@ -945,6 +977,8 @@
   '((ideographic-radical . 177)        ; ⾰
     (ideographic-strokes . 6)
     (shinjigen-2       . 9072)
+    (japanese-jisx0208-1978    . #x7060)       ; �����
+    (japanese-jisx0208         . #x7060)       ; �����
     (japanese-jisx0208-1990    . #x7060)       ; �����
     (ideograph-daikanwa                . 42829)        ; �����
     (ucs                       . #x9790)       ; 鞐