From 0c0bfd4accf4304a763e5a99037f31f8a83f90f1 Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 28 Dec 2003 06:34:26 +0000 Subject: [PATCH] (M-30307): Use `->same-ideograph*sources' instead of char-ref in `->same-ideograph'. --- lisp/utf-2000/Ideograph-R135-Tongue.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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 -- 1.7.10.4