- Merge GB 12345-90 and Big5.

- Use `=>ucs' instead of `->ucs'.
(M-00104): Use `->same-ideograph' instead of `ideograph='; use
`<-ancient-ideograph' instead of `ancient-ideograph-of'.

diff --git a/lisp/utf-2000/Ideograph-R003-Dot.el b/lisp/utf-2000/Ideograph-R003-Dot.el
index db162d5..72ed337 100644 (file)
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -33,6 +33,7 @@
   '((ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 1)
     (total-strokes      . 2)
+    (chinese-gb12345   . #x7D65)       ; 丷
     (mojikyo           . 059001)       ; ������
     (ucs               . #x4E37)       ; 丷
     ))
@@ -65,18 +66,19 @@
     (ucs                       . #x4E38)       ; 丸
     ))
 (define-char
-  '((->ucs             . #x4E38)       ; 丸
+  '((=>ucs             . #x4E38)       ; 丸
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 2)
     (total-strokes      . 3)
     (chinese-cns11643-1 . #x443A)      ; �����
     (ideograph-gt-pj-2 . #x306A)       ; ������
+    (chinese-big5      . #xA459)       ; �����
     (ideograph-daikanwa . 00095)       ; �����
     (ideograph-gt      . 00132)        ; ������
     (mojikyo           . 000095)       ; ������
     ))
 (define-char
-  '((->ucs             . #x4E38)       ; 丸
+  '((=>ucs             . #x4E38)       ; 丸
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 2)
     (total-strokes      . 3)
@@ -90,7 +92,7 @@
     ))
 (define-char
   '((script            Ideograph)
-    (->ucs             . #x3005)       ; 々
+    (=>ucs             . #x3005)       ; 々
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 2)
     (total-strokes      . 3)
@@ -135,6 +137,7 @@
     (chinese-cns11643-1                . #x4465)       ; �����
     (japanese-jisx0208-1990    . #x4330)       ; �����
     (ideograph-gt-pj-1         . #x4330)       ; ������
+    (chinese-big5              . #xA4A6)       ; �����
     (ideograph-daikanwa                . 00099)        ; �����
     (ideograph-gt              . 00136)        ; ������
     (mojikyo                   . 000099)       ; ������
@@ -157,7 +160,7 @@
     (ucs               . #x4E3A)       ; 为
     ))
 (define-char
-  '((->ucs             . #x4E3B)       ; 主
+  '((=>ucs             . #x4E3B)       ; 主
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 4)
     (total-strokes      . 5)
@@ -183,6 +186,7 @@
     (chinese-cns11643-1                . #x4564)       ; �����
     (japanese-jisx0208-1990    . #x3C67)       ; �����
     (ideograph-gt-pj-1         . #x3C67)       ; ������
+    (chinese-big5              . #xA544)       ; �����
     (ideograph-gt              . 00138)        ; ������
     (ucs                       . #x4E3B)       ; 主
     ))
@@ -197,6 +201,7 @@
     (chinese-cns11643-2                . #x2144)       ; �����
     (japanese-jisx0208-1990    . #x5027)       ; �����
     (ideograph-gt-pj-1         . #x5027)       ; ������
+    (chinese-big5              . #xC964)       ; �����
     (ideograph-daikanwa                . 00101)        ; �����
     (ideograph-gt              . 00139)        ; ������
     (mojikyo                   . 000101)       ; ������
@@ -237,21 +242,20 @@
     (ideograph-gt      . 00144)        ; ������
     ))
 (define-char
-  '((->ucs             . #x4E3D)       ; 丽
+  '((=>ucs             . #x4E3D)       ; 丽
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 7)
     (cns-radical        . 1)   ; ⼀
     (total-strokes      . 8)
-    (ancient-ideograph-of
-     ((sources           morohashi-daikanwa)
-      (char . ((ideographic-radical . 198)     ; ⿅
-              (ideograph-daikanwa . 47663)     ; �����
-              ))
+    (->same-ideograph
+     ((ideographic-radical . 1)        ; ⼀
+      (ideograph-daikanwa . 00059)     ; �����
       ))
-    (ideograph=
-     ((char . ((ideographic-radical . 1)       ; ⼀
-              (ideograph-daikanwa . 00059)     ; �����
-              ))
+    (<-ancient-ideograph
+     (:sources (morohashi-daikanwa)
+      :char    ((ideographic-radical . 198)    ; ⿅
+                (ideograph-daikanwa . 47663)   ; �����
+                )
       ))
     (chinese-cns11643-3 . #x2740)      ; �����
     (ideograph-gt-pj-2 . #x3071)       ; ������