From 243072ae15e70325ddda55a2600eeed24ae8d44a Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 14 Oct 2011 15:48:24 +0000
Subject: [PATCH] (G-BC-8D70): New character. (BC-8D70): Use `<-subsumptive'
 for G-BC-8D70.

---
 lisp/utf-2000/Ideograph-R044-Corpse.el |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index 8e945aa..2de040a 100644
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -694,7 +694,10 @@
   '((ideographic-radical . 44)	; ⼫
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
-    (=big5-cdp		. #x8D70)	; &CDP-8D70;
+    (=>>big5-cdp	. #x8D70)	; &G-CDP-8D70;
+    (->subsumptive
+     ((=big5-cdp	  . #x8D70)	; &CDP-8D70;
+      ))
     ))
 (define-char
   '((ideographic-radical . 44)	; ⼫
-- 
1.7.10.4