From a4d69f795b443d632283a59f7cb0c73e9113d0c8 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 12 Jul 2004 08:43:14 +0000
Subject: [PATCH] (U-00020A13): Use `->subsumptive'. (C4-2557): Use
 `->subsumptive'; use
 `ideographic-{radical|strokes}@{ucs|cns}' and
 `ideographic-radical@ucs*sources'.

---
 lisp/utf-2000/Ideograph-R026-Seal.el |   35 ++++++++++++++++++++--------------
 1 file changed, 21 insertions(+), 14 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index fe45da9..99976f2 100644
--- a/lisp/utf-2000/Ideograph-R026-Seal.el
+++ b/lisp/utf-2000/Ideograph-R026-Seal.el
@@ -677,23 +677,30 @@
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
     (=ucs		. #x20A13)	; 𠨓
-    (=daikanwa		. 02866)	; &I-M-02866;
-    ))
-(define-char
-  '((=>ucs		. #x20A13)	; 𠨓
-    (morohashi-daikanwa	2866 0 1)
-    (ideographic-radical . 26)	; ⼙
-    (ideographic-strokes . 6)
-    (total-strokes	 . 8)
-    (=cns11643-6	. #x2A24)	; &C6-2A24; [10-04]
+    (->subsumptive
+     ((=daikanwa	  . 02866)	; &M-02866;
+      )
+     ((=ucs@iso		  . #x20A13)	; &UU+20A13;
+      )
+     ((=cns11643-6	  . #x2A24)	; &C6-2A24; [10-04]
+      ))
     ))
 (define-char
-  '((=>ucs		. #x7F37)	; ç¼·
-    (morohashi-daikanwa	28110 0 0)
-    (ideographic-radical . 26)	; ⼙
-    (ideographic-strokes . 6)
+  '((ideographic-radical@ucs . 121)	; ⽸
+    (ideographic-strokes@ucs . 2)
+    (ideographic-radical@ucs*sources
+     daikanwa ucs)
+    (ideographic-radical@cns . 26)	; ⼙
+    (ideographic-strokes@cns . 6)
     (total-strokes	 . 8)
-    (=cns11643-4	. #x2557)	; &C4-2557; [05-55]
+    (=ucs		. #x7F37)	; ç¼·
+    (->subsumptive
+     ((=daikanwa	  . 28110)	; &M-28110;
+      )
+     ((=cns11643-4	  . #x2557)	; &C4-2557; [05-55]
+      )
+     ((=ucs@unicode	  . #x7F37)	; &UU+7F37;
+      ))
     ))
 (define-char
   '((ideographic-radical . 26)	; ⼙
-- 
1.7.10.4