From: tomo <tomo>
Date: Tue, 17 May 2005 07:42:42 +0000 (+0000)
Subject: (U+65B9): Use `->subsumptive'.
X-Git-Tag: r21-4-15-chise-0_22^2~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f9a9b23f18cb2d99025cce78f581d569b9fb0775;p=chise%2Fxemacs-chise.git

(U+65B9): Use `->subsumptive'.
(U+3AC3): Likewise.
---

diff --git a/lisp/utf-2000/Ideograph-R070-Square.el b/lisp/utf-2000/Ideograph-R070-Square.el
index 276b901..7abb3eb 100644
--- a/lisp/utf-2000/Ideograph-R070-Square.el
+++ b/lisp/utf-2000/Ideograph-R070-Square.el
@@ -1,35 +1,37 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
-  '((=>ucs		. #x65B9)	; 方
-    (ideographic-radical . 70)	; ⽅
-    (ideographic-strokes . 0)
-    (total-strokes	 . 4)
-    (shinjigen-2	. 3236)
-    (=jis-x0208		. #x4A7D)	; &GT-17214; [42-93]
-    (=ks-x1001		. #x5B30)	; &I-K0-5B30; [59-16]
-    (=big5		. #xA4E8)	; &I-B-A4E8;
-    (=gt		. 17214)	; &I-GT-17214;
-    (=gt-k		. 00490)	; &I-GT-K00490;
-    (=gt-pj-1		. #x4A7D)	; &I-GT-17214; [42-93]
-    (=daikanwa		. 13620)	; &I-M-13620;
-    (=ucs@jis		. #x65B9)	; &GT-17214;
-    (=ucs@big5		. #x65B9)	; &GT-17214;
-    ))
-(define-char
-  '((morohashi-daikanwa	13620 0 0)
-    (ideographic-radical . 70)	; ⽅
+  '((ideographic-radical . 70)	; ⽅
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
     (=ucs		. #x65B9)	; 方
-    (=gb2312		. #x373D)	; &I-G0-373D; [23-29]
-    (=cns11643-1	. #x4549)	; &I-C1-4549; [37-41]
+    (=big5		. #xA4E8)	; &I-B-A4E8;
+    (->subsumptive
+     ((shinjigen-1	  . 3236)
+      (shinjigen-2	  . 3236)
+      (=jis-x0208	  . #x4A7D)	; &GT-17214; [42-93]
+      (=ks-x1001	  . #x5B30)	; &I-K0-5B30; [59-16]
+      (=gt		  . 17214)	; &I-GT-17214;
+      (=gt-k		  . 00490)	; &I-GT-K00490;
+      (=gt-pj-1		  . #x4A7D)	; &I-GT-17214; [42-93]
+      (=daikanwa	  . 13620)	; &I-M-13620;
+      (=ucs@jis		  . #x65B9)	; &GT-17214;
+      )
+     ((=gb2312		  . #x373D)	; &C1-4549; [23-29]
+      (=cns11643-1	  . #x4549)	; &I-C1-4549; [37-41]
+      (=ucs@unicode	  . #x65B9)	; &C1-4549;
+      ))
     ))
 (define-char
   '((ideographic-radical . 70)	; ⽅
     (ideographic-strokes . 2)
     (total-strokes	 . 6)
     (=ucs		. #x3AC3)	; 㫃
-    (=cns11643-3	. #x2371)	; &I-C3-2371; [03-81]
+    (->subsumptive
+     ((=daikanwa	  . 13621)	; &M-13621;
+      )
+     ((=cns11643-3	  . #x2371)	; &C3-2371; [03-81]
+      (=ucs@unicode	  . #x3AC3)	; &C3-2371;
+      ))
     ))
 (define-char
   '((ideographic-radical . 70)	; ⽅
@@ -989,7 +991,7 @@
     (<-denotational
      ((=ucs		  . #x2311A)	; 𣄚
       ))
-    (=ucs@iso		. #x2311A)	; &UU+2311A;
+    (=ucs@iso		. #x2311A)	; &U-0002311A;
     ))
 (define-char
   '((ideographic-radical . 70)	; ⽅