(M-*****): Unify corresponding Mojikyo code points.

(M-00104): Use `ancient-ideograph-of' and `ideograph=' instead of
comment.

diff --git a/lisp/utf-2000/Ideograph-R003-Dot.el b/lisp/utf-2000/Ideograph-R003-Dot.el
index 8ad9d91..9e22f84 100644 (file)
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -9,6 +9,7 @@
     (chinese-cns11643-3                . #x2122)       ; �����
     (japanese-jisx0208-1990    . #x5026)       ; �����
     (ideograph-daikanwa                . 00091)        ; �����
+    (mojikyo                   . 000091)       ; ������
     (ucs                       . #x4E36)       ; 丶
     ))
 (define-char
@@ -16,6 +17,7 @@
     (ideographic-strokes . 1)
     (total-strokes      . 2)
     (ideograph-daikanwa . 00092)       ; �����
+    (mojikyo           . 000092)       ; ������
     ))
 (define-char
   '((ideographic-radical . 3)  ; ⼂
@@ -28,6 +30,7 @@
     (ideographic-strokes . 2)
     (total-strokes      . 3)
     (ideograph-daikanwa . 00093)       ; �����
+    (mojikyo           . 000093)       ; ������
     ))
 (define-char
   '((ideographic-radical . 3)  ; ⼂
@@ -43,6 +46,7 @@
     (chinese-cns11643-6                . #x2131)       ; �����
     (japanese-jisx0208-1990    . #x345D)       ; �����
     (ideograph-daikanwa                . 00094)        ; �����
+    (mojikyo                   . 000094)       ; ������
     (ucs                       . #x4E38)       ; 丸
     ))
 (define-char
@@ -52,6 +56,7 @@
     (total-strokes      . 3)
     (chinese-cns11643-1 . #x443A)      ; �����
     (ideograph-daikanwa . 00095)       ; �����
+    (mojikyo           . 000095)       ; ������
     ))
 (define-char
   '((->ucs             . #x4E38)       ; 丸
@@ -62,6 +67,7 @@
     (shinjigen-1       . 40)
     (chinese-cns11643-6 . #x2132)      ; �����
     (ideograph-daikanwa . 00096)       ; �����
+    (mojikyo           . 000096)       ; ������
     ))
 (define-char
   '((script            Ideograph)
@@ -70,12 +76,14 @@
     (ideographic-strokes . 2)
     (total-strokes      . 3)
     (ideograph-daikanwa . 00097)       ; �����
+    (mojikyo           . 000097)       ; ������
     ))
 (define-char
   '((ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 2)
     (total-strokes      . 3)
     (ideograph-daikanwa . 00098)       ; �����
+    (mojikyo           . 000098)       ; ������
     ))
 (define-char
   '((ideographic-radical . 3)  ; ⼂
@@ -91,6 +99,7 @@
     (chinese-cns11643-1                . #x4465)       ; �����
     (japanese-jisx0208-1990    . #x4330)       ; �����
     (ideograph-daikanwa                . 00099)        ; �����
+    (mojikyo                   . 000099)       ; ������
     (ucs                       . #x4E39)       ; 丹
     ))
 (define-char
@@ -117,6 +126,7 @@
     (shinjigen-1       . 42)
     (shinjigen-2       . 42)
     (ideograph-daikanwa . 00100)       ; �����
+    (mojikyo           . 000100)       ; ������
     ))
 (define-char
   '((morohashi-daikanwa        100 0 1)
@@ -145,6 +155,7 @@
     (chinese-cns11643-2                . #x2144)       ; �����
     (japanese-jisx0208-1990    . #x5027)       ; �����
     (ideograph-daikanwa                . 00101)        ; �����
+    (mojikyo                   . 000101)       ; ������
     (ucs                       . #x4E3C)       ; 丼
     ))
 (define-char
@@ -153,6 +164,7 @@
     (total-strokes      . 5)
     (chinese-cns11643-6 . #x222D)      ; �����
     (ideograph-daikanwa . 00102)       ; �����
+    (mojikyo           . 000102)       ; ������
     ))
 (define-char
   '((ideographic-radical . 3)  ; ⼂
@@ -160,6 +172,7 @@
     (total-strokes      . 6)
     (chinese-cns11643-6 . #x2342)      ; �����
     (ideograph-daikanwa . 00103)       ; �����
+    (mojikyo           . 000103)       ; ������
     ))
 (define-char
   '((->ucs             . #x4E3D)       ; 丽
@@ -167,9 +180,20 @@
     (ideographic-strokes . 7)
     (cns-radical        . 1)   ; ⼀
     (total-strokes      . 8)
-    (comment           . "<ancient character> of R198:M47663.0 [= R001:M00059.0]")
+    (ancient-ideograph-of
+     ((sources           morohashi-daikanwa)
+      (char . ((ideographic-radical . 198)     ; ⿅
+              (ideograph-daikanwa . 47663)     ; �����
+              ))
+      ))
+    (ideograph=
+     ((char . ((ideographic-radical . 1)       ; ⼀
+              (ideograph-daikanwa . 00059)     ; �����
+              ))
+      ))
     (chinese-cns11643-3 . #x2740)      ; �����
     (ideograph-daikanwa . 00104)       ; �����
+    (mojikyo           . 000104)       ; ������
     ))
 (define-char
   '((morohashi-daikanwa        104 0 2)
@@ -194,4 +218,5 @@
     (total-strokes      . 13)
     (chinese-cns11643-6 . #x5050)      ; �����
     (ideograph-daikanwa . 00105)       ; �����
+    (mojikyo           . 000105)       ; ������
     ))