From: tomo <tomo>
Date: Sun, 28 Dec 2003 06:34:26 +0000 (+0000)
Subject: (M-30307): Use `->same-ideograph*sources' instead of char-ref in
X-Git-Tag: r21-4-14-chise-0_21-17^2~136
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0c0bfd4accf4304a763e5a99037f31f8a83f90f1;p=chise%2Fxemacs-chise.git-

(M-30307): Use `->same-ideograph*sources' instead of char-ref in
`->same-ideograph'.
---

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index 3fdaa8c..d85568d 100644
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -446,16 +446,17 @@
     (ideographic-strokes . 7)
     (total-strokes	 . 13)
     (->same-ideograph
-     (:char	((=daikanwa	     . 38638)	; ø¸‰›®
-		 )
-      :sources	(morohashi-daikanwa)))
+     ((=daikanwa	  . 38638)	; ø¸‰›®
+      ))
+    (->same-ideograph*sources
+     daikanwa)
     (<-vulgar-ideograph
      (:char	((=daikanwa	     . 38671)	; ø¸‰œ
 		 )
-      :sources	(morohashi-daikanwa))
+      :sources	(daikanwa))
      (:char	((=daikanwa	     . 38649)	; ø¸‰›¹
 		 )
-      :sources	(morohashi-daikanwa)))
+      :sources	(daikanwa)))
     (=daikanwa		. 30307)	; ø¸‡™£
     ))
 (define-char