(M-9909'): Separate G0-3969, M050167 and U+5F52; unify C3-224A; add

`vulgar-ideograph-of' for M-16349.
(M-09912): Add `vulgar-ideograph-of' for M-21890; unify M009912.
(M-09913): Add `simplified-ideograph-of' for M-21890; unify J0-4576,
G0-3531, C3-2351, M009913 and U+5F53.

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index 62a89d2..7961f4d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -28,23 +28,28 @@
     (ucs                       . #x5F51)       ; 彑
     ))
 (define-char
-  '((morohashi-daikanwa        9909 1)
+  '((->ucs             . #x5F52)       ; 归
+    (morohashi-daikanwa        9909 1)
     (ideographic-radical . 58) ; ⼹
     (ideographic-strokes . 2)
     (total-strokes      . 5)
-    (chinese-gb2312    . #x3969)       ; �����
-    (chinese-isoir165  . #x3969)       ; �����
-    (mojikyo           . 050167)       ; �����
-    (ucs               . #x5F52)       ; 归
+    (->mojikyo         . 050167)       ; 归
+    (vulgar-ideograph-of
+     ((sources           morohashi-daikanwa)
+      (char . ((ideograph-daikanwa . 16349)    ; �����
+              ))
+      ))
+    (chinese-cns11643-3 . #x224A)      ; �����
     ))
 (define-char
-  '((->ucs             . #x5F52)       ; 归
-    (morohashi-daikanwa        9909 1 0)
+  '((morohashi-daikanwa        9909 1 1)
     (ideographic-radical . 58) ; ⼹
     (ideographic-strokes . 2)
     (total-strokes      . 5)
-    (->mojikyo         . 050167)       ; 归
-    (chinese-cns11643-3 . #x224A)      ; �����
+    (chinese-gb2312    . #x3969)       ; �����
+    (chinese-isoir165  . #x3969)       ; �����
+    (mojikyo           . 050167)       ; ������
+    (ucs               . #x5F52)       ; 归
     ))
 (define-char
   '((ideographic-radical . 58) ; ⼹
@@ -70,28 +75,33 @@
   '((ideographic-radical . 58) ; ⼹
     (ideographic-strokes . 3)
     (total-strokes      . 6)
+    (vulgar-ideograph-of
+     ((sources           morohashi-daikanwa)
+      (char . ((ideograph-daikanwa . 21890)    ; �����
+              ))
+      ))
     (chinese-cns11643-6 . #x246E)      ; �����
     (ideograph-daikanwa . 09912)       ; �����
+    (mojikyo           . 009912)       ; ������
     ))
 (define-char
-  '((->ucs             . #x5F53)       ; 当
-    (ideographic-radical . 58) ; ⼹
-    (ideographic-strokes . 3)
-    (total-strokes      . 6)
-    (ideograph-daikanwa . 09913)       ; �����
-    ))
-(define-char
-  '((morohashi-daikanwa        9913 0 1)
-    (ideographic-radical . 58) ; ⼹
+  '((ideographic-radical . 58) ; ⼹
     (ideographic-strokes . 3)
     (total-strokes      . 6)
     (shinjigen-2       . 5071)
+    (simplified-ideograph-of
+     ((sources           morohashi-daikanwa)
+      (char . ((ideograph-daikanwa . 21890)    ; �����
+              ))
+      ))
     (japanese-jisx0208-1978    . #x4576)       ; �����
     (chinese-gb2312            . #x3531)       ; �����
     (japanese-jisx0208         . #x4576)       ; �����
     (chinese-isoir165          . #x3531)       ; �����
     (chinese-cns11643-3                . #x2351)       ; �����
     (japanese-jisx0208-1990    . #x4576)       ; �����
+    (ideograph-daikanwa                . 09913)        ; �����
+    (mojikyo                   . 009913)       ; ������
     (ucs                       . #x5F53)       ; 当
     ))
 (define-char