From b101e9c5951e5fc24ed8859723017aecf9d95e12 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 28 Apr 2004 03:09:19 +0000
Subject: [PATCH] (M-14394): Moved into U-00023393; use `<-wrong*sources'
 instead of char-ref in `<-wrong'. (U-00023393): Use
 `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R074-Moon.el |   26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R074-Moon.el b/lisp/utf-2000/Ideograph-R074-Moon.el
index aad8a98..04d0283 100644
--- a/lisp/utf-2000/Ideograph-R074-Moon.el
+++ b/lisp/utf-2000/Ideograph-R074-Moon.el
@@ -1034,23 +1034,21 @@
     (=cns11643-7	. #x2364)	; &I-C7-2364;
     ))
 (define-char
-  '((=>ucs		. #x23393)	; 𣎓
-    (ideographic-radical . 74)	; ⽉
-    (ideographic-strokes . 11)
-    (total-strokes	 . 15)
-    (<-wrong
-     (:char	((=daikanwa	     . 29821)	; &M-29821;
-		 )
-      :sources	(morohashi-daikanwa)))
-    (=daikanwa		. 14394)	; &M-14394;
-    ))
-(define-char
-  '((morohashi-daikanwa	14394 0 0)
-    (ideographic-radical . 74)	; ⽉
+  '((ideographic-radical . 74)	; ⽉
     (ideographic-strokes . 11)
     (total-strokes	 . 15)
     (=ucs		. #x23393)	; 𣎓
-    (=cns11643-4	. #x4A34)	; &I-C4-4A34;
+    (->subsumptive
+     ((<-wrong
+       ((=daikanwa	    . 29821)	; &M-29821;
+	))
+      (<-wrong*sources
+       daikanwa)
+      (=daikanwa	  . 14394)	; &M-14394;
+      )
+     ((=cns11643-4	  . #x4A34)	; &C4-4A34;
+      (=ucs@iso		  . #x23393)	; &C4-4A34;
+      ))
     ))
 (define-char
   '((ideographic-radical . 74)	; ⽉
-- 
1.7.10.4