(M-06040): New character; add `ancient-ideograph-of' for M-06039; add

comment about M-00395; unify M006040 and U+36A2.
(M-6307'): Separate C3-304D.
(C3-304D): Unify M059420.

diff --git a/lisp/utf-2000/Ideograph-R038-Woman.el b/lisp/utf-2000/Ideograph-R038-Woman.el
index d44d3a9..318a1af 100644 (file)
--- a/lisp/utf-2000/Ideograph-R038-Woman.el
+++ b/lisp/utf-2000/Ideograph-R038-Woman.el
@@ -53,6 +53,20 @@
   '((ideographic-radical . 38) ; ⼥
     (ideographic-strokes . 2)
     (total-strokes      . 5)
+    (ancient-ideograph-of
+     ((sources           morohashi-daikanwa)
+      (char . ((ideograph-daikanwa . 06039)    ; �����
+              ))
+      ))
+    (comment           . "M-00395 is different character.")
+    (ideograph-daikanwa . 06040)       ; �����
+    (mojikyo           . 006040)       ; ������
+    (ucs               . #x36A2)       ; 㚢
+    ))
+(define-char
+  '((ideographic-radical . 38) ; ⼥
+    (ideographic-strokes . 2)
+    (total-strokes      . 5)
     (japanese-jisx0212         . #x3923)       ; �����
     (japanese-jisx0213-2       . #x2548)       ; �����
     (ideograph-daikanwa                . 06041)        ; �����
@@ -2870,12 +2884,20 @@
     (total-strokes      . 10)
     (japanese-jisx0208-1978    . #x3864)       ; �����
     (japanese-jisx0208         . #x3864)       ; �����
-    (chinese-cns11643-3                . #x304D)       ; �����
     (japanese-jisx0208-1990    . #x3864)       ; �����
-    (mojikyo                   . 050146)       ; �����
+    (mojikyo                   . 050146)       ; ������
     (ucs                       . #x5A2F)       ; 娯
     ))
 (define-char
+  '((->ucs             . #x5A2F)       ; 娯
+    (morohashi-daikanwa        6307 1 3)
+    (ideographic-radical . 38) ; ⼥
+    (ideographic-strokes . 7)
+    (total-strokes      . 10)
+    (chinese-cns11643-3 . #x304D)      ; �����
+    (mojikyo           . 059420)       ; ������
+    ))
+(define-char
   '((ideographic-radical . 38) ; ⼥
     (ideographic-strokes . 7)
     (total-strokes      . 10)
@@ -4062,7 +4084,7 @@
     (japanese-jisx0208-1978    . #x4958)       ; �����
     (japanese-jisx0208         . #x4958)       ; �����
     (japanese-jisx0208-1990    . #x4958)       ; �����
-    (mojikyo                   . 050147)       ; �����
+    (mojikyo                   . 050147)       ; ������
     (ucs                       . #x5A66)       ; 婦
     ))
 (define-char
@@ -7713,7 +7735,7 @@
     (japanese-jisx0208         . #x3E6E)       ; �����
     (chinese-cns11643-3                . #x5056)       ; �����
     (japanese-jisx0208-1990    . #x3E6E)       ; �����
-    (mojikyo                   . 050148)       ; �����
+    (mojikyo                   . 050148)       ; ������
     (ucs                       . #x5B22)       ; 嬢
     ))
 (define-char