(J83-737D): Separate J78-737D and U+9F9C.

(M-48848): Separate C7-2C3A; use `<-original-ideograph' instead of
`comment'; unify U+9F9C.
(J90-6354): Separate C3-5E47 and U+9F9D; use `<-ancient-ideograph'
instead of `comment'; add `->same-ideograph'; delete `kangxi-radical'
and `kangxi-strokes'.
(J78-6354): New character; relate to U+9F9D and M-48869.

diff --git a/lisp/utf-2000/Ideograph-R213-Turtle.el b/lisp/utf-2000/Ideograph-R213-Turtle.el
index d2fc008..f3ca36b 100644 (file)
--- a/lisp/utf-2000/Ideograph-R213-Turtle.el
+++ b/lisp/utf-2000/Ideograph-R213-Turtle.el
@@ -1,25 +1,45 @@
 (define-char
-  '((ideographic-radical . 213)        ; ⿔
+  '((=>ucs             . #x9F9C)       ; 龜
+    (ideographic-radical . 213)        ; ⿔
     (ideographic-strokes . 0)
     (total-strokes      . 16)
     (shinjigen-1       . 9918)
     (shinjigen-2       . 9917)
-    (japanese-jisx0208-1978    . #x737D)       ; �����
     (japanese-jisx0208         . #x737D)       ; �����
     (korean-ksc5601            . #x4F4F)       ; �����
     (chinese-cns11643-1                . #x733F)       ; �����
     (japanese-jisx0208-1990    . #x737D)       ; �����
     (ideograph-daikanwa                . 48847)        ; �����
-    (ucs                       . #x9F9C)       ; 龜
+    ))
+(define-char
+  '((=>ucs             . #x9F9C)       ; 龜
+    (morohashi-daikanwa        48847 0 0)
+    (ideographic-radical . 213)        ; ⿔
+    (ideographic-strokes . 0)
+    (total-strokes      . 16)
+    (japanese-jisx0208-1978    . #x737D)       ; �����
     ))
 (define-char
   '((ideographic-radical . 213)        ; ⿔
     (ideographic-strokes . 0)
     (total-strokes      . 15)
-    (comment           . "<original character> of S1-9918")
+    (<-original-ideograph
+     (:sources (seiji-tsuu morohashi-daikanwa shinjigen-1)
+      :char    ((shinjigen-1        . 9918)
+                (ideograph-daikanwa . 48847)   ; �����
+                )
+      ))
     (shinjigen-1       . 9919)
-    (chinese-cns11643-7 . #x2C3A)      ; �����
     (ideograph-daikanwa . 48848)       ; �����
+    (ucs               . #x9F9C)       ; 龜
+    ))
+(define-char
+  '((=>ucs             . #x9F9C)       ; 龜
+    (morohashi-daikanwa        48848 0 1)
+    (ideographic-radical . 213)        ; ⿔
+    (ideographic-strokes . 0)
+    (total-strokes      . 15)
+    (chinese-cns11643-7 . #x2C3A)      ; �����
     ))
 (define-char
   '((ideographic-radical . 213)        ; ⿔
@@ -185,16 +205,36 @@
     (ideograph-daikanwa . 48868)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 213)        ; ⿔
+  '((=>ucs             . #x9F9D)       ; 龝
+    (ideographic-radical . 213)        ; ⿔
     (ideographic-strokes . 5)
-    (kangxi-radical     . 115) ; ⽲
-    (kangxi-strokes     . 16)
     (total-strokes      . 21)
-    (comment           . "<Ancient character> of M24940")
-    (chinese-cns11643-3                . #x5E47)       ; �����
+    (->same-ideograph
+     ((ideograph-daikanwa . 25381)     ; �����
+      ))
+    (<-ancient-ideograph
+     (:sources (jii morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 24940)   ; �����
+                )
+      ))
+    (japanese-jisx0208         . #x6354)       ; �����
     (japanese-jisx0208-1990    . #x6354)       ; �����
     (ideograph-daikanwa                . 48869)        ; �����
-    (ucs                       . #x9F9D)       ; 龝
+    ))
+(define-char
+  '((=>ucs             . #x9F9D)       ; 龝
+    (morohashi-daikanwa        48869 0 0)
+    (ideographic-radical . 213)        ; ⿔
+    (ideographic-strokes . 5)
+    (total-strokes      . 21)
+    (japanese-jisx0208-1978    . #x6354)       ; �����
+    ))
+(define-char
+  '((morohashi-daikanwa        48869 0 2)
+    (ideographic-radical . 213)        ; ⿔
+    (ideographic-strokes . 5)
+    (total-strokes      . 20)
+    (ucs               . #x9F9D)       ; 龝
     ))
 (define-char
   '((ideographic-radical . 213)        ; ⿔