From: tomo <tomo>
Date: Wed, 28 Apr 2004 03:09:19 +0000 (+0000)
Subject: (M-14394): Moved into U-00023393; use `<-wrong*sources' instead of
X-Git-Tag: r21-4-14-chise-0_21-27^2~142
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b101e9c5951e5fc24ed8859723017aecf9d95e12;p=chise%2Fxemacs-chise.git.1

(M-14394): Moved into U-00023393; use `<-wrong*sources' instead of
char-ref in `<-wrong'.
(U-00023393): Use `->subsumptive'.
---

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)	; ⽉