From 32dd95a9873083486d1346a79572cdb414b777c8 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 12 Mar 2004 16:45:33 +0000
Subject: [PATCH] (M-07112): Use `->subsumptive'; use `->same*sources' instead
 of using char-ref in `->same'.

---
 lisp/utf-2000/Ideograph-R040-Roof.el |   19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 5132a53..ab78412 100644
--- 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
-- 
1.7.10.4