From f8442cd676261a95e60e183439bd17bf50a4d7de Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 24 Apr 2004 06:48:20 +0000
Subject: [PATCH] (U+4E46): Use `<-vulgar*sources' instead of char-ref in
 `<-vulgar'; add `<-wrong' for U+4E45. (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'.

---
 lisp/utf-2000/Ideograph-R004-Slash.el |   46 ++++++++++++++++++++++-----------
 1 file changed, 31 insertions(+), 15 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index 7858491..3b8180d 100644
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -272,10 +272,20 @@
     (ideographic-strokes . 2)
     (total-strokes	 . 3)
     (<-vulgar
-     (:char	((shinjigen-1	     . 47)
-		 (=daikanwa	     . 00118)	; &I-M-00118;
-		 )
-      :sources	(shinjigen-1)))
+     ((shinjigen-1	  . 47)
+      (=ucs		  . #x4E45)	; 久
+      (=jis-x0208	  . #x3557)	; &I-J90-3557;
+      ))
+    (<-vulgar*sources
+     shinjigen-1)
+    (<-wrong
+     ((shinjigen-1	  . 47)
+      (=ucs		  . #x4E45)	; 久
+      (=jis-x0208	  . #x3557)	; &I-J90-3557;
+      (=daikanwa	  . 00118)	; &I-M-00118;
+      ))
+    (<-wrong*sources
+     zhengzi-tong daikanwa)
     (hanyu-dazidian	1 51 2)
     (shinjigen-1	. 48)
     (=ucs		. #x4E46)	; 乆
@@ -357,7 +367,11 @@
 (define-char
   '((total-strokes	 . 3)
     (<-vulgar
-     ((=daikanwa	  . 01739)	; &I-M-01739;
+     ((=jis-x0208	  . #x4B5E)	; &GT-02286;
+      (=gb2312		  . #x3732)	; &I-G0-3732;
+      (=ks-x1001	  . #x5B6D)	; &I-K0-5B6D;
+      (=cns11643-1	  . #x443B)	; &I-C1-443B;
+      (=daikanwa	  . 01739)	; &I-M-01739;
       ))
     (<-vulgar*sources
      zhengzi-tong daikanwa)
@@ -1644,17 +1658,19 @@
     (=hanziku-1		. #xAC7C)	; &I-HZK01-AC7C;
     ))
 (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")
-- 
1.7.10.4