From 943738bf58f70e9be1021c005e72f669003a7986 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 28 Jun 2005 09:40:10 +0000
Subject: [PATCH] (U-0002010D): Use `->denotational' and `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R006-Hook.el |   39 +++++++++++++---------------------
 1 file changed, 15 insertions(+), 24 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R006-Hook.el b/lisp/utf-2000/Ideograph-R006-Hook.el
index b694465..4bbbafd 100644
--- a/lisp/utf-2000/Ideograph-R006-Hook.el
+++ b/lisp/utf-2000/Ideograph-R006-Hook.el
@@ -65,41 +65,32 @@
   '((ideographic-radical . 6)	; ⼅
     (ideographic-strokes . 1)
     (total-strokes	 . 2)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x2010C)	; 𠄌
-      )
-     ((=ucs		  . #x4E85)	; 亅
-      ))
     (=ucs		. #x2010D)	; 𠄍
-    (=daikanwa		. 00227)	; &I-M-00227;
     ))
 (define-char
-  '((=>ucs		. #x2010D)	; 𠄍
-    (morohashi-daikanwa	227 0 0)
-    (ideographic-radical . 6)	; ⼅
+  '((ideographic-radical . 6)	; ⼅
     (ideographic-strokes . 1)
     (total-strokes	 . 2)
-    (=cns11643-5	. #x2127)	; &C5-2127; [01-07]
+    (<-denotational
+     ((=ucs		  . #x2010D)	; 𠄍
+      ))
+    (->subsumptive
+     ((=daikanwa	  . 00227)	; &M-00227;
+      )
+     ((=cns11643-5	  . #x2127)	; &C5-2127; [01-07]
+      (=ucs@cns		  . #x2010D)	; &C5-2127;
+      ))
     ))
 (define-char
-  '((=>ucs		. #x2010D)	; 𠄍
-    (morohashi-daikanwa	227 0 2)
-    (ideographic-radical . 6)	; ⼅
+  '((ideographic-radical . 6)	; ⼅
     (ideographic-strokes . 1)
     (total-strokes	 . 2)
-    (hanyu-dazidian	1 49 3)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x2010C)	; 𠄌
-      )
-     ((=ucs		  . #x4E85)	; 亅
+    (<-denotational
+     ((=ucs		  . #x2010D)	; 𠄍
       ))
+    (hanyu-dazidian	1 49 3)
     (=hanziku-1		. #xAE40)	; &HZK01-AE40;
+    (=ucs@iso		. #x2010D)	; &HZK01-AE40;
     ))
 (define-char
   '((ideographic-radical . 6)	; ⼅
-- 
1.7.10.4