(C3-2148): Use `->identical' instead of `->same' for M-01512; use

`->same*sources' instead of using char-ref in `->same'.
(M-00634): Use `<-denotational' instead of `->same' for M-23937; use
`<-original-ideograph*sources' instead of using char-ref in
`<-original-ideograph'.
(U-000202F4): Use `->identical' instead of `->same' for M-02134; use
`->same*sources' instead of using char-ref in `->same'.

diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index 5d074b0..0805661 100644 (file)
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -758,17 +758,15 @@
     (ideographic-radical . 9)  ; ⼈
     (ideographic-strokes . 2)
     (total-strokes      . 4)
+    (->identical
+     ((=cns11643-6       . #x2150)     ; �����
+      (=daikanwa         . 01512)      ; �����
+      ))
     (->same
-     (:sources (morohashi-daikanwa)
-      :char    ((=>ucs              . #x5167)  ; 內
-                (ideographic-radical . 11)     ; ⼊
-                (ideographic-strokes . 2)
-                (total-strokes       . 4)
-                (=daikanwa          . 01418)   ; �����
-                )
-      )
-     ((=daikanwa         . 01512)      ; �����
+     ((=daikanwa         . 01418)      ; �����
       ))
+    (->same*sources
+     daikanwa)
     (=cns11643-3       . #x2148)       ; �����
     ))
 (define-char
@@ -3150,7 +3148,7 @@
        )
        ((=ucs              . #x5185)   ; 内
        ))
-      (=ucs@unicode      . #x343B)     ; 󰀃
+      (=ucs@unicode      . #x343B)     ; 󰀄
       ))
     ))
 (define-char
@@ -8912,14 +8910,14 @@
   '((ideographic-radical . 9)  ; ⼈
     (ideographic-strokes . 7)
     (total-strokes      . 9)
-    (->same
+    (<-denotational
      ((=daikanwa         . 23937)      ; �����
       ))
     (<-original-ideograph
-     (:sources (morohashi-daikanwa)
-      :char    ((=daikanwa          . 00633)   ; �����
-                )
+     ((=daikanwa         . 00633)      ; �����
       ))
+    (<-original-ideograph*sources
+     daikanwa)
     (=daikanwa         . 00634)        ; �����
     ))
 (define-char
@@ -18358,12 +18356,15 @@
   '((ideographic-radical . 9)  ; ⼈
     (ideographic-strokes . 10)
     (total-strokes      . 12)
-    (->same
+    (->identical
      ((=daikanwa         . 02134)      ; �����
-      )
-     (:char    ((=daikanwa          . 00768)   ; �����
-                )
-      :sources (shuowen morohashi-daikanwa)))
+      ))
+    (->same
+     ((=ucs              . #x5013)     ; 倓
+      (=daikanwa         . 00768)      ; �����
+      ))
+    (->same*sources
+     shuowen daikanwa)
     (hanyu-dazidian    1 206 1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -20548,7 +20549,8 @@
     (ideographic-strokes . 10)
     (total-strokes      . 12)
     (->same
-     ((=daikanwa         . 23328)      ; �����
+     ((=cns11643-5       . #x3421)     ; �����
+      (=daikanwa         . 23328)      ; �����
       ))
     (=ucs              . #x2032A)      ; 𠌪
     ))
@@ -23924,7 +23926,7 @@
        )
        ((=ucs              . #x6562)   ; 敢
        ))
-      (=ucs@unicode      . #x3488)     ; 󰀇
+      (=ucs@unicode      . #x3488)     ; 󰀈
       ))
     ))
 (define-char
@@ -25020,7 +25022,7 @@
         ((=ucs               . #x975E) ; 非
          ))
        ))
-      (=ucs@unicode      . #x348E)     ; 󰀉
+      (=ucs@unicode      . #x348E)     ; 󰀊
       ))
     ))
 (define-char
@@ -26853,7 +26855,7 @@
        )
        ((=ucs              . #x842C)   ; 萬
        ))
-      (=ucs@unicode      . #x3496)     ; 󰀊
+      (=ucs@unicode      . #x3496)     ; 󰀋
       ))
     ))
 (define-char
@@ -27336,7 +27338,7 @@
       (=cns11643-4       . #x4F5D)     ; �����
       (=ucs@cns                  . #x349A)     ; �����
       )
-     ((=ucs@unicode      . #x349A)     ; 󰀋
+     ((=ucs@unicode      . #x349A)     ; 󰀌
       ))
     ))
 (define-char
@@ -27424,7 +27426,7 @@
        )
        ((=ucs              . #x7FDF)   ; 翟
        ))
-      (=ucs@unicode      . #x349B)     ; 󰀌
+      (=ucs@unicode      . #x349B)     ; 󰀍
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -30055,7 +30057,7 @@
        )
        ((=ucs              . #x7E47)   ; 繇
        ))
-      (=ucs@unicode      . #x34A1)     ; 󰀎
+      (=ucs@unicode      . #x34A1)     ; 󰀏
       ))
     ))
 (define-char