(M-07112): Use `->subsumptive'; use `->same*sources' instead of using

char-ref in `->same'.

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 5132a53..ab78412 100644 (file)
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -1123,16 +1123,23 @@
     ))
 (define-char
   '((=>ucs             . #x5B90)       ; 宐
+    (=>daikanwa                . 07112)        ; �����
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 5)
     (total-strokes      . 8)
     (->same
-     (:sources (morohashi-daikanwa)
-      :char    ((=daikanwa          . 07111)   ; �����
-                )
+     ((=jis-x0208        . #x3539)     ; �����
+      (=ks-x1001         . #x6B71)     ; �����
+      (=daikanwa         . 07111)      ; �����
+      ))
+    (->same*sources
+     daikanwa)
+    (->subsumptive
+     ((=daikanwa         . 07112)      ; �����
+      )
+     ((=cns11643-4       . #x2625)     ; �����
+      (=ucs@cns                  . #x5B90)     ; �����
       ))
-    (=cns11643-4       . #x2625)       ; �����
-    (=daikanwa         . 07112)        ; �����
     ))
 (define-char
   '((ideographic-radical . 40) ; ⼧
@@ -3474,7 +3481,7 @@
      ((sources           bos=A015412-00003)
       (=ruimoku-v6       . #xE009)     ; �����
       )
-     ((=ucs@iso                  . #x21A5C)    ; 󰀕
+     ((=ucs@iso                  . #x21A5C)    ; 󰀘
       ))
     ))
 (define-char