From a88e66abaed964f619ec0e4a658b8fb6d0662265 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 2 Jul 2005 06:16:27 +0000
Subject: [PATCH] (U-000219CD): Use `->subsumptive'. (M-07088): Add
 `<-subsumptive'; unify GT-08912 and GT-K03155; add
 JPU-000219CD. (U-00021AC5): Use `->subsumptive'. (M-07350):
 Add `<-subsumptive'; unify GT-09248; add JPU-00021AC5.

---
 lisp/utf-2000/Ideograph-R040-Roof.el |   42 ++++++++++++++++++----------------
 1 file changed, 22 insertions(+), 20 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 4b5b795..70c174a 100644
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -662,19 +662,20 @@
     (=cns11643-6	. #x267A)	; &I-C6-267A; [06-90]
     ))
 (define-char
-  '((=>ucs		. #x219CD)	; 𡧍
-    (ideographic-radical . 40)	; ⼧
-    (ideographic-strokes . 4)
-    (total-strokes	 . 7)
-    (=daikanwa		. 07088)	; &M-07088;
-    ))
-(define-char
-  '((morohashi-daikanwa	7088 0 0)
-    (ideographic-radical . 40)	; ⼧
+  '((ideographic-radical . 40)	; ⼧
     (ideographic-strokes . 4)
     (total-strokes	 . 7)
     (=ucs		. #x219CD)	; 𡧍
-    (=cns11643-4	. #x236E)	; &I-C4-236E; [03-78]
+    (->subsumptive
+     ((=gt		  . 08912)	; &GT-08912;
+      (=gt-k		  . 03155)	; &I-GT-K03155;
+      (=gt-pj-2		  . #x7249)	; &GT-08912; [82-41]
+      (=daikanwa	  . 07088)	; &I-M-07088;
+      (=ucs@JP		  . #x219CD)	; &GT-08912;
+      )
+     ((=cns11643-4	  . #x236E)	; &C4-236E; [03-78]
+      (=ucs@iso		  . #x219CD)	; &C4-236E;
+      ))
     ))
 (define-char
   '((ideographic-radical . 40)	; ⼧
@@ -5244,19 +5245,20 @@
     (=cns11643-7	. #x2D36)	; &I-C7-2D36; [13-22]
     ))
 (define-char
-  '((=>ucs		. #x21AC5)	; 𡫅
-    (ideographic-radical . 40)	; ⼧
-    (ideographic-strokes . 13)
-    (total-strokes	 . 16)
-    (=daikanwa		. 07350)	; &M-07350;
-    ))
-(define-char
-  '((morohashi-daikanwa	7350 0 0)
-    (ideographic-radical . 40)	; ⼧
+  '((ideographic-radical . 40)	; ⼧
     (ideographic-strokes . 13)
     (total-strokes	 . 16)
     (=ucs		. #x21AC5)	; 𡫅
-    (=cns11643-7	. #x2D33)	; &I-C7-2D33; [13-19]
+    (->subsumptive
+     ((=gt		  . 09248)	; &GT-09248;
+      (=gt-pj-3		  . #x3067)	; &GT-09248; [16-71]
+      (=daikanwa	  . 07350)	; &I-M-07350;
+      (=ucs@JP		  . #x21AC5)	; &GT-09248;
+      )
+     ((=ucs@iso		  . #x21AC5)	; &U-00021AC5;
+      )
+     ((=cns11643-7	  . #x2D33)	; &C7-2D33; [13-19]
+      ))
     ))
 (define-char
   '((=>ucs		. #x21AC6)	; 𡫆
-- 
1.7.10.4