From: tomo <tomo>
Date: Mon, 25 Jun 2007 06:23:10 +0000 (+0000)
Subject: (U+38C7): Use `->subsumptive'; integrate BC-8950 and GT-12511.
X-Git-Tag: r21-4-19-chise-0_23-4^20~57
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9f3a8896a9a08dce2918e7f9088bc835a1e9d074;hp=d3280b0c2d2095478e22b9453b23dcd38d5bfd6b;p=chise%2Fxemacs-chise.git

(U+38C7): Use `->subsumptive'; integrate BC-8950 and GT-12511.
(U-0002F896): Use `->subsumptive'; integrate GT-12512.
---

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index a27f9ce..711faa6 100644
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -222,8 +222,18 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
     (=ucs		. #x38C7)	; 㣇
-    (=cns11643-4	. #x2642)	; &I-C4-2642; [06-34]
-    (=daikanwa		. 09915)	; &I-M-09915;
+    (->subsumptive
+     ((=big5-cdp	  . #x8950)	; &CDP-8950;
+      (=daikanwa	  . 09915)	; &I-M-09915;
+      )
+     ((=ucs@unicode	  . #x38C7)	; &UU+38C7;
+      )
+     ((=cns11643-4	  . #x2642)	; &C4-2642; [06-34]
+      )
+     ((=gt		  . 12511)	; &GT-12511;
+      (=gt-k		  . 04509)	; &I-GT-K04509;
+      (=gt-pj-3		  . #x4A22)	; &GT-12511; [42-02]
+      ))
     ))
 (define-char
   '((ideographic-radical . 58)	; â¼¹
@@ -283,8 +293,14 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
     (=ucs		. #x2F896)	; 㣇
-    (=cns11643-6	. #x2B39)	; &I-C6-2B39; [11-25]
-    (=daikanwa		. 49088)	; &I-M-49088;
+    (->subsumptive
+     ((=gt		  . 12512)	; &GT-12512;
+      (=gt-pj-3		  . #x4A26)	; &GT-12512; [42-06]
+      (=daikanwa	  . 49088)	; &I-M-49088;
+      )
+     ((=cns11643-6	  . #x2B39)	; &C6-2B39; [11-25]
+      (=ucs@iso		  . #x2F896)	; &C6-2B39;
+      ))
     ))
 (define-char
   '((ideographic-radical@ucs . 58)	; â¼¹