From: tomo <tomo>
Date: Thu, 3 Feb 2005 13:10:32 +0000 (+0000)
Subject: (U+37B7): Use `->subsumptive'.
X-Git-Tag: r21-4-15-chise-0_21-33^2~29
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=34ec015df4bc073ac0595ad5bde52e3a132e0e93;hp=bcfc3712ea97b74f2c70069672350e0c626bb7ae

(U+37B7): Use `->subsumptive'.
---

diff --git a/lisp/utf-2000/Ideograph-R045-Sprout.el b/lisp/utf-2000/Ideograph-R045-Sprout.el
index 336960d..3f9113b 100644
--- a/lisp/utf-2000/Ideograph-R045-Sprout.el
+++ b/lisp/utf-2000/Ideograph-R045-Sprout.el
@@ -180,8 +180,12 @@
     (ideographic-strokes . 4)
     (total-strokes	 . 7)
     (=ucs		. #x37B7)	; 㞷
-    (=cns11643-4	. #x2376)	; &I-C4-2376; [03-86]
-    (=daikanwa		. 07840)	; &I-M-07840;
+    (->subsumptive
+     ((=cns11643-4	  . #x2376)	; &M-07840; [03-86]
+      (=daikanwa	  . 07840)	; &I-M-07840;
+      )
+     ((=ucs@unicode	  . #x37B7)	; &UU+37B7;
+      ))
     ))
 (define-char
   '((=>ucs		. #x21D08)	; 𡴈