From b5f683efb90fc1168cb0a9dc0147b71828060066 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 23 Jul 2010 20:43:15 +0000
Subject: [PATCH] (U+4E03): Unify abstract glyph of J0-3C37. (U+4E0E): Unify
 abstract J0-4D3F. (abstract glyph of GT-00023): Add
 `=>>ucs@unicode'. (J0-4D3F): Add `=>>ucs@jis'. (J0-312F):
 Ditto. (U+4E17): Unify abstract J0-5242; use
 `->denotational' instead of `->subsumptive'. (J0-5242): Add
 `=>>ucs@unicode'. (U+4E19): Add abstract
 ideographic-structure; unify abstract glyph of J0-4A3A.
 (J0-4A3A): Modify `ideographic-structure'. (S-0028): Add
 `ideographic-structure'.

---
 lisp/utf-2000/Ideograph-R001-One.el |  110 +++++++++++++++++++++++++----------
 1 file changed, 79 insertions(+), 31 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index a90b4e3..c08a9d2 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -131,13 +131,14 @@
     (sound@ja/kun	"nana" "nana-tu")
     (sound@ja/on/go	"siti")
     (=ucs		. #x4E03)	; 七
+    (=>>jis-x0208	. #x3C37)	; 七 [28-23]
+    (=big5		. #xA443)	; &I-B-A443;
     (->subsumptive
      ((=ucs@unicode	  . #x4E03)	; &GT-00004;
       (=jis-x0208	  . #x3C37)	; &GT-00004; [28-23]
       (=gb2312		  . #x465F)	; &I-G0-465F; [38-63]
       (=ks-x1001	  . #x7652)	; &I-K0-7652; [86-50]
       (=jis-x0213-1	  . #x3C37)	; &I-JX1-3C37; [28-23]
-      (=big5		  . #xA443)	; &I-B-A443;
       (=big5-cdp	  . #x88ED)	; &I-CDP-88ED;
       (=gt		  . 00004)	; &I-GT-00004;
       (=gt-k		  . 00046)	; &I-GT-K00046;
@@ -503,6 +504,8 @@
     (sound@ja/kun	"ata-H+eru" "kumi+suru" "azuka+r5")
     (sound@ja/on	"yo")
     (=ucs		. #x4E0E)	; 与
+    (=>jis-x0208	. #x4D3F)	; 与 [45-31]
+    (=>jis-x0213-1	. #x4D3F)	; 与 [45-31]
     (<-simplified@ucs
      ((=ucs		  . #x8207)	; 與
       ))
@@ -521,7 +524,7 @@
     (ideographic-strokes@gt . 2)
     (total-strokes@gt	    . 3)
     (hanyu-dazidian	1 5 3)
-    (=ucs@big5		. #x4E0E)	; &G-GT-00023;
+    (=>>ucs@unicode	. #x4E0E)	; &G-GT-00023;
     (=big5		. #xC94F)	; &G-GT-00023;
     (=>>gt		. 00023)	; &G-GT-00023;
     (->subsumptive
@@ -562,6 +565,7 @@
     (ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 2)
     (total-strokes	 . 3)
+    (=>>ucs@jis		. #x4E0E)	; &GT-00024;
     (=ucs@jis		. #x4E0E)	; &GT-00024;
     (=jis-x0208		. #x4D3F)	; &GT-00024; [45-31]
     (=jis-x0213-1	. #x4D3F)	; &I-JX1-4D3F; [45-31]
@@ -629,6 +633,7 @@
     (ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 3)
     (total-strokes	 . 4)
+    (=>>ucs@jis		. #x4E11)	; &GT-00033;
     (=ucs@jis		. #x4E11)	; &GT-00033;
     (=jis-x0208		. #x312F)	; &GT-00033; [17-15]
     (=ks-x1001		. #x7564)	; &I-K0-7564; [85-68]
@@ -652,7 +657,7 @@
     (=big5-cdp		. #x89D2)	; &I-CDP-89D2;
     (=gt		. 00035)	; &I-GT-00035;
     (=gt-pj-9		. #x4B23)	; &I-GT-00035; [43-03]
-    (=shinjigen@1ed	.  0017)	; &GT-00035;
+    (=shinjigen		.  0017)	; &GT-00035;
     (<-simplified@CN
      ((=ucs@unicode	  . #x919C)	; &UU+919C;
       (=gb12345		  . #x3373)	; &UU+919C; [19-83]
@@ -667,7 +672,7 @@
       (=shinjigen	  .  0016)	; &GT-00033;
       ))
     (<-vulgar*sources
-     shinjigen@1ed)
+     shinjigen)
     ))
 (define-char
   '((ideographic-radical . 1)	; ⼀
@@ -1074,33 +1079,56 @@
     (sound@ja/on/go	"se")
     (sound@ja/on/kan	"sei")
     (=ucs		. #x4E17)	; 丗
-    (->subsumptive
-     ((=gt		  . 00047)	; &GT-00047;
-      (=gt-k		  . 00962)	; &I-GT-K00962;
-      (=gt-pj-2		  . #x3034)	; &GT-00047; [16-20]
-      (=daikanwa	  . 00032)	; &I-M-00032;
-      )
-     ((hanyu-dazidian	  1 14 5)
-      (=ucs@unicode	  . #x4E17)	; &GT-00048;
-      (=jis-x0208	  . #x5242)	; &GT-00048; [50-34]
-      (=jis-x0213-1	  . #x5242)	; &I-JX1-5242; [50-34]
-      (=big5-cdp	  . #x89D8)	; &I-CDP-89D8;
-      (=gt		  . 00048)	; &I-GT-00048;
-      (=gt-k		  . 01035)	; &I-GT-K01035;
-      (=gt-pj-1		  . #x5242)	; &I-GT-00048; [50-34]
-      (=shinjigen	  .  0024)	; &GT-00048;
+    (=>jis-x0208	. #x5242)	; 丗 [50-34]
+    (=>jis-x0213-1	. #x5242)	; 丗 [50-34]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x4E17)	; 丗
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
+    (=gt		. 00047)	; &GT-00047;
+    (=gt-k		. 00962)	; &I-GT-K00962;
+    (=gt-pj-2		. #x3034)	; &GT-00047; [16-20]
+    (=daikanwa		. 00032)	; &I-M-00032;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x4E17)	; 丗
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=big5-cdp	    . #x89D7)	; &CDP-89D7;
-	)
-       ((=ucs		    . #x4E00)	; 一
-	))
-      (=ucs@cns		  . #x4E17)	; &C4-2155;
-      (=cns11643-4	  . #x2155)	; &C4-2155; [01-53]
+     ((=big5-cdp	  . #x89D7)	; &CDP-89D7;
+      )
+     ((=ucs		  . #x4E00)	; 一
+      ))
+    (=ucs@cns		. #x4E17)	; &C4-2155;
+    (=cns11643-4	. #x2155)	; &C4-2155; [01-53]
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x4E17)	; 丗
       ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
+    (hanyu-dazidian	1 14 5)
+    (=>>ucs@unicode	. #x4E17)	; &GT-00048;
+    (=ucs@unicode	. #x4E17)	; &GT-00048;
+    (=jis-x0208		. #x5242)	; &GT-00048; [50-34]
+    (=jis-x0213-1	. #x5242)	; &I-JX1-5242; [50-34]
+    (=big5-cdp		. #x89D8)	; &I-CDP-89D8;
+    (=gt		. 00048)	; &I-GT-00048;
+    (=gt-k		. 01035)	; &I-GT-K01035;
+    (=gt-pj-1		. #x5242)	; &I-GT-00048; [50-34]
+    (=shinjigen		.  0024)	; &GT-00048;
     ))
 (define-char
   '((ideographic-radical . 1)	; ⼀
@@ -1148,9 +1176,18 @@
     (ideographic-strokes . 4)
     (total-strokes	 . 5)
     (hanyu-dazidian	1 16 3)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E00)	; 一
+      )
+     ((=ucs		  . #x5185)	; 内
+      ))
     (sound@ja/kun	"hinoe")
     (sound@ja/on/kan	"hei")
     (=ucs		. #x4E19)	; 丙
+    (=>>jis-x0208	. #x4A3A)	; 丙 [42-26]
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -1158,7 +1195,10 @@
 	)
        ((=ucs		    . #x4E00)	; 一
 	)
-       ((=ucs		    . #x5185)	; 内
+       ((=ucs@unicode	    . #x5185)	; &GT-01983;
+	(=jis-x0208	    . #x4662)	; &GT-01983; [38-66]
+	(=gb2312	    . #x445A)	; &I-G0-445A; [36-58]
+	(=jis-x0213-1	    . #x4662)	; &I-JX1-4662; [38-66]
 	))
       (=ucs@unicode	  . #x4E19)	; &GT-00051;
       (=jis-x0208	  . #x4A3A)	; &GT-00051; [42-26]
@@ -1173,7 +1213,15 @@
       (=daikanwa	  . 00035)	; &I-M-00035;
       (=shinjigen	  .  0027)	; &GT-00051;
       )
-     ((=shinjigen	  .  0028)	; &JC3-41A2;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x4E00)	; 一
+	)
+       ((=ucs		    . #x2F814)	; 內
+	))
+      (=shinjigen	  .  0028)	; &JC3-41A2;
       (=jef-china3	  . #x41A2)	; &JC3-41A2;
       ))
     ))
-- 
1.7.10.4