From: tomo <tomo>
Date: Thu, 30 Oct 2008 15:01:42 +0000 (+0000)
Subject: (U+5187): Use `ideographic-{radical|strokes}@ucs' instead of
X-Git-Tag: r21-4-21-chise-0_24-7^20~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2158141d1ed3f0038e0b2f6e94c0bba5df330b77;p=chise%2Fxemacs-chise.git.1

(U+5187): Use `ideographic-{radical|strokes}@ucs' instead of
`ideographic-{radical|strokes}'; add
`ideographic-{radical|strokes}@cns'; use `->subsumptive'.
(GT-K00710): New character.
(BC-8C58): New character.
(U+518F): Use `->denotational' instead of `->subsumptive'.
(B-CA6A): Moved to U+518F.
(U-00020551): Use `->subsumptive'; add `sound@ja/on'.
---

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index 1291cc9..38d8354 100644
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -307,42 +307,53 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 13)	; ⼌
-    (ideographic-strokes . 2)
+  '((ideographic-radical@ucs . 13)	; ⼌
+    (ideographic-strokes@ucs . 2)
+    (ideographic-radical@cns . 1)	; ⼀
+    (ideographic-strokes@cns . 3)
     (total-strokes	 . 4)
     (hanyu-dazidian	1 96 17)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
-      )
-     ((=ucs		  . #x20087)	; 𠂇
-      )
-     ((=ucs		  . #x5182)	; 冂
-      ))
     (=ucs		. #x5187)	; 冇
-    (=iso-ir165		. #x7A29)	; &I-EGB-7A29; [90-09]
     (=big5		. #xC94E)	; &I-B-C94E;
+    (->subsumptive
+     ((ideographic-radical . 13)	; ⼌
+      (ideographic-strokes . 2)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x20087)	; 𠂇
+	)
+       ((name		    . "CJK RADICAL BOX")
+	(=ucs		    . #x2E86)	; ⺆
+	))
+      (=iso-ir165	  . #x7A29)	; &EGB-7A29; [90-09]
+      (=ucs@unicode	  . #x5187)	; &EGB-7A29;
+      )
+     ((ideographic-radical . 1)	; ⼀
+      (ideographic-strokes . 3)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+	(=ucs		    . #x2FF8)	; ⿸
+	)
+       ((=ucs		    . #x20087)	; 𠂇
+	)
+       ((=big5-cdp	    . #x8BF2)	; &CDP-8BF2;
+	))
+      (=cns11643-2	  . #x212E)	; &C2-212E; [01-14]
+      (=ucs@cns		  . #x5187)	; &C2-212E;
+      ))
     ))
 (define-char
-  '((=>ucs		. #x5187)	; 冇
-    (ideographic-	(:radical	1 ; ⼀
-			 :strokes	3
-			 :sources	(cns-11643))
-			(:radical	13 ; ⼌
-			 :strokes	2
-			 :sources	(ucs)))
+  '((ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 2)
     (total-strokes	 . 4)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
-      (=ucs		  . #x2FF8)	; ⿸
-      )
-     ((=ucs		  . #x20087)	; 𠂇
+    (->subsumptive
+     ((=gt-k		  . 00710)	; &GT-K00710;
+      (=gt-pj-k1	  . #x332F)	; &GT-K00710; [19-15]
       )
-     ((name		  . "CJK RADICAL BOX")
-      (=ucs		  . #x2E86)	; ⺆
+     ((=big5-cdp	  . #x8C58)	; &CDP-8C58;
       ))
-    (=cns11643-2	. #x212E)	; &C2-212E; [01-14]
-    (=ucs@cns		. #x5187)	; &C2-212E;
     ))
 (define-char
   '((ideographic-radical . 13)	; ⼌
@@ -797,37 +808,49 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
     (=ucs		. #x518F)	; 冏
+    (=big5		. #xCA6A)	; &I-B-CA6A;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x518F)	; 冏
+      ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 5)
+    (total-strokes	 . 7)
     (->subsumptive
-     ((=big5		  . #xCA6A)	; &B-CA6A;
-      (=ucs@big5	  . #x518F)	; &B-CA6A;
-      (->subsumptive
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
-	  (=ucs		      . #x2FF4)	; â¿´
-	  )
-	 ((=big5-cdp	      . #x8C58)	; &CDP-8C58;
-	  )
-	 ((=ucs		      . #x53E3)	; 口
-	  ))
-	(=jis-x0208	    . #x5148)	; &GT-02006; [49-40]
-	(=jis-x0213-1	    . #x5148)	; &I-JX1-5148; [49-40]
-	(=gt		    . 02006)	; &I-GT-02006;
-	(=gt-k		    . 02683)	; &I-GT-K02683;
-	(=gt-pj-1	    . #x5148)	; &I-GT-02006; [49-40]
-	(=daikanwa	    . 01528)	; &I-M-01528;
-	(=shinjigen	    .  0518)	; &GT-02006;
-	(=ucs@jis	    . #x518F)	; &GT-02006;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
+	(=ucs		    . #x2FF4)	; â¿´
 	)
-       ((=cns11643-2	    . #x232C)	; &C2-232C; [03-12]
-	(=ucs@cns	    . #x518F)	; &C2-232C;
+       ((=gt-k		    . 00710)	; &GT-K00710;
+	)
+       ((=ucs		    . #x53E3)	; 口
 	))
+      (=jis-x0208	  . #x5148)	; &GT-02006; [49-40]
+      (=jis-x0213-1	  . #x5148)	; &I-JX1-5148; [49-40]
+      (=gt		  . 02006)	; &I-GT-02006;
+      (=gt-k		  . 02683)	; &I-GT-K02683;
+      (=gt-pj-1		  . #x5148)	; &I-GT-02006; [49-40]
+      (=daikanwa	  . 01528)	; &I-M-01528;
+      (=shinjigen	  .  0518)	; &GT-02006;
+      (=ucs@jis		  . #x518F)	; &GT-02006;
       )
-     ((hanyu-dazidian	  1 100 12)
-      (=iso-ir165	  . #x7A2A)	; &EGB-7A2A; [90-10]
-      (=ucs@unicode	  . #x518F)	; &EGB-7A2A;
+     ((=cns11643-2	  . #x232C)	; &C2-232C; [03-12]
+      (=ucs@cns		  . #x518F)	; &C2-232C;
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x518F)	; 冏
+      ))
+    (ideographic-radical . 13)	; ⼌
+    (ideographic-strokes . 5)
+    (total-strokes	 . 7)
+    (hanyu-dazidian	1 100 12)
+    (=iso-ir165		. #x7A2A)	; &EGB-7A2A; [90-10]
+    (=ucs@unicode	. #x518F)	; &EGB-7A2A;
+    ))
+(define-char
   '((ideographic-radical . 13)	; ⼌
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
@@ -838,21 +861,25 @@
     (=hanziku-1		. #xB8A8)	; &I-HZK01-B8A8;
     ))
 (define-char
-  '((=>ucs		. #x20551)	; 𠕑
-    (ideographic-radical . 13)	; ⼌
-    (ideographic-strokes . 5)
-    (total-strokes	 . 7)
-    (=daikanwa		. 01530)	; &M-01530;
-    ))
-(define-char
-  '((morohashi-daikanwa	1530 0 0)
-    (ideographic-radical . 13)	; ⼌
+  '((ideographic-radical . 13)	; ⼌
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
-    (hanyu-dazidian	1 100 13)
+    (sound@ja/on	"tan")
     (=ucs		. #x20551)	; 𠕑
-    (=cns11643-6	. #x2621)	; &I-C6-2621; [06-01]
-    (=hanziku-1		. #xB8AA)	; &I-HZK01-B8AA;
+    (->subsumptive
+     ((=daikanwa	  . 01530)	; &M-01530;
+      (<-ancient
+       ((=ucs		    . #x4E39)	; 丹
+	(=daikanwa	    . 00099)	; &I-M-00099;
+	))
+      (<-ancient*sources
+       wuyinjiyun daikanwa)
+      )
+     ((hanyu-dazidian	  1 100 13)
+      (=cns11643-6	  . #x2621)	; &HZK01-B8AA; [06-01]
+      (=hanziku-1	  . #xB8AA)	; &I-HZK01-B8AA;
+      (=ucs@iso		  . #x20551)	; &HZK01-B8AA;
+      ))
     ))
 (define-char
   '((ideographic-radical . 13)	; ⼌