From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 13 Jul 2014 22:30:32 +0000 (+0900)
Subject: (U-00023A19): Use `->subsumptive'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=61c3d0487a59fe80d130715e045b79fa5148b246;p=chise%2Fxemacs-chise.git

(U-00023A19): Use `->subsumptive'.
---

diff --git a/lisp/utf-2000/Ideograph-R078-Death.el b/lisp/utf-2000/Ideograph-R078-Death.el
index ec24db8..f29f22b 100644
--- a/lisp/utf-2000/Ideograph-R078-Death.el
+++ b/lisp/utf-2000/Ideograph-R078-Death.el
@@ -2061,25 +2061,36 @@
      ((=ucs		  . #x59D4)	; 委
       ))
     (=ucs		. #x23A19)	; 𣨙
+    (=cns11643-4	. #x3848)	; &I-C4-3848; [24-40]
     (=daikanwa		. 16487)	; &I-M-16487;
     (=hanziku-4		. #xC5D4)	; &I-HZK04-C5D4;
     (=cbeta		. 04401)	; &I-CB04401;
-    ))
-(define-char
-  '((=>ucs		. #x23A19)	; 𣨙
-    (morohashi-daikanwa	16487 0 1)
-    (ideographic-radical . 78)	; ⽍
-    (ideographic-strokes . 8)
-    (total-strokes	 . 12)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x6B79)	; æ­¹
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x6B79)	; æ­¹
+	)
+       ((==ucs@unicode	    . #x59D4)	; &R-AJ1-01173;
+	(==adobe-japan1-0   . 01173)	; &R-AJ1-01173;
+	))
+      (==ucs@iso	  . #x23A19)	; &R-M-16487;
+      (==daikanwa	  . 16487)	; &R-M-16487;
+      (==cbeta		  . #x1131)	; &R-M-16487;
       )
-     ((=cns11643-1	  . #x4C67)	; &C1-4C67; [44-71]
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x6B79)	; æ­¹
+	)
+       ((==ucs@cns	    . #x59D4)	; &R-CU+59D4;
+	(==cns11643-1	    . #x4C67)	; &R-CU+59D4; [44-71]
+	))
+      (==ucs@cns	  . #x23A19)	; &R-CU+23A19;
+      (==cns11643-4	  . #x3848)	; &R-CU+23A19; [24-40]
       ))
-    (=cns11643-4	. #x3848)	; &C4-3848; [24-40]
     ))
 (define-char
   '((ideographic-radical . 78)	; ⽍