From: tomo <tomo>
Date: Sat, 24 Apr 2004 18:51:07 +0000 (+0000)
Subject: (U-000200BD): Use `ideographic-{radical|strokes}@{ucs|cns}' and
X-Git-Tag: r21-4-14-chise-0_21-26-si-vulgar^2~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b2555e816fe77d04d47e942ed60056508664f464;p=chise%2Fxemacs-chise.git.1

(U-000200BD): Use `ideographic-{radical|strokes}@{ucs|cns}' and
`ideographic-radical@cns*sources' instead of `ideographic-'; use
`->vulgar' and `->vulgar*sources' instead of `->vulgar-ideograph'.
---

diff --git a/lisp/utf-2000/Ideograph-R102-Field.el b/lisp/utf-2000/Ideograph-R102-Field.el
index f7833d5..c0cd100 100644
--- a/lisp/utf-2000/Ideograph-R102-Field.el
+++ b/lisp/utf-2000/Ideograph-R102-Field.el
@@ -642,6 +642,9 @@
   '((ideographic-radical . 102)	; â½¥
     (ideographic-strokes . 4)
     (total-strokes	 . 9)
+    (<-vulgar
+     ((=ucs		  . #x200BD)	; 𠂽
+      ))
     (shinjigen-1	. 5030)
     (shinjigen-2	. 5030)
     (=ucs		. #x754F)	; 畏
@@ -1182,17 +1185,19 @@
     (=daikanwa		. 21827)	; &I-M-21827;
     ))
 (define-char
-  '((ideographic-	(:radical	102 ; â½¥
-			 :strokes	5
-			 :sources	(cns-11643 morohashi-daikanwa))
-			(:radical	4 ; ⼃
-			 :strokes	9
-			 :sources	(ucs)))
+  '((ideographic-radical@ucs . 4)	; ⼃
+    (ideographic-strokes@ucs . 9)
+    (ideographic-radical@cns . 102)	; â½¥
+    (ideographic-strokes@cns . 5)
+    (ideographic-radical@cns*sources
+     cns11643 daikanwa)
     (total-strokes	 . 10)
-    (->vulgar-ideograph
-     (:char	((=daikanwa	     . 21778)	; &I-M-21778;
-		 )
-      :sources	(morohashi-daikanwa)))
+    (->vulgar
+     ((=ucs		  . #x754F)	; 畏
+      (=daikanwa	  . 21778)	; &I-M-21778;
+      ))
+    (->vulgar*sources
+     daikanwa)
     (hanyu-dazidian	1 41 4)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")