From 35522e19e3aa044cd06ca3a4e2d645f8dc6d74cc Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 1 May 2004 18:48:35 +0000
Subject: [PATCH] (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'.

---
 lisp/utf-2000/Ideograph-R026-Seal.el |   57 ++++++++++++++++++++++------------
 1 file changed, 37 insertions(+), 20 deletions(-)

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)	; ⼙
-- 
1.7.10.4