From bc098bdde5c73b3e21d101b2e74c2a78c5f4336b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 28 Aug 2009 12:51:57 +0000
Subject: [PATCH] (U+4EA4): Use `=>jis-x0208' and `=>jis-x0213-1' instead of
 `=jis-x0208@1997'. (J83-3872): Unify GT-00389 and
 GT-K01602. (abstract glyph of GT-00390): New object to
 subsume J90-3872 and G0-3D3B.

---
 lisp/utf-2000/Ideograph-R008-Lid.el |   76 +++++++++++++++++++++++------------
 1 file changed, 51 insertions(+), 25 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index 41c313b..4ccf807 100644
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -202,8 +202,9 @@
 			"ka-Ha+s5" "komogomo")
     (sound@ja/on	"kAu")
     (=ucs		. #x4EA4)	; 交
+    (=>jis-x0208	. #x3872)	; 交 [24-82]
+    (=>jis-x0213-1	. #x3872)	; 交 [24-82]
     (=big5		. #xA5E6)	; &I-B-A5E6;
-    (=jis-x0208@1997	. #x3872)	; 交 [24-82]
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -218,42 +219,67 @@
 	(=ks-x1001	    . #x5D2B)	; &I-K0-5D2B; [61-11]
 	(=daikanwa	    . 19721)	; &I-M-19721;
 	))
-      (=jis-x0208@1978	  . #x3872)	; &M-00291; [24-82]
+      (=jis-x0208@1978	  . #x3872)	; &GT-00389; [24-82]
       (=jis-x0208@1983	  . #x3872)	; &I-J83-3872; [24-82]
       (=ks-x1001	  . #x4E5F)	; &I-K0-4E5F; [46-63]
+      (=gt		  . 00389)	; &I-GT-00389;
+      (=gt-k		  . 01602)	; &I-GT-K01602;
+      (=gt-pj-2		  . #x324B)	; &I-GT-00389; [18-43]
       (=daikanwa	  . 00291)	; &I-M-00291;
-      (=shinjigen	  .  0097)	; &M-00291;
+      (=shinjigen	  .  0097)	; &GT-00389;
       (=jef-china3	  . #x41D6)	; &I-JC3-41D6;
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((=ucs@jis	    . #x4EA0)	; &GT-00376;
-	(=jis-x0208	    . #x5035)	; &GT-00376; [48-21]
-	(=jis-x0213-1	    . #x5035)	; &I-JX1-5035; [48-21]
-	)
-       ((=ucs		    . #x7236)	; 父
-	))
-      (=ucs@jis		  . #x4EA4)	; &GT-00390;
-      (=jis-x0208@1990	  . #x3872)	; &GT-00390; [24-82]
-      (=jis-x0213-1	  . #x3872)	; &I-JX1-3872; [24-82]
-      (=gt		  . 00390)	; &I-GT-00390;
-      (=gt-pj-1		  . #x3872)	; &I-GT-00390; [24-82]
-      (=shinjigen	  .  0096)	; &GT-00390;
-      )
-     ((hanyu-dazidian	  1 282 1)
-      (ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
        ((=ucs		    . #x4EA0)	; 亠
 	)
-       ((=ucs		    . #x7236)	; 父
+       ((=ucs@unicode	    . #x7236)	; &GT-25337;
+	(=gb2312	    . #x3838)	; &GT-25337; [24-24]
+	(=cns11643-1	    . #x4558)	; &I-C1-4558; [37-56]
+	(=jis-x0213-1	    . #x4963)	; &I-JX1-4963; [41-67]
+	))
+      (=>>gt		  . 00390)	; &aGT-00390;
+      (->subsumptive
+       ((ideographic-structure
+	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	  (=ucs		      . #x2FF1)	; ⿱
+	  )
+	 ((=ucs@jis	      . #x4EA0)	; &GT-00376;
+	  (=jis-x0208	      . #x5035)	; &GT-00376; [48-21]
+	  (=jis-x0213-1	      . #x5035)	; &I-JX1-5035; [48-21]
+	  )
+	 ((=ucs@unicode	      . #x7236)	; &GT-25337;
+	  (=gb2312	      . #x3838)	; &GT-25337; [24-24]
+	  (=cns11643-1	      . #x4558)	; &I-C1-4558; [37-56]
+	  (=jis-x0213-1	      . #x4963)	; &I-JX1-4963; [41-67]
+	  ))
+	(=ucs@jis	    . #x4EA4)	; &GT-00390;
+	(=jis-x0208@1990    . #x3872)	; &GT-00390; [24-82]
+	(=jis-x0213-1	    . #x3872)	; &I-JX1-3872; [24-82]
+	(=gt		    . 00390)	; &I-GT-00390;
+	(=gt-pj-1	    . #x3872)	; &I-GT-00390; [24-82]
+	(=shinjigen	    .  0096)	; &GT-00390;
+	)
+       ((hanyu-dazidian	    1 282 1)
+	(ideographic-structure
+	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	  (=ucs		      . #x2FF1)	; ⿱
+	  )
+	 ((=ucs@unicode	      . #x4EA0)	; &GT-00375;
+	  (=gb2312	      . #x596F)	; &GT-00375; [57-79]
+	  (=daikanwa	      . 00286)	; &I-M-00286;
+	  )
+	 ((=ucs@unicode	      . #x7236)	; &GT-25337;
+	  (=gb2312	      . #x3838)	; &GT-25337; [24-24]
+	  (=cns11643-1	      . #x4558)	; &I-C1-4558; [37-56]
+	  (=jis-x0213-1	      . #x4963)	; &I-JX1-4963; [41-67]
+	  ))
+	(=ucs@unicode	    . #x4EA4)	; &C1-4728;
+	(=gb2312	    . #x3D3B)	; &C1-4728; [29-27]
+	(=cns11643-1	    . #x4728)	; &I-C1-4728; [39-08]
 	))
-      (=ucs@unicode	  . #x4EA4)	; &C1-4728;
-      (=gb2312		  . #x3D3B)	; &C1-4728; [29-27]
-      (=cns11643-1	  . #x4728)	; &I-C1-4728; [39-08]
       ))
     ))
 (define-char
-- 
1.7.10.4