X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02E00-CJK-Radical-Supplement.el;h=c233df1323810a010aff92dd0337dd2a2bb16a40;hb=4a1c11de683d3ee1a361350859f5c8c6d2ca84fb;hp=aa4d4a95767f0b85e21d4588c599e2d189f49664;hpb=5e89d47dee4f9b135495412c8e78ac31f98e5e39;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index aa4d4a9..c233df1 100644
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -684,33 +684,36 @@
       ))
     ))
 (define-char
-  '((<-denotational
-     ((=big5-cdp	  . #x8B48)	; &GT-36329;
-      ))
-    (name		. "CJK RADICAL EYE")
+  '((name		. "CJK RADICAL EYE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (=ucs		. #x2EAB)	; ⺫
-    (<-formed@component/connect-below
-     ((=ucs		  . #x76EE)	; 目
-      ))
-    (<-identical@component/connect-below
-     ((=big5-cdp	  . #x8B48)	; &GT-36329;
-      ))
-    ))
-(define-char
-  '((=>ucs		. #x2EAB)	; ⺫
     (ideographic-radical . 109)	; ⽬
     (ideographic-strokes . 0)
     (total-strokes	 . 5)
-    (=big5-cdp		. #x8B48)	; &GT-36329;
+    (=ucs		. #x2EAB)	; ⺫
+    (=big5-cdp		. #x8B48)	; &I-CDP-8B48;
     (=gt		. 36329)	; &I-GT-36329;
     (=gt-k		. 01549)	; &I-GT-K01549;
     (=gt-pj-5		. #x7264)	; &I-GT-36329; [82-68]
     (<-formed@component
      ((=ucs		  . #x76EE)	; 目
       ))
+    (->subsumptive
+     ((==big5-cdp	  . #x8B48)	; &g2-CDP-8B48;
+      )
+     ((==gt		  . 36329)	; &g2-GT-36329;
+      (==gt-k		  . 01549)	; &g2-GT-36329;
+      )
+     ((==ucs@unicode	  . #x2EAB)	; &g2-UU+2EAB;
+      (<-formed@component/connect-below
+       ((=ucs		    . #x76EE)	; 目
+	))
+      (<-identical@component/connect-below
+       ((name		    . "CJK RADICAL EYE")
+	(=ucs		    . #x2EAB)	; ⺫
+	))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -940,7 +943,10 @@
       ))
     ))
 (define-char
-  '((name		. "CJK RADICAL EWE")
+  '((<-denotational
+     ((=ucs		  . #x2634B)	; 𦍋
+      ))
+    (name		. "CJK RADICAL EWE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
@@ -964,6 +970,15 @@
     (->mistakable
      ((=ucs		  . #x8289)	; 芉
       ))
+    (->subsumptive
+     ((==ucs@unicode	  . #x2EB8)	; &g2-CB06151;
+      (==cbeta		  . 06151)	; &g2-CB06151;
+      (->subsumptive
+       ((===ucs@unicode	    . #x2EB8)	; &R-UU+2EB8;
+	)
+       ((===cbeta	    . 06151)	; &R-CB06151;
+	))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -1005,9 +1020,9 @@
       ))
     ))
 (define-char
-  '((<-denotational
-     ((=big5-cdp	  . #x8A73)	; &GT-37857;
-      (=daikanwa	  . 29237)	; &I-M-29237;
+  '((<-denotational@component
+     ((=>ucs@component	  . #x6708)	; &IWDS1-053;
+      (=>iwds-1		  .  0053)	; &IWDS1-053;
       ))
     (name		. "CJK RADICAL MEAT")
     (general-category	symbol other) ; Informative Category
@@ -1017,12 +1032,52 @@
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
     (=ucs		. #x2EBC)	; ⺼
-    (<-formed@component/connect-right
+    (=big5-cdp		. #x8A73)	; &I-CDP-8A73;
+    (=gt		. 37857)	; &I-GT-37857;
+    (=gt-pj-6		. #x3879)	; &I-GT-37857; [24-89]
+    (=daikanwa		. 29237)	; &I-M-29237;
+    (<-formed@component
      ((=ucs		  . #x8089)	; 肉
+      (=daikanwa	  . 29236)	; &I-M-29236;
       ))
-    (<-identical@component/connect-right
-     ((=big5-cdp	  . #x8A73)	; &GT-37857;
-      (=daikanwa	  . 29237)	; &I-M-29237;
+    (<-formed@component*sources
+     zihui/char-index zhengzitong daikanwa)
+    (->subsumptive
+     ((==gt		  . 37857)	; &g2-GT-37857;
+      (==daikanwa	  . 29237)	; &g2-GT-37857;
+      (->subsumptive
+       ((===daikanwa	    . 29237)	; &R-M-29237;
+	)
+       ((===gt		    . 37857)	; &R-GT-37857;
+	))
+      )
+     ((==ucs@unicode	  . #x2EBC)	; &g2-UU+2EBC;
+      (<-formed@component/connect-right
+       ((name		    . "CJK RADICAL MEAT")
+	(=ucs		    . #x2EBC)	; ⺼
+	))
+      )
+     ((==big5-cdp	  . #x8A73)	; &g2-CDP-8A73;
+      )
+     ((=big5-cdp	  . #x8958)	; &CDP-8958;
+      (=gt-k		  . 00417)	; &I-GT-K00417;
+      (=gt-pj-k1	  . #x377D)	; &CDP-8958; [23-93]
+      (<-formed@component/connect-above
+       ((name		    . "CJK RADICAL MEAT")
+	(=ucs		    . #x2EBC)	; ⺼
+	)
+       ((=ucs		    . #x8089)	; 肉
+	))
+      (->subsumptive
+       ((==big5-cdp	    . #x8958)	; &g2-CDP-8958;
+	(==gt-k		    . 00417)	; &g2-CDP-8958;
+	(==gt-pj-k1	    . #x377D)	; &g2-CDP-8958; [23-93]
+	(->subsumptive
+	 ((===big5-cdp	      . #x8958)	; &R-CDP-8958;
+	  )
+	 ((===gt-k	      . 00417)	; &R-GT-K00417;
+	  ))
+	))
       ))
     ))
 (define-char