From: tomo <tomo>
Date: Fri, 31 Dec 2004 09:17:43 +0000 (+0000)
Subject: Use `->subsumptive' or `{<-|->}denotational' for some character
X-Git-Tag: r21-4-15-chise-0_21-32^2~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2925dd785f3e3b59a9c492d02b02e6f5f972ca23;p=chise%2Fxemacs-chise.git

Use `->subsumptive' or `{<-|->}denotational' for some character
definitions.
(M-07542): Add `<-same' for M-07538; add `sound@ja/on'; map to U+FA0C
instead of U+5140.
(U+FA0C): New character.
---

diff --git a/lisp/utf-2000/Ideograph-R043-Lame.el b/lisp/utf-2000/Ideograph-R043-Lame.el
index a81d7e0..872f8a9 100644
--- a/lisp/utf-2000/Ideograph-R043-Lame.el
+++ b/lisp/utf-2000/Ideograph-R043-Lame.el
@@ -84,69 +84,120 @@
     (=ucs		. #x21BC2)	; 𡯂
     ))
 (define-char
-  '((=>ucs		. #x5140)	; 兀
+  '((=>ucs		. #xFA0C)	; 兀
     (ideographic-radical . 43)	; ⼪
     (ideographic-strokes . 0)
     (total-strokes	 . 3)
+    (<-same
+     ((=cns11643-1	  . #x4452)	; &M-07538; [36-50]
+      (=daikanwa	  . 07538)	; &I-M-07538;
+      ))
+    (<-same*sources
+     goon-shuuin daikanwa)
+    (sound@ja/on	"wAu")
     (=daikanwa		. 07542)	; &M-07542;
     ))
 (define-char
+  '((=>ucs*		. #x5140)	; 兀
+    (=>daikanwa		. 07542)	; &M-07542;
+    (ideographic-radical@unknown . 43)	; ⼪
+    (ideographic-strokes@unknown . 0)
+    (ideographic-radical@unicode . 10)	; ⼉
+    (ideographic-strokes@unicode . 1)
+    (total-strokes	 . 3)
+    (<-denotational
+     ((=ucs		  . #x5140)	; 兀
+      ))
+    (<-unknown
+     ((=daikanwa	  . 07542)	; &M-07542;
+      ))
+    (=ucs		. #xFA0C)	; 兀
+    (=big5		. #xC94A)	; &I-B-C94A;
+    ))
+(define-char
   '((ideographic-radical . 43)	; ⼪
     (ideographic-strokes . 1)
     (total-strokes	 . 4)
-    (shinjigen-2	. 1910)
     (=ucs		. #x5C24)	; å°¤
-    (=jis-x0208		. #x4C60)	; &I-J90-4C60; [44-64]
-    (=gb2312		. #x5348)	; &I-G0-5348; [51-40]
-    (=ks-x1001		. #x6956)	; &I-K0-6956; [73-54]
-    (=cns11643-1	. #x4538)	; &I-C1-4538; [37-24]
-    (=big5		. #xA4D7)	; &I-B-A4D7;
-    (=gt		. 09502)	; &I-GT-09502;
-    (=gt-k		. 00502)	; &I-GT-K00502;
-    (=gt-pj-1		. #x4C60)	; &I-GT-09502; [44-64]
-    (=daikanwa		. 07543)	; &I-M-07543;
+    (->subsumptive
+     ((=daikanwa	  . 07543)	; &M-07543;
+      )
+     ((=gb2312		  . #x5348)	; &G0-5348; [51-40]
+      (=ucs@unicode	  . #x5C24)	; &G0-5348;
+      )
+     ((shinjigen-2	  . 1910)
+      (=jis-x0208	  . #x4C60)	; &J90-4C60; [44-64]
+      (=cns11643-1	  . #x4538)	; &I-C1-4538; [37-24]
+      (=big5		  . #xA4D7)	; &I-B-A4D7;
+      (=ucs@jis		  . #x5C24)	; &J90-4C60;
+      )
+     ((=ks-x1001	  . #x6956)	; &GT-09502; [73-54]
+      (=gt		  . 09502)	; &I-GT-09502;
+      (=gt-k		  . 00502)	; &I-GT-K00502;
+      (=gt-pj-1		  . #x4C60)	; &I-GT-09502; [44-64]
+      ))
     ))
 (define-char
   '((ideographic-radical . 43)	; ⼪
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
     (=ucs		. #x21BC4)	; 𡯄
-    (=cns11643-5	. #x2165)	; &I-C5-2165; [01-69]
-    (=daikanwa		. 07544)	; &I-M-07544;
+    (->subsumptive
+     ((=daikanwa	  . 07544)	; &M-07544;
+      )
+     ((=cns11643-5	  . #x2165)	; &C5-2165; [01-69]
+      (=ucs@iso		  . #x21BC4)	; &C5-2165;
+      ))
     ))
 (define-char
   '((ideographic-radical . 43)	; ⼪
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
     (=ucs		. #x21BCA)	; 𡯊
-    (=cns11643-6	. #x226A)	; &I-C6-226A; [02-74]
-    (=daikanwa		. 07545)	; &I-M-07545;
+    (->subsumptive
+     ((=cns11643-6	  . #x226A)	; &M-07545; [02-74]
+      (=daikanwa	  . 07545)	; &I-M-07545;
+      )
+     ((=ucs@iso		  . #x21BCA)	; &UU+21BCA;
+      ))
     ))
 (define-char
   '((ideographic-radical . 43)	; ⼪
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
     (=ucs		. #x21BC9)	; 𡯉
-    (=cns11643-6	. #x226B)	; &I-C6-226B; [02-75]
-    (=daikanwa		. 07546)	; &I-M-07546;
+    (->subsumptive
+     ((=daikanwa	  . 07546)	; &M-07546;
+      )
+     ((=cns11643-6	  . #x226B)	; &C6-226B; [02-75]
+      (=ucs@iso		  . #x21BC9)	; &C6-226B;
+      ))
     ))
 (define-char
   '((ideographic-radical . 43)	; ⼪
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
     (=ucs		. #x5C25)	; å°¥
-    (=gb2312		. #x5E4D)	; &I-G0-5E4D; [62-45]
-    (=cns11643-2	. #x2235)	; &I-C2-2235; [02-21]
     (=big5		. #xC9D5)	; &I-B-C9D5;
-    (=daikanwa		. 07549)	; &I-M-07549;
+    (->subsumptive
+     ((=daikanwa	  . 07549)	; &M-07549;
+      )
+     ((=gb2312		  . #x5E4D)	; &C2-2235; [62-45]
+      (=cns11643-2	  . #x2235)	; &I-C2-2235; [02-21]
+      (=ucs@unicode	  . #x5C25)	; &C2-2235;
+      ))
     ))
 (define-char
   '((ideographic-radical . 43)	; ⼪
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
     (=ucs		. #x377C)	; 㝼
-    (=cns11643-4	. #x225D)	; &I-C4-225D; [02-61]
-    (=daikanwa		. 07550)	; &I-M-07550;
+    (->subsumptive
+     ((=daikanwa	  . 07550)	; &M-07550;
+      )
+     ((=cns11643-4	  . #x225D)	; &C4-225D; [02-61]
+      (=ucs@unicode	  . #x377C)	; &C4-225D;
+      ))
     ))
 (define-char
   '((=>ucs		. #x5C26)	; å°¦