From: tomo <tomo>
Date: Wed, 3 Dec 2003 11:04:51 +0000 (+0000)
Subject: (U-000206F9): Use `<-ancient-ideograph*sources' instead of char-ref in
X-Git-Tag: r21-4-14-chise-0_21-c5-ext-b-r160^2~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b504aef9b4b138122b6c4a39c20f59068ae19ee9;p=chise%2Fxemacs-chise.git-

(U-000206F9): Use `<-ancient-ideograph*sources' instead of char-ref in
`<-ancient-ideograph'.
(U-00020702): Unify M-48938; use `->ideographic-variants*sources'
instead of char-ref in `->ideographic-variants'.
---

diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index 9403f47..c4441de 100644
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -2665,30 +2665,15 @@
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
     (<-ancient-ideograph
-     (:sources	(jiiho morohashi-daikanwa)
-      :char	((=daikanwa	     . 01917)	; ø¸€½
-		 )
+     ((=daikanwa	  . 01917)	; ø¸€½
       ))
+    (<-ancient-ideograph*sources
+     zihui-bei daikanwa)
     (=ucs		. #x206F9)	; 𠛹
     (=cns11643-6	. #x2967)	; ø»œ¦
     (=daikanwa		. 01980)	; ø¸€ž¼
     ))
 (define-char
-  '((morohashi-daikanwa	1980 0 5)
-    (ideographic-radical . 18)	; ⼑
-    (ideographic-strokes . 6)
-    (total-strokes	 . 8)
-    (->ideographic-variants
-     (:sources	(shinjigen-1)
-      :char	((shinjigen-1	     . 609)
-		 (=daikanwa	     . 01917)	; ø¸€½
-		 )
-      ))
-    (shinjigen-1	. 610)
-    (=ucs		. #x20702)	; 𠜂
-    (=cns11643-6	. #x2968)	; ø»œ§
-    ))
-(define-char
   '((=>ucs		. #x20706)	; 𠜆
     (ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 6)
@@ -2812,6 +2797,21 @@
   '((ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
+    (->ideographic-variants
+     ((shinjigen-1	  . 609)
+      (=daikanwa	  . 01917)	; ø¸€½
+      ))
+    (->ideographic-variants*sources
+     shinjigen-1)
+    (shinjigen-1	. 610)
+    (=ucs		. #x20702)	; 𠜂
+    (=cns11643-6	. #x2968)	; ø»œ§
+    (=daikanwa		. 48938)	; ø¸‹¼ª
+    ))
+(define-char
+  '((ideographic-radical . 18)	; ⼑
+    (ideographic-strokes . 6)
+    (total-strokes	 . 8)
     (hanyu-dazidian	1 333 3)
     (=ucs		. #x34E6)	; 㓦
     (=hanziku-1		. #xEAAE)	; ý¢€žª®