From: tomo <tomo>
Date: Thu, 14 Oct 2004 14:34:11 +0000 (+0000)
Subject: (U-00020B02): Use `->subsumptive'; use `->synonyms*sources' instead of
X-Git-Tag: r21-4-15-u2km-0_21-32-a~2^2~166
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=177dcc3796ed0a20e79f972813dba4d1ec0ac5e7;p=chise%2Fxemacs-chise.git.1

(U-00020B02): Use `->subsumptive'; use `->synonyms*sources' instead of
char-ref in `->synonyms'.
---

diff --git a/lisp/utf-2000/Ideograph-R028-Private.el b/lisp/utf-2000/Ideograph-R028-Private.el
index 6eb5d55..e1b6d50 100644
--- a/lisp/utf-2000/Ideograph-R028-Private.el
+++ b/lisp/utf-2000/Ideograph-R028-Private.el
@@ -908,21 +908,37 @@
     (=hanziku-1		. #xF5F0)	; &I-HZK01-F5F0;
     ))
 (define-char
-  '((ideographic-radical . 28)	; ⼛
-    (ideographic-strokes . 10)
+  '((ideographic-radical@ucs . 28)	; ⼛
+    (ideographic-strokes@ucs . 10)
+    (ideographic-radical@ucs*sources
+     daikanwa=03104 ucs)
+    (ideographic-radical@cns . 136)	; ⾇
+    (ideographic-strokes@cns . 6)
+    (ideographic-radical@cns*sources
+     daikanwa=30340 cns11643)
     (total-strokes	 . 12)
-    (->identical
-     ((=daikanwa	  . 30340)	; &M-30340;
-      ))
-    (->synonyms
-     (:sources	(henkai-ruihen morohashi-daikanwa)
-      :char	((=daikanwa	     . 13502)	; &I-M-13502;
-		 )
-      ))
-    (hanyu-dazidian	1 389 3)
     (=ucs		. #x20B02)	; 𠬂
-    (=daikanwa		. 03104)	; &I-M-03104;
-    (=hanziku-1		. #xF5EF)	; &I-HZK01-F5EF;
+    (->subsumptive
+     ((hanyu-dazidian	  1 389 3)
+      (=hanziku-1	  . #xF5EF)	; &HZK01-F5EF;
+      (=ucs@iso		  . #x20B02)	; &HZK01-F5EF;
+      (->subsumptive
+       ((ideographic-radical . 28)	; ⼛
+	(ideographic-strokes . 10)
+	(->synonyms
+	 ((=daikanwa	      . 13502)	; &I-M-13502;
+	  ))
+	(->synonyms*sources
+	 pianhai-leibian daikanwa)
+	(=daikanwa	    . 03104)	; &M-03104;
+	)
+       ((ideographic-radical . 136)	; ⾇
+	(ideographic-strokes . 6)
+	(=daikanwa	    . 30340)	; &M-30340;
+	))
+      )
+     ((=cns11643-6	  . #x4D62)	; &C6-4D62; [45-66]
+      ))
     ))
 (define-char
   '((ideographic-radical . 28)	; ⼛