From: tomo <tomo>
Date: Thu, 23 Apr 2009 10:47:26 +0000 (+0000)
Subject: (M-05311): Map to U-00021394.
X-Git-Tag: r21-4-21-chise-0_24-12^20~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=95509bfba13d2cd494b1421da3a88896a6e7bf23;p=chise%2Fxemacs-chise.git.1

(M-05311): Map to U-00021394.
(U-00021395): Use `->denotational' and `->subsumptive'; add
`sound@ja/on'.
(U+5840): Use `->denotational' and `->subsumptive'.
(U+FA39): Use `<-denotational' for U+5840.
---

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index de7a6b4..58c22fc 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -7160,16 +7160,21 @@
   '((ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x571F)	; 土
-      )
-     ((=ucs		  . #x5C4B)	; 屋
+    (sound@ja/on	"yaku")
+    (=ucs		. #x21394)	; 𡎔
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=gt-k		    . 00199)	; &GT-K00199;
+	)
+       ((=ucs		    . #x5C4B)	; 屋
+	))
+      (=daikanwa	  . 05311)	; &M-05311;
+      (=cbeta		  . 00098)	; &I-CB00098;
+      (=ucs@unicode	  . #x21394)	; &M-05311;
       ))
-    (=daikanwa		. 05311)	; &M-05311;
-    (=cbeta		. 00098)	; &I-CB00098;
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
@@ -7183,14 +7188,50 @@
   '((ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
+    (sound@ja/on	"gi")
     (=ucs		. #x21395)	; 𡎕
-    (=cns11643-6	. #x4749)	; &I-C6-4749; [39-41]
-    (=daikanwa		. 05315)	; &I-M-05315;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x21395)	; 𡎕
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
+    (=daikanwa		. 05315)	; &M-05315;
+    (<-same
+     ((=ucs		  . #x87FB)	; 蟻
+      (=daikanwa	  . 33672)	; &I-M-33672;
+      ))
+    (<-same*sources
+     wuyin-pianhai daikanwa)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x21395)	; 𡎕
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
+    (->subsumptive
+     ((=cns11643-6	  . #x4749)	; &C6-4749; [39-41]
+      )
+     ((=ucs@iso		  . #x21395)	; &U-00021395;
+      ))
     ))
 (define-char
   '((ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
+    (=ucs		. #x5840)	; 塀
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5840)	; 塀
+      ))
+    (ideographic-radical . 32)	; ⼟
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
@@ -7199,21 +7240,23 @@
       )
      ((=ucs		  . #x5C4F)	; 屏
       ))
-    (=ucs		. #x5840)	; 塀
-    (=jis-x0208		. #x4A3D)	; &I-J90-4A3D; [42-29]
+    (=jis-x0208		. #x4A3D)	; &GT-06679; [42-29]
     (=jis-x0213-1	. #x4A3D)	; &I-JX1-4A3D; [42-29]
     (=gt		. 06679)	; &I-GT-06679;
     (=gt-pj-1		. #x4A3D)	; &I-GT-06679; [42-29]
     (=daikanwa		. 05316)	; &I-M-05316;
-    (=shinjigen@rev	.  1454)	; 塀
+    (=shinjigen@rev	.  1454)	; &GT-06679;
     (=cbeta		. 06237)	; &I-CB06237;
+    (=ucs@unicode	. #x5840)	; &GT-06679;
     (<-simplified@JP/Jouyou
      ((=jis-x0213-1	  . #x2F5A)	; &JX1-2F5A; [15-58]
       ))
     ))
 (define-char
-  '((=>ucs*		. #x5840)	; 塀
-    (=>daikanwa		. 05316)	; 塀
+  '((<-denotational
+     ((=ucs		  . #x5840)	; 塀
+      ))
+    (=>ucs*		. #x5840)	; 塀
     (ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 11)
     (total-strokes	 . 13)
@@ -7237,7 +7280,7 @@
 	)
        ((=gt-k		    . 00199)	; &GT-K00199;
 	)
-       ((=ucs@unicode	    . #x5C5B)	; &C3-3543;
+       ((=cns11643-3	    . #x3543)	; &C3-3543; [21-35]
 	))
       (=jef-china3	  . #x48B9)	; &JC3-48B9;
       ))