From: tomo <tomo>
Date: Sat, 1 May 2004 11:38:02 +0000 (+0000)
Subject: (U+51B4): Use `->subsumptive'; use `<-wrong*sources' instead of
X-Git-Tag: r21-4-14-chise-0_21-27^2~133
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4f4a0a3fde4ff19835ac0d41ab40675ff941beb9;p=chise%2Fxemacs-chise.git.1

(U+51B4): Use `->subsumptive'; use `<-wrong*sources' instead of
char-ref in `<-wrong'.
(J78-3A63): Moved into U+51B4.
(J83-3A63): Likewise.
(CB06339): Likewise.
---

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index be8b231..c6198e8 100644
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -216,56 +216,59 @@
     ))
 (define-char
   '((ideographic-radical . 15)	; ⼎
-    (ideographic-strokes . 4)
-    (total-strokes	 . 6)
-    (<-wrong
-     (:sources	(morohashi-daikanwa shinjigen-1)
-      :char	((shinjigen-1	     . 542)
-		 (=daikanwa	     . 01613)	; &I-M-01613;
-		 )
-      ))
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x51AB)	; 冫
+    (=ucs		. #x51B4)	; 冴
+    (->subsumptive
+     ((ideographic-strokes . 4)
+      (total-strokes	   . 6)
+      (->subsumptive
+       ((<-wrong
+	 ((shinjigen-1	      . 542)
+	  (=ucs		      . #x51B1)	; 冱
+	  (=jis-x0208	      . #x5154)	; &I-J90-5154;
+	  (=daikanwa	      . 01613)	; &I-M-01613;
+	  ))
+	(<-wrong*sources
+	 daikanwa shinjigen-1)
+	(ideographic-structure
+	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	  (=ucs		      . #x2FF0)	; â¿°
+	  )
+	 ((=ucs		      . #x51AB)	; 冫
+	  )
+	 ((=ucs		      . #x7259)	; 牙
+	  ))
+	(shinjigen-1	    . 544)
+	(shinjigen-2	    . 544)
+	(=daikanwa	    . 01615)	; &M-01615;
+	(=ucs@unicode	    . #x51B4)	; &M-01615;
+	)
+       ((ideographic-structure
+	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	  (=ucs		      . #x2FF0)	; â¿°
+	  )
+	 ((=ucs		      . #x51AB)	; 冫
+	  )
+	 ((=cns11643-1	      . #x455B)	; &M-19909;
+	  (=daikanwa	      . 19909)	; &I-M-19909;
+	  ))
+	(=cns11643-3	    . #x227C)	; &C3-227C;
+	))
       )
-     ((=ucs		  . #x7259)	; 牙
+     ((ideographic-strokes . 5)
+      (total-strokes	   . 7)
+      (->subsumptive
+       ((=jis-x0208-1978    . #x3A63)	; &J78-3A63;
+	)
+       ((=jis-x0208-1983    . #x3A63)	; &GT-02143;
+	(=jis-x0208-1990    . #x3A63)	; &I-J90-3A63;
+	(=gt		    . 02143)	; &I-GT-02143;
+	(=gt-pj-1	    . #x3A63)	; &I-GT-02143;
+	(=jef-china3	    . #x44A5)	; &I-JC3-44A5;
+	(=ucs@jis	    . #x51B4)	; &GT-02143;
+	)
+       ((=cbeta		    . 06339)	; &CB06339;
+	))
       ))
-    (shinjigen-1	. 544)
-    (shinjigen-2	. 544)
-    (=ucs		. #x51B4)	; 冴
-    (=cns11643-3	. #x227C)	; &I-C3-227C;
-    (=daikanwa		. 01615)	; &I-M-01615;
-    ))
-(define-char
-  '((=>ucs		. #x51B4)	; 冴
-    (morohashi-daikanwa	1615 0 1)
-    (ideographic-radical . 15)	; ⼎
-    (ideographic-strokes . 5)
-    (total-strokes	 . 7)
-    (=jis-x0208-1978	. #x3A63)	; &J78-3A63;
-    ))
-(define-char
-  '((=>ucs		. #x51B4)	; 冴
-    (morohashi-daikanwa	1615 0 2)
-    (ideographic-radical . 15)	; ⼎
-    (ideographic-strokes . 5)
-    (total-strokes	 . 7)
-    (=jis-x0208-1983	. #x3A63)	; &GT-02143;
-    (=jis-x0208-1990	. #x3A63)	; &I-J90-3A63;
-    (=gt		. 02143)	; &I-GT-02143;
-    (=gt-pj-1		. #x3A63)	; &I-GT-02143;
-    (=jef-china3	. #x44A5)	; &I-JC3-44A5;
-    (=ucs@jis		. #x51B4)	; &GT-02143;
-    ))
-(define-char
-  '((=>ucs		. #x51B4)	; 冴
-    (morohashi-daikanwa	1615 0 3)
-    (ideographic-radical . 15)	; ⼎
-    (ideographic-strokes . 5)
-    (total-strokes	 . 7)
-    (=cbeta		. 06339)	; &CB06339;
     ))
 (define-char
   '((ideographic-radical . 15)	; ⼎