From a2396bb82df0a4a66fb5ff821bf1c07b866eca9b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 16 Jun 2004 13:20:50 +0000
Subject: [PATCH] Rename `<-original-ideograph' to `<-original'. (U+7714): Use
 `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R109-Eye.el |   32 ++++++++++++--------------------
 1 file changed, 12 insertions(+), 20 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R109-Eye.el b/lisp/utf-2000/Ideograph-R109-Eye.el
index 127f2e0..44c42ce 100644
--- a/lisp/utf-2000/Ideograph-R109-Eye.el
+++ b/lisp/utf-2000/Ideograph-R109-Eye.el
@@ -1290,10 +1290,10 @@
     (ideographic-radical . 109)	; ⽬
     (ideographic-strokes . 4)
     (total-strokes	 . 9)
-    (<-original-ideograph
+    (<-original
      ((=daikanwa	  . 01473)	; &I-M-01473;
       ))
-    (<-original-ideograph*sources
+    (<-original*sources
      daikanwa)
     (=ucs		. #x2F942)	; 𥃲
     (=cns11643-6	. #x333D)	; &I-C6-333D; [19-29]
@@ -2160,26 +2160,18 @@
   '((ideographic-radical . 109)	; ⽬
     (ideographic-strokes . 5)
     (total-strokes	 . 10)
-    (<-original-ideograph
-     ((=daikanwa	  . 23221)	; &I-M-23221;
-      ))
-    (<-original-ideograph*sources
-     daikanwa)
     (=ucs		. #x7714)	; 眔
-    (=daikanwa		. 49364)	; &I-M-49364;
-    ))
-(define-char
-  '((=>ucs		. #x7714)	; 眔
-    (morohashi-daikanwa	49364 0 0)
-    (ideographic-radical . 109)	; ⽬
-    (ideographic-strokes . 5)
-    (total-strokes	 . 10)
-    (<-original-ideograph
-     ((=daikanwa	  . 23221)	; &I-M-23221;
+    (->subsumptive
+     ((<-original
+       ((=daikanwa	    . 23221)	; &I-M-23221;
+	))
+      (<-original*sources
+       daikanwa)
+      (=daikanwa	  . 49364)	; &M-49364;
+      (=ucs@unicode	  . #x7714)	; &M-49364;
+      )
+     ((=cns11643-4	  . #x2E55)	; &C4-2E55; [14-53]
       ))
-    (<-original-ideograph*sources
-     daikanwa)
-    (=cns11643-4	. #x2E55)	; &C4-2E55; [14-53]
     ))
 (define-char
   '((ideographic-radical . 109)	; ⽬
-- 
1.7.10.4