From c9ae92fb7e82f73bdd0fc27e41b94ff444be3a73 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 19 Nov 2004 08:34:38 +0000
Subject: [PATCH] (M-29007): Map to U-00026536. (GT-K04926): Use
 `->subsumptive' to integrate BC-8C5B.

---
 lisp/utf-2000/Ideograph-R128-Ear.el |   23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R128-Ear.el b/lisp/utf-2000/Ideograph-R128-Ear.el
index ee699b9..2d09460 100644
--- a/lisp/utf-2000/Ideograph-R128-Ear.el
+++ b/lisp/utf-2000/Ideograph-R128-Ear.el
@@ -152,26 +152,23 @@
   '((ideographic-radical . 128)	; ⽿
     (ideographic-strokes . 2)
     (total-strokes	 . 8)
-    (=daikanwa		. 29007)	; &M-29007;
-    ))
-(define-char
-  '((ideographic-radical . 128)	; ⽿
-    (ideographic-strokes . 2)
-    (total-strokes	 . 8)
-    (<-same
-     ((=big5-cdp	  . #x8C5B)	; &CDP-8C5B;
+    (=ucs		. #x26536)	; 𦔶
+    (->subsumptive
+     ((=daikanwa	  . 29007)	; &M-29007;
+      )
+     ((=ucs@iso		  . #x26536)	; &UU+26536;
       ))
-    (=gt-k		. 04926)	; &GT-K04926;
-    (=gt-pj-k1		. #x3432)	; &GT-K04926; [20-18]
     ))
 (define-char
   '((ideographic-radical . 128)	; ⽿
     (ideographic-strokes . 2)
     (total-strokes	 . 8)
-    (<-same
+    (->subsumptive
      ((=gt-k		  . 04926)	; &GT-K04926;
+      (=gt-pj-k1	  . #x3432)	; &GT-K04926; [20-18]
+      )
+     ((=big5-cdp	  . #x8C5B)	; &CDP-8C5B;
       ))
-    (=big5-cdp		. #x8C5B)	; &CDP-8C5B;
     ))
 (define-char
   '((ideographic-radical . 128)	; ⽿
@@ -180,7 +177,7 @@
     (=ucs		. #x8036)	; 耶
     (->subsumptive
      ((=jis-x0208@1990	  . #x4C6D)	; &GT-37579; [44-77]
-      (=cns11643-1	  . #x5326)	; &I-M-29008; [51-06]
+      (=cns11643-1	  . #x5326)	; &I-C1-5326; [51-06]
       (=gt		  . 37579)	; &I-GT-37579;
       (=gt-k		  . 05192)	; &I-GT-K05192;
       (=gt-pj-1		  . #x4C6D)	; &I-GT-37579; [44-77]
-- 
1.7.10.4