From: tomo <tomo>
Date: Mon, 16 Apr 2007 07:49:37 +0000 (+0000)
Subject: (U+8201): Use `ideographic-radical@ucs' instead of
X-Git-Tag: r21-4-19-chise-0_23-4^20~137
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1b5c43eec3603cb96678baa95090ab4e0b2aaddd;p=chise%2Fxemacs-chise.git

(U+8201): Use `ideographic-radical@ucs' instead of
`ideographic-radical'; add `ideographic-radical@ucs/compat' and
`ideographic-radical@{ucs|ucs/compat}*sources'; add J97-674D.
(J0-674D): Unify U-0002F893 and C6-3074; use
`ideographic-{radical|strokes}@ucs' instead of
`ideographic-{radical|strokes}'; add
`ideographic-{radical|strokes}@ucs/compat' and
`ideographic-radical@ucs/compat*sources'.
(M-30205): Unify U-00026970 and H8-CC53.
(C6-4D5E): Map to U-0002F98C; add `<-same' for U+8204.
---

diff --git a/lisp/utf-2000/Ideograph-R134-Mortar.el b/lisp/utf-2000/Ideograph-R134-Mortar.el
index df3f39f..60a912f 100644
--- a/lisp/utf-2000/Ideograph-R134-Mortar.el
+++ b/lisp/utf-2000/Ideograph-R134-Mortar.el
@@ -281,8 +281,14 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 134)	; ⾅
+  '((ideographic-radical@ucs . 134)	; ⾅
+    (ideographic-radical@ucs*sources
+     daikanwa cns11643-2)
+    (ideographic-radical@ucs/compat . 55)	; ⼶
+    (ideographic-radical@ucs/compat*sources
+     cns11643-6)
     (=ucs		. #x8201)	; 舁
+    (=jis-x0208@1997	. #x674D)	; 舁 [71-45]
     ))
 (define-char
   '((<-denotational
@@ -307,8 +313,15 @@
   '((<-denotational
      ((=ucs		  . #x8201)	; 舁
       ))
-    (ideographic-radical . 134)	; ⾅
-    (ideographic-strokes . 3)
+    (=>ucs*		. #x8201)	; 舁
+    (ideographic-radical@ucs . 134)	; ⾅
+    (ideographic-strokes@ucs . 3)
+    (ideographic-radical@ucs*sources
+     jis-x0208/1997)
+    (ideographic-radical@ucs/compat . 55)	; ⼶
+    (ideographic-strokes@ucs/compat . 6)
+    (ideographic-radical@ucs/compat*sources
+     cns11643-6)
     (total-strokes	 . 9)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -316,14 +329,20 @@
       )
      ((=ucs		  . #x81FC)	; 臼
       )
-     ((=ucs		  . #x5EFE)	; 廾
+     ((=jis-x0208	  . #x5730)	; &GT-12077; [55-16]
+      (=gb2312		  . #x5E43)	; &I-G0-5E43; [62-35]
+      (=cns11643-1	  . #x445C)	; &I-C1-445C; [36-60]
+      (=daikanwa	  . 09583)	; &I-M-09583;
       ))
-    (=jis-x0208		. #x674D)	; &GT-39043; [71-45]
+    (=ucs		. #x2F893)	; 舁
+    (=jis-x0208		. #x674D)	; &I-J90-674D; [71-45]
     (=gb2312		. #x7428)	; &I-G0-7428; [84-08]
+    (=cns11643-6	. #x3074)	; &I-C6-3074; [16-84]
     (=big5		. #xD370)	; &I-B-D370;
     (=gt		. 39043)	; &I-GT-39043;
     (=gt-pj-1		. #x674D)	; &I-GT-39043; [71-45]
-    (=ucs@unicode	. #x8201)	; &GT-39043;
+    (=ucs@unicode	. #x8201)	; 舁
+    (=ucs@cns		. #x2F893)	; 舁
     ))
 (define-char
   '((ideographic-radical . 134)	; ⾅
@@ -590,7 +609,9 @@
   '((ideographic-radical . 134)	; ⾅
     (ideographic-strokes . 6)
     (total-strokes	 . 12)
-    (=daikanwa		. 30205)	; &M-30205;
+    (=ucs		. #x26970)	; 𦥰
+    (=daikanwa		. 30205)	; &I-M-30205;
+    (=hanziku-8		. #xCC53)	; &I-HZK08-CC53;
     ))
 (define-char
   '((ideographic-radical . 134)	; ⾅
@@ -613,12 +634,38 @@
     (=jef-china3	. #x90A8)	; &I-JC3-90A8;
     ))
 (define-char
-  '((=>ucs		. #x8204)	; 舄
-    (morohashi-daikanwa	30206 0 0)
+  '((=>ucs*		. #x8204)	; 舄
+    (=>daikanwa		. 30206)	; 舄
+    (ideographic-radical . 134)	; ⾅
+    (ideographic-strokes . 6)
+    (total-strokes	 . 12)
+    (=ucs		. #x2F98C)	; 舄
+    (<-unknown
+     ((=ucs		  . #x8204)	; 舄
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2F98C)	; 舄
+      ))
+    (ideographic-radical . 134)	; ⾅
+    (ideographic-strokes . 6)
+    (total-strokes	 . 12)
+    (=ucs@iso		. #x2F98C)	; &U-0002F98C;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2F98C)	; 舄
+      ))
     (ideographic-radical . 134)	; ⾅
     (ideographic-strokes . 6)
     (total-strokes	 . 12)
     (=cns11643-6	. #x4D5E)	; &C6-4D5E; [45-62]
+    (=ucs@cns		. #x2F98C)	; &C6-4D5E;
+    (<-same
+     ((=ucs		  . #x8204)	; 舄
+      ))
+    (<-same*note	"It seems the same glyph.  maybe bug?")
     ))
 (define-char
   '((ideographic-radical . 134)	; ⾅