From: tomo <tomo>
Date: Wed, 11 Feb 2004 07:50:40 +0000 (+0000)
Subject: (M-01718): Use `<-vulgar-ideograph*sources' instead of char-ref in
X-Git-Tag: r21-4-14-chise-0_21-23^2~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=878bb644d310c0ac216d20670a37b6f6d8aaade0;p=chise%2Fxemacs-chise.git

(M-01718): Use `<-vulgar-ideograph*sources' instead of char-ref in
`<-vulgar-ideograph'; simplify `ideographic-structure'.
(C3-4B30): Simplify `ideographic-structure'.
(J90-515B): Likewise.
(U+51DB): Likewise.
---

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index d838725..eea4ccb 100644
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -2407,24 +2407,18 @@
     (ideographic-strokes . 13)
     (total-strokes	 . 15)
     (<-vulgar-ideograph
-     (:char	((shinjigen-1	     . 561)
-		 (=daikanwa	     . 01717)	; ø¸€šµ
-		 )
-      :sources	(henkai morohashi-daikanwa shinjigen-1)))
+     ((shinjigen-1	  . 561)
+      (=daikanwa	  . 01717)	; ø¸€šµ
+      ))
+    (<-vulgar-ideograph*sources
+     pianhai daikanwa shinjigen-1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
      ((=ucs		  . #x51AB)	; 冫
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=daikanwa	    . 00300)	; ø¸€„¬
-	)
-       ((=daikanwa	    . 24623)	; ø¸†€¯
-	))
+     ((=daikanwa	  . 24742)	; ø¸†‚¦
       ))
     (shinjigen-1	. 563)
     (shinjigen-2	. 563)
@@ -2444,14 +2438,7 @@
       )
      ((=ucs		  . #x51AB)	; 冫
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=ucs		    . #x342D)	; 㐭
-	)
-       ((=daikanwa	    . 24623)	; ø¸†€¯
-	))
+     ((=cns11643-3	  . #x433D)	; ø»–ˆ¼
       ))
     (=cns11643-3	. #x4B30)	; ø»–”Ÿ
     ))
@@ -2467,14 +2454,7 @@
       )
      ((=ucs		  . #x51AB)	; 冫
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=daikanwa	    . 00300)	; ø¸€„¬
-	)
-       ((=ucs		    . #x793A)	; 示
-	))
+     ((=jis-x0208	  . #x6349)	; ø½‹— 
       ))
     (=jis-x0208-1990	. #x515B)	; ø½Š½–
     (=gt		. 02257)	; ý¡€€£‘
@@ -2493,14 +2473,7 @@
       )
      ((=ucs		  . #x51AB)	; 冫
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=ucs		    . #x342D)	; 㐭
-	)
-       ((=ucs		    . #x793A)	; 示
-	))
+     ((=ucs		  . #x7980)	; 禀
       ))
     (=ucs		. #x51DB)	; 凛
     (=gb2312		. #x415D)	; ø»„¶€