From 0bc0605124c28ae66498c3179d7ef79daa962c17 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 5 Apr 2005 16:53:58 +0000
Subject: [PATCH] (U+5C3B): Add S1-1921. (U+5C3C): Use `->subsumptive'.
 (U+378B): Likewise. (U+3798): Likewise. (U-00021CBE): Use
 `->denotational' instead of `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R044-Corpse.el |   96 +++++++++++++++++++++++---------
 1 file changed, 70 insertions(+), 26 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index dfd08de..52a2dd8 100644
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -72,6 +72,7 @@
   '((ideographic-radical . 44)	; ⼫
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
+    (shinjigen-1	. 1921)
     (shinjigen-2	. 1921)
     (=ucs		. #x5C3B)	; å°»
     (=jis-x0208		. #x3F2C)	; &I-J90-3F2C; [31-12]
@@ -88,17 +89,22 @@
   '((ideographic-radical . 44)	; ⼫
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
-    (shinjigen-2	. 1922)
     (=ucs		. #x5C3C)	; å°¼
-    (=jis-x0208		. #x4674)	; &I-J90-4674; [38-84]
-    (=gb2312		. #x4461)	; &I-G0-4461; [36-65]
-    (=ks-x1001		. #x5279)	; &I-K0-5279; [50-89]
-    (=cns11643-1	. #x4647)	; &I-C1-4647; [38-39]
-    (=big5		. #xA5A7)	; &I-B-A5A7;
-    (=gt		. 09625)	; &I-GT-09625;
-    (=gt-k		. 00984)	; &I-GT-K00984;
-    (=gt-pj-1		. #x4674)	; &I-GT-09625; [38-84]
-    (=daikanwa		. 07635)	; &I-M-07635;
+    (->subsumptive
+     ((shinjigen-1	  . 1922)
+      (shinjigen-2	  . 1922)
+      (=jis-x0208	  . #x4674)	; &GT-09625; [38-84]
+      (=gb2312		  . #x4461)	; &I-G0-4461; [36-65]
+      (=ks-x1001	  . #x5279)	; &I-K0-5279; [50-89]
+      (=big5		  . #xA5A7)	; &I-B-A5A7;
+      (=gt		  . 09625)	; &I-GT-09625;
+      (=gt-k		  . 00984)	; &I-GT-K00984;
+      (=gt-pj-1		  . #x4674)	; &I-GT-09625; [38-84]
+      (=daikanwa	  . 07635)	; &I-M-07635;
+      (=ucs@unicode	  . #x5C3C)	; &GT-09625;
+      )
+     ((=cns11643-1	  . #x4647)	; &C1-4647; [38-39]
+      ))
     ))
 (define-char
   '((ideographic-radical . 44)	; ⼫
@@ -113,8 +119,12 @@
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
     (=ucs		. #x378B)	; 㞋
-    (=cns11643-3	. #x2240)	; &I-C3-2240; [02-32]
-    (=daikanwa		. 07637)	; &I-M-07637;
+    (->subsumptive
+     ((=daikanwa	  . 07637)	; &M-07637;
+      )
+     ((=cns11643-3	  . #x2240)	; &C3-2240; [02-32]
+      (=ucs@unicode	  . #x378B)	; &C3-2240;
+      ))
     ))
 (define-char
   '((ideographic-radical . 44)	; ⼫
@@ -1244,18 +1254,39 @@
   '((ideographic-radical . 44)	; ⼫
     (ideographic-strokes . 8)
     (total-strokes	 . 11)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
-      (=ucs		  . #x2FF8)	; ⿸
+    (=ucs		. #x3798)	; 㞘
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+	(=ucs		    . #x2FF8)	; ⿸
+	)
+       ((=ucs		    . #x5C38)	; å°¸
+	)
+       ((=daikanwa	    . 36338)	; &M-36338;
+	))
+      (=daikanwa	  . 07732)	; &M-07732;
+      (=cbeta		  . 05465)	; &I-CB05465;
       )
-     ((=ucs		  . #x5C38)	; å°¸
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+	(=ucs		    . #x2FF8)	; ⿸
+	)
+       ((=ucs		    . #x5C38)	; å°¸
+	)
+       ((=ucs@unicode	    . #x8C56)	; &UU+8C56;
+	))
+      (=ucs@unicode	  . #x3798)	; &UU+3798;
       )
-     ((=ucs		  . #x8C56)	; 豖
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+	(=ucs		    . #x2FF8)	; ⿸
+	)
+       ((=ucs		    . #x5C38)	; å°¸
+	)
+       ((=cns11643-2	    . #x286B)	; &C2-286B; [08-75]
+	))
+      (=cns11643-6	  . #x3E6B)	; &C6-3E6B; [30-75]
       ))
-    (=ucs		. #x3798)	; 㞘
-    (=cns11643-6	. #x3E6B)	; &I-C6-3E6B; [30-75]
-    (=daikanwa		. 07732)	; &I-M-07732;
-    (=cbeta		. 05465)	; &I-CB05465;
     ))
 (define-char
   '((ideographic-radical . 44)	; ⼫
@@ -1843,12 +1874,25 @@
     (ideographic-strokes . 10)
     (total-strokes	 . 13)
     (=ucs		. #x21CBE)	; 𡲾
-    (->subsumptive
-     ((=daikanwa	  . 07786)	; &M-07786;
-      )
-     ((=cns11643-6	  . #x5228)	; &C6-5228; [50-08]
-      (=ucs@iso		  . #x21CBE)	; &C6-5228;
+    ))
+(define-char
+  '((ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 10)
+    (total-strokes	 . 13)
+    (<-denotational
+     ((=ucs		  . #x21CBE)	; 𡲾
+      ))
+    (=daikanwa		. 07786)	; &M-07786;
+    ))
+(define-char
+  '((ideographic-radical . 44)	; ⼫
+    (ideographic-strokes . 10)
+    (total-strokes	 . 13)
+    (<-denotational
+     ((=ucs		  . #x21CBE)	; 𡲾
       ))
+    (=cns11643-6	. #x5228)	; &C6-5228; [50-08]
+    (=ucs@iso		. #x21CBE)	; &C6-5228;
     ))
 (define-char
   '((ideographic-radical . 44)	; ⼫
-- 
1.7.10.4