From: tomo <tomo>
Date: Fri, 7 Nov 2003 08:51:26 +0000 (+0000)
Subject: (M-19687): Unify GT-K09318 and GT-25281; don't use char-ref; use
X-Git-Tag: r21-4-14-chise-0_21-1^2~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d9c6fe58ff74a27a9ad3ba999064da9f4257efcb;p=chise%2Fxemacs-chise.git

(M-19687): Unify GT-K09318 and GT-25281; don't use char-ref; use
`*sources' instead.
(GT-25283): New character.
(GT-25282): New character.
(U-00024514): Unify GT-K09372.
---

diff --git a/lisp/utf-2000/Ideograph-R087-Claw.el b/lisp/utf-2000/Ideograph-R087-Claw.el
index e84001f..4e5da8a 100644
--- a/lisp/utf-2000/Ideograph-R087-Claw.el
+++ b/lisp/utf-2000/Ideograph-R087-Claw.el
@@ -346,16 +346,39 @@
     (ideographic-strokes . 8)
     (total-strokes	 . 12)
     (->ancient-ideograph
-     (:sources	(morohashi-daikanwa)
-      :char	((=daikanwa	     . 19682)	; ø¸„³¢
-		 )
+     ((=daikanwa	  . 19682)	; ø¸„³¢
       ))
+    (->ancient-ideograph*sources
+     daikanwa)
     (->same-ideograph
-     (:sources	(shuowen morohashi-daikanwa)
-      :char	((=daikanwa	     . 00214)	; ø¸€ƒ–
-		 )
+     ((=daikanwa	  . 00214)	; ø¸€ƒ–
       ))
+    (->same-ideograph*sources
+     shuowen daikanwa)
+    (=gt-pj-4		. #x624B)	; ý¡€†‹
     (=daikanwa		. 19687)	; ø¸„³§
+    (=gt-k		. 09318)	; ý¡„‚‘¦
+    (=gt		. 25281)	; ý¡€†‹
+    ))
+(define-char
+  '((=>ucs		. #x24514)	; 𤔔
+    (morohashi-daikanwa	19687 0 2)
+    (ideographic-radical . 87)	; ⽖
+    (ideographic-strokes . 8)
+    (total-strokes	 . 12)
+    (=gt-pj-9		. #x6634)	; ý¡€†‹ƒ
+    (=gt-k		. 09319)	; ý¡„‚‘§
+    (=gt		. 25283)	; ý¡€†‹ƒ
+    ))
+(define-char
+  '((=>ucs		. #x24514)	; 𤔔
+    (morohashi-daikanwa	19687 0 3)
+    (ideographic-radical . 87)	; ⽖
+    (ideographic-strokes . 8)
+    (total-strokes	 . 12)
+    (=gt-pj-9		. #x4B68)	; ý¡€†‹‚
+    (=gt-k		. 09799)	; ý¡„‚™‡
+    (=gt		. 25282)	; ý¡€†‹‚
     ))
 (define-char
   '((=>ucs		. #x24514)	; 𤔔
@@ -371,6 +394,8 @@
     (ideographic-radical . 87)	; ⽖
     (ideographic-strokes . 8)
     (total-strokes	 . 12)
+    (=gt-pj-k2		. #x363B)	; 𤔔
+    (=gt-k		. 09372)	; ý¡„‚’œ
     (=ucs		. #x24514)	; 𤔔
     ))
 (define-char