From: tomo <tomo>
Date: Sun, 28 Dec 2003 06:11:56 +0000 (+0000)
Subject: (U-0002F82A): Use `->ideographic-variants*sources' instead of char-ref
X-Git-Tag: r21-4-14-chise-0_21-17^2~141
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=782a6b84820187d3fc045a0bb1d0778277f99e8d;p=chise%2Fxemacs-chise.git-

(U-0002F82A): Use `->ideographic-variants*sources' instead of char-ref
in `->ideographic-variants'.
---

diff --git a/lisp/utf-2000/Ideograph-R020-Wrap.el b/lisp/utf-2000/Ideograph-R020-Wrap.el
index e99c9de..e6f5846 100644
--- a/lisp/utf-2000/Ideograph-R020-Wrap.el
+++ b/lisp/utf-2000/Ideograph-R020-Wrap.el
@@ -442,10 +442,11 @@
     (ideographic-strokes . 3)
     (total-strokes	 . 5)
     (->ideographic-variants
-     (:char	((shinjigen-1	     . 772)
-		 (=ucs		     . #x5306)	; 匆
-		 )
-      :sources	(shinjigen-1)))
+     ((shinjigen-1	  . 772)
+      (=ucs		  . #x5306)	; 匆
+      ))
+    (->ideographic-variants*sources
+     shinjigen-1)
     (ideographic-structure
      ((name		  . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
       (=ucs		  . #x2FFB)	; â¿»