From: tomo <tomo>
Date: Sat, 1 May 2004 11:48:22 +0000 (+0000)
Subject: (U+4227): Use `<-wrong*sources' instead of char-ref in `<-wrong'.
X-Git-Tag: r21-4-14-chise-0_21-27^2~132
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=352c4393680a2accbb92aea0f227e6e296aeedf9;p=chise%2Fxemacs-chise.git-

(U+4227): Use `<-wrong*sources' instead of char-ref in `<-wrong'.
(M-26564): Moved into U-0002F964.
(C7-413C): Likewise.
(U-0002F964): New character.
---

diff --git a/lisp/utf-2000/Ideograph-R118-Bamboo.el b/lisp/utf-2000/Ideograph-R118-Bamboo.el
index c21441c..351de9c 100644
--- a/lisp/utf-2000/Ideograph-R118-Bamboo.el
+++ b/lisp/utf-2000/Ideograph-R118-Bamboo.el
@@ -4556,10 +4556,10 @@
     (ideographic-strokes . 9)
     (total-strokes	 . 15)
     (<-wrong
-     (:sources	(kangxi morohashi-daikanwa)
-      :char	((=daikanwa	     . 26564)	; &M-26564;
-		 )
+     ((=daikanwa	  . 26564)	; &M-26564;
       ))
+    (<-wrong*sources
+     kangxi daikanwa)
     (=ucs		. #x4227)	; 䈧
     (=cns11643-5	. #x4F36)	; &I-C5-4F36;
     (=daikanwa		. 26295)	; &I-M-26295;
@@ -7436,17 +7436,17 @@
     (=cns11643-7	. #x4136)	; &I-C7-4136;
     ))
 (define-char
-  '((ideographic-radical . 118)	; â½µ
-    (ideographic-strokes . 12)
-    (total-strokes	 . 18)
-    (=daikanwa		. 26564)	; &M-26564;
-    ))
-(define-char
-  '((morohashi-daikanwa	26564 0 2)
+  '((=>ucs*		. #x4227)	; 䈧
     (ideographic-radical . 118)	; â½µ
     (ideographic-strokes . 12)
     (total-strokes	 . 18)
-    (=cns11643-7	. #x413C)	; &C7-413C;
+    (=ucs		. #x2F964)	; 䈧
+    (->subsumptive
+     ((=daikanwa	  . 26564)	; &M-26564;
+      )
+     ((=cns11643-7	  . #x413C)	; &C7-413C;
+      (=ucs@iso		  . #x2F964)	; &C7-413C;
+      ))
     ))
 (define-char
   '((ideographic-radical . 118)	; â½µ