From: tomo <tomo>
Date: Fri, 19 Nov 2004 08:34:38 +0000 (+0000)
Subject: (M-29007): Map to U-00026536.
X-Git-Tag: r21-4-15-u2km-0_21-32-a~2^2~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c9ae92fb7e82f73bdd0fc27e41b94ff444be3a73;p=chise%2Fxemacs-chise.git

(M-29007): Map to U-00026536.
(GT-K04926): Use `->subsumptive' to integrate BC-8C5B.
---

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]