From c5af7e1cb57c55e45b0e02b42d172e7e4b05fa6b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 28 Dec 2003 17:25:47 +0000
Subject: [PATCH] (JX1-2E6E): Unify U+FA35 instead of U+5351. (J0-485C): Use
 `<-vulgar-ideograph*sources' instead of char-ref in
 `<-vulgar-ideograph'.

---
 lisp/utf-2000/Ideograph-R024-Ten.el |   35 ++++++++++++++++++++++-------------
 1 file changed, 22 insertions(+), 13 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R024-Ten.el b/lisp/utf-2000/Ideograph-R024-Ten.el
index 04214e9..ca8a95f 100644
--- a/lisp/utf-2000/Ideograph-R024-Ten.el
+++ b/lisp/utf-2000/Ideograph-R024-Ten.el
@@ -728,7 +728,8 @@
     (=cns11643-5	. #x2540)	; ø»™±ƒ
     ))
 (define-char
-  '((ideographic-radical . 24)	; ⼗
+  '((=>ucs*		. #x5351)	; 卑
+    (ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
     (hanyu-dazidian	1 63 1)
@@ -742,7 +743,7 @@
       ))
     (shinjigen-1	. 830)
     (shinjigen-2	. 830)
-    (=ucs		. #x5351)	; 卑
+    (=ucs		. #xFA35)	; 卑
     (=gb2312		. #x3130)	; ø»„³
     (=ks-x1001		. #x5D64)	; ø»‰³—
     (=cns11643-1	. #x4C38)	; ø»’½
@@ -750,15 +751,21 @@
     (=big5		. #xA8F5)	; ý¢€Š£µ
     (=daikanwa		. 02738)	; ø¸€ª²
     (=jef-china3	. #x45C3)	; øº„—ƒ
-    (=ucs@jis		. #xFA35)	; 卑
+    (=ucs@gb		. #x5351)	; 卑
+    (=ucs@cns		. #x5351)	; 卑
+    (=ucs@ks		. #x5351)	; 卑
+    (=ucs@big5		. #x5351)	; 卑
     ))
 (define-char
-  '((=>ucs*		. #x5351)	; 卑
+  '((=>ucs@jis		. #xFA35)	; 卑
     (morohashi-daikanwa	2738 0 0)
     (ideographic-radical . 24)	; ⼗
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
-    (=ucs		. #xFA35)	; 卑
+    (->identical
+     ((=ucs		  . #xFA35)	; 卑
+      ))
+    (=ucs		. #x5351)	; 卑
     ))
 (define-char
   '((script		JP-Jouyou Ideograph)
@@ -768,10 +775,11 @@
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
     (<-vulgar-ideograph
-     (:char	((shinjigen-1	     . 830)
-		 (=daikanwa	     . 02738)	; ø¸€ª²
-		 )
-      :sources	(shinjigen-1)))
+     ((shinjigen-1	  . 830)
+      (=daikanwa	  . 02738)	; ø¸€ª²
+      ))
+    (<-vulgar-ideograph*sources
+     shinjigen-1)
     (shinjigen-1	. 829)
     (shinjigen-2	. 829)
     (=jis-x0208		. #x485C)	; ø½Š°‰
@@ -786,10 +794,11 @@
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
     (<-vulgar-ideograph
-     (:char	((shinjigen-1	     . 830)
-		 (=daikanwa	     . 02738)	; ø¸€ª²
-		 )
-      :sources	(seiji-tsuu morohashi-daikanwa shinjigen-1)))
+     ((shinjigen-1	  . 830)
+      (=daikanwa	  . 02738)	; ø¸€ª²
+      ))
+    (<-vulgar-ideograph*sources
+     zhengzi-tong daikanwa shinjigen-1)
     (shinjigen-1	. 831)
     (shinjigen-2	. 831)
     (=ucs		. #x24C1E)	; 𤰞
-- 
1.7.10.4