From: tomo <tomo>
Date: Sat, 1 May 2004 18:48:35 +0000 (+0000)
Subject: (U+3541): Use `<-wrong*sources' instead of char-ref in `<-wrong'; add
X-Git-Tag: r21-4-14-chise-0_21-27^2~128
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=35522e19e3aa044cd06ca3a4e2d645f8dc6d74cc;p=chise%2Fxemacs-chise.git.1

(U+3541): Use `<-wrong*sources' instead of char-ref in `<-wrong'; add
`->mistakable' for M-39379; add `<-vulgar' for M-02867.
(U+537B): Use `->subsumptive'.
---

diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index 01c4249..4391ae0 100644
--- a/lisp/utf-2000/Ideograph-R026-Seal.el
+++ b/lisp/utf-2000/Ideograph-R026-Seal.el
@@ -616,11 +616,23 @@
   '((ideographic-radical . 26)	; ⼙
     (ideographic-strokes . 6)
     (total-strokes	 . 8)
+    (->mistakable
+     ((=daikanwa	  . 39379)	; &I-M-39379;
+      ))
+    (->mistakable*sources
+     zihui daikanwa)
+    (<-vulgar
+     ((=daikanwa	  . 02867)	; &I-M-02867;
+      ))
+    (<-vulgar*sources
+     zhengzi-tong daikanwa)
     (<-wrong
-     (:char	((shinjigen-1	     . 855)
-		 (=daikanwa	     . 02856)	; &I-M-02856;
-		 )
-      :sources	(shinjigen-1)))
+     ((shinjigen-1	  . 855)
+      (=ucs		  . #x5374)	; 却
+      (=jis-x0208	  . #x3551)	; &I-J90-3551;
+      ))
+    (<-wrong*sources
+     shinjigen-1)
     (hanyu-dazidian	1 315 1)
     (shinjigen-1	. 857)
     (=ucs		. #x3541)	; 㕁
@@ -692,24 +704,29 @@
 		 )
       :sources	(shinjigen-1)))
     (hanyu-dazidian	1 317 2)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x8C37)	; è°·
+    (=ucs		. #x537B)	; 卻
+    (->subsumptive
+     ((shinjigen-1	  . 856)
+      (shinjigen-2	  . 856)
+      (=jis-x0208	  . #x524A)	; &GT-03647;
+      (=gt		  . 03647)	; &I-GT-03647;
+      (=gt-k		  . 05216)	; &I-GT-K05216;
+      (=gt-pj-1		  . #x524A)	; &I-GT-03647;
+      (=daikanwa	  . 02867)	; &I-M-02867;
+      (=ucs@jis		  . #x537B)	; &GT-03647;
       )
-     ((=ucs		  . #x5369)	; 卩
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x8C37)	; è°·
+	)
+       ((=ucs		    . #x5369)	; 卩
+	))
+      (=cns11643-1	  . #x5033)	; &C1-5033;
+      (=big5		  . #xAB6F)	; &I-B-AB6F;
+      (=ucs@unicode	  . #x537B)	; &C1-5033;
       ))
-    (shinjigen-1	. 856)
-    (shinjigen-2	. 856)
-    (=ucs		. #x537B)	; 卻
-    (=jis-x0208		. #x524A)	; &I-J90-524A;
-    (=cns11643-1	. #x5033)	; &I-C1-5033;
-    (=big5		. #xAB6F)	; &I-B-AB6F;
-    (=gt		. 03647)	; &I-GT-03647;
-    (=gt-k		. 05216)	; &I-GT-K05216;
-    (=gt-pj-1		. #x524A)	; &I-GT-03647;
-    (=daikanwa		. 02867)	; &I-M-02867;
     ))
 (define-char
   '((ideographic-radical . 26)	; ⼙