(M-02134): Use `->identical' instead of `->same' for U-000202F4 =

M-00938; use `->same*sources' instead of using char-ref in `->same'.
(U+5292): Use `{->same|<-ancient-ideograph}*sources' instead of using
char-ref in `{->same|<-ancient-ideograph}'.

diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index 44d95cc..9e5c8e4 100644 (file)
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -5946,12 +5946,15 @@
     (ideographic-radical . 18) ; ⼑
     (ideographic-strokes . 10)
     (total-strokes      . 12)
+    (->identical
+     ((=ucs              . #x202F4)    ; 𠋴
+      ))
     (->same
-     ((=daikanwa         . 00938)      ; �����
-      )
-     (:char    ((=daikanwa          . 00768)   ; �����
-                )
-      :sources (shuowen inkaiho morohashi-daikanwa)))
+     ((=ucs              . #x5013)     ; 倓
+      (=daikanwa         . 00768)      ; �����
+      ))
+    (->same*sources
+     shuowen yunhai-bei daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs              . #x2FF0)     ; ⿰
@@ -7202,7 +7205,8 @@
     (ideographic-strokes@cns . 8)
     (total-strokes      . 14)
     (->same
-     ((=daikanwa         . 26149)      ; �����
+     ((=ucs              . #x7B9A)     ; 箚
+      (=daikanwa         . 26149)      ; �����
       ))
     (->same*sources
      kouin kangxi daikanwa)
@@ -7900,14 +7904,17 @@
     (ideographic-strokes . 14)
     (total-strokes      . 16)
     (->same
-     (:char    ((=daikanwa          . 02228)   ; �����
-                )
-      :sources (gyokuhen morohashi-daikanwa)))
+     ((=ucs              . #x528D)     ; 劍
+      (=daikanwa         . 02228)      ; �����
+      ))
+    (->same*sources
+     yupian daikanwa)
     (<-ancient-ideograph
-     (:char    ((shinjigen-1        . 653)
-                (=daikanwa          . 02228)   ; �����
-                )
-      :sources (shinjigen-1)))
+     ((shinjigen-1       . 653)
+      (=daikanwa         . 02228)      ; �����
+      ))
+    (<-ancient-ideograph*sources
+     shinjigen-1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs              . #x2FF0)     ; ⿰