(M-00096): Use `<-original-ideograph' instead of

`original-char-of-shinjigen-1'; unify U-0002007D.
(C*-****): Unify CJK Ext-B code points.

diff --git a/lisp/utf-2000/Ideograph-R003-Dot.el b/lisp/utf-2000/Ideograph-R003-Dot.el
index 9a3f645..8671617 100644 (file)
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -80,17 +80,22 @@
     (mojikyo           . 000095)       ; ������
     ))
 (define-char
-  '((=>ucs             . #x4E38)       ; 丸
-    (ideographic-radical . 3)  ; ⼂
+  '((ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 2)
     (total-strokes      . 3)
-    (original-char-of-shinjigen-1 . 39)
+    (<-original-ideograph
+     (:sources (chuuka-daijiten morohashi-daikanwa shinjigen-1)
+      :char    ((shinjigen-1        . 39)
+                (ideograph-daikanwa . 00094)   ; �����
+                )
+      ))
     (shinjigen-1       . 40)
     (chinese-cns11643-6 . #x2132)      ; �����
     (ideograph-gt-pj-2 . #x306B)       ; ������
     (ideograph-daikanwa . 00096)       ; �����
     (ideograph-gt      . 00133)        ; ������
     (mojikyo           . 000096)       ; ������
+    (ucs               . #x2007D)      ; 𠁽
     ))
 (define-char
   '((script            Ideograph)
@@ -238,6 +243,7 @@
     (ideograph-daikanwa . 00102)       ; �����
     (ideograph-gt      . 00140)        ; ������
     (mojikyo           . 000102)       ; ������
+    (ucs               . #x2007F)      ; 𠁿
     ))
 (define-char
   '((ideographic-radical . 3)  ; ⼂
@@ -255,6 +261,7 @@
     (ideograph-daikanwa . 00103)       ; �����
     (ideograph-gt      . 00143)        ; ������
     (mojikyo           . 000103)       ; ������
+    (ucs               . #x20082)      ; 𠂂
     ))
 (define-char
   '((ideographic-radical . 3)  ; ⼂
@@ -318,4 +325,5 @@
     (ideograph-daikanwa . 00105)       ; �����
     (ideograph-gt      . 00147)        ; ������
     (mojikyo           . 000105)       ; ������
+    (ucs               . #x20084)      ; 𠂄
     ))