From 70630b5f67e020b7b65be6056d266ef5711dbc4a Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 10 Aug 2004 08:36:15 +0000
Subject: [PATCH] (U+88AE): Use `->subsumptive'. (U+88AF): Fix strokes; add
 `<-simplified@CN' for U+894F. (U+88B0): Use
 `->subsumptive'. (U+894F): Likewise.

---
 lisp/utf-2000/Ideograph-R145-Clothes.el |   57 +++++++++++++++++--------------
 1 file changed, 31 insertions(+), 26 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R145-Clothes.el b/lisp/utf-2000/Ideograph-R145-Clothes.el
index f429704..75726d2 100644
--- a/lisp/utf-2000/Ideograph-R145-Clothes.el
+++ b/lisp/utf-2000/Ideograph-R145-Clothes.el
@@ -2062,32 +2062,38 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 11)
     (=ucs		. #x88AE)	; 袮
+    (->subsumptive
+     ((=jis-x0208	  . #x6A59)	; &GT-46081; [74-57]
+      (=gt		  . 46081)	; &I-GT-46081;
+      (=gt-pj-1		  . #x6A59)	; &I-GT-46081; [74-57]
+      (=ucs@jis		  . #x88AE)	; &GT-46081;
+      )
+     ((=ucs@unicode	  . #x88AE)	; &UU+88AE;
+      ))
     ))
 (define-char
-  '((=>ucs		. #x88AE)	; 袮
-    (ideographic-radical . 145)	; ⾐
+  '((ideographic-radical . 145)	; ⾐
     (ideographic-strokes . 5)
     (total-strokes	 . 11)
-    (=jis-x0208		. #x6A59)	; &GT-46081; [74-57]
-    (=gt		. 46081)	; &I-GT-46081;
-    (=gt-pj-1		. #x6A59)	; &I-GT-46081; [74-57]
-    (=ucs@jis		. #x88AE)	; &GT-46081;
+    (<-simplified@CN
+     ((=ucs		  . #x894F)	; 襏
+      ))
+    (=ucs		. #x88AF)	; 袯
+    (=iso-ir165		. #x2C5D)	; &I-EGB-2C5D; [12-61]
     ))
 (define-char
   '((ideographic-radical . 145)	; ⾐
     (ideographic-strokes . 5)
     (total-strokes	 . 11)
     (=ucs		. #x88B0)	; 袰
-    ))
-(define-char
-  '((=>ucs		. #x88B0)	; 袰
-    (ideographic-radical . 145)	; ⾐
-    (ideographic-strokes . 5)
-    (total-strokes	 . 11)
-    (=jis-x0208		. #x6A5E)	; &GT-46172; [74-62]
-    (=gt		. 46172)	; &I-GT-46172;
-    (=gt-pj-1		. #x6A5E)	; &I-GT-46172; [74-62]
-    (=ucs@jis		. #x88B0)	; &GT-46172;
+    (->subsumptive
+     ((=jis-x0208	  . #x6A5E)	; &GT-46172; [74-62]
+      (=gt		  . 46172)	; &I-GT-46172;
+      (=gt-pj-1		  . #x6A5E)	; &I-GT-46172; [74-62]
+      (=ucs@jis		  . #x88B0)	; &GT-46172;
+      )
+     ((=ucs@unicode	  . #x88B0)	; &UU+88B0;
+      ))
     ))
 (define-char
   '((=>ucs		. #x88B1)	; 袱
@@ -2839,13 +2845,6 @@
   '((ideographic-radical . 145)	; ⾐
     (ideographic-strokes . 6)
     (total-strokes	 . 12)
-    (=ucs		. #x88AF)	; 袯
-    (=iso-ir165		. #x2C5D)	; &I-EGB-2C5D; [12-61]
-    ))
-(define-char
-  '((ideographic-radical . 145)	; ⾐
-    (ideographic-strokes . 6)
-    (total-strokes	 . 12)
     (=ucs		. #x88C6)	; 裆
     (=gb2312		. #x7149)	; &I-G0-7149; [81-41]
     ))
@@ -7661,10 +7660,16 @@
     (ideographic-strokes . 12)
     (total-strokes	 . 18)
     (=ucs		. #x894F)	; 襏
-    (=jis-x0212		. #x5C70)	; &I-JSP-5C70; [60-80]
-    (=cns11643-2	. #x633F)	; &I-C2-633F; [67-31]
     (=big5		. #xF0D4)	; &I-B-F0D4;
-    (=daikanwa		. 34599)	; &I-M-34599;
+    (->subsumptive
+     ((=jis-x0212	  . #x5C70)	; &M-34599; [60-80]
+      (=daikanwa	  . 34599)	; &I-M-34599;
+      (=ucs@jis		  . #x894F)	; &M-34599;
+      )
+     ((=ucs@unicode	  . #x894F)	; &UU+894F;
+      )
+     ((=cns11643-2	  . #x633F)	; &C2-633F; [67-31]
+      ))
     ))
 (define-char
   '((=>ucs		. #x4660)	; 䙠
-- 
1.7.10.4