(M-07202): Separate J78-5563, C3-3541 and U+5BC3; add

`vulgar-ideograph-of' for M-01587; unify M007202.
(U+5BC3): Unify C3-3541.
(J78-5563): Unify M055204.
(K0-6A32): New character; relate to M-07202 and U+5BC3.
(C4-3130): Relate to M-07202 and U+5BC3.
(U+5BC9): Unify MH-133, J90-5565 and M054545.

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 0cb51ef..6cd67e2 100644 (file)
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -1562,16 +1562,52 @@
     (ideograph-daikanwa . 07201)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 40) ; ⼧
+  '((->ucs             . #x5BC3)       ; 寃
+    (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 8)
     (total-strokes      . 11)
-    (shinjigen-2       . 0)
-    (japanese-jisx0208-1978    . #x5563)       ; �����
+    (vulgar-ideograph-of
+     ((sources           morohashi-daikanwa)
+      (char . ((ideograph-daikanwa . 01587)    ; �����
+              ))
+      ))
     (japanese-jisx0208         . #x5563)       ; �����
-    (chinese-cns11643-3                . #x3541)       ; �����
     (japanese-jisx0208-1990    . #x5563)       ; �����
     (ideograph-daikanwa                . 07202)        ; �����
-    (ucs                       . #x5BC3)       ; 寃
+    (mojikyo                   . 007202)       ; ������
+    ))
+(define-char
+  '((morohashi-daikanwa        7202 0 0)
+    (ideographic-radical . 40) ; ⼧
+    (ideographic-strokes . 8)
+    (total-strokes      . 11)
+    (chinese-cns11643-3 . #x3541)      ; �����
+    (ucs               . #x5BC3)       ; 寃
+    ))
+(define-char
+  '((->ucs             . #x5BC3)       ; 寃
+    (morohashi-daikanwa        7202 0 2)
+    (ideographic-radical . 40) ; ⼧
+    (ideographic-strokes . 7)
+    (total-strokes      . 10)
+    (japanese-jisx0208-1978    . #x5563)       ; �����
+    (mojikyo                   . 055204)       ; ������
+    ))
+(define-char
+  '((->ucs             . #x5BC3)       ; 寃
+    (morohashi-daikanwa        7202 0 4)
+    (ideographic-radical . 40) ; ⼧
+    (ideographic-strokes . 8)
+    (total-strokes      . 11)
+    (korean-ksc5601    . #x6A32)       ; �����
+    ))
+(define-char
+  '((->ucs             . #x5BC3)       ; 寃
+    (morohashi-daikanwa        7202 0 5)
+    (ideographic-radical . 40) ; ⼧
+    (ideographic-strokes . 8)
+    (total-strokes      . 11)
+    (chinese-cns11643-4 . #x3130)      ; �����
     ))
 (define-char
   '((ideographic-radical . 40) ; ⼧
@@ -1740,21 +1776,18 @@
     (ideograph-daikanwa . 07223)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 40) ; ⼧
+  '((morohashi-daikanwa        ho 133)
+    (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 8)
     (total-strokes      . 11)
     (japanese-jisx0208-1978    . #x5565)       ; �����
     (japanese-jisx0208         . #x5565)       ; �����
+    (japanese-jisx0208-1990    . #x5565)       ; �����
+    (mojikyo                   . 054545)       ; ������
     (ucs                       . #x5BC9)       ; 寉
     ))
 (define-char
   '((ideographic-radical . 40) ; ⼧
-    (ideographic-strokes . 8)
-    (total-strokes      . 11)
-    (chinese-cns11643-4 . #x3130)      ; �����
-    ))
-(define-char
-  '((ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 9)
     (total-strokes      . 12)
     (chinese-cns11643-2 . #x3B39)      ; �����
@@ -1765,10 +1798,16 @@
   '((ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 9)
     (total-strokes      . 12)
-    (chinese-cns11643-5 . #x375E)      ; �����
     (ideograph-daikanwa . 07225)       ; �����
     ))
 (define-char
+  '((morohashi-daikanwa        7225 0 1)
+    (ideographic-radical . 40) ; ⼧
+    (ideographic-strokes . 9)
+    (total-strokes      . 12)
+    (chinese-cns11643-5 . #x375E)      ; �����
+    ))
+(define-char
   '((ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 9)
     (total-strokes      . 12)