X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R051-Dry.el;h=6b8dca6c988b8f69b162a75504a6298d48185a3f;hb=738a8c78b846062b2ce36cf2275c30861344e8f1;hp=dc1c2f2a50c8f42c1b72732b024537f7789af787;hpb=3210f9e68b9985eea603e34424c09fd7ebadeea3;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/Ideograph-R051-Dry.el b/lisp/utf-2000/Ideograph-R051-Dry.el
index dc1c2f2..6b8dca6 100644
--- a/lisp/utf-2000/Ideograph-R051-Dry.el
+++ b/lisp/utf-2000/Ideograph-R051-Dry.el
@@ -1,6 +1,9 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
-  '((ideographic-radical . 51)	; â¼²
+  '((<-denotational@component
+     ((=>ucs@component	  . #x5343)	; &A-compU+5343;
+      ))
+    (ideographic-radical . 51)	; â¼²
     (ideographic-strokes . 0)
     (total-strokes	 . 3)
     (=ucs		. #x5E72)	; å¹²
@@ -108,6 +111,14 @@
   '((ideographic-radical . 51)	; â¼²
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E37)	; 丷
+      )
+     ((=ucs		  . #x5E72)	; å¹²
+      ))
     (sound@ja/on/go	"niN")
     (sound@ja/on/kan	"ziN")
     (sources		ruimoku=A016219-00020)
@@ -120,6 +131,24 @@
      ((=ucs		  . #x5C70)	; å±°
       ))
     (<-simplified@component*note "different from M-09166 (C4-2178, U+22189).")
+    (->subsumptive
+     ((==ucs@iso	  . #x22189)	; &g2-CDP-8B75;
+      (==cns11643-4	  . #x2178)	; &g2-CDP-8B75; [01-88]
+      (==big5-cdp	  . #x8B75)	; &g2-CDP-8B75;
+      (==daikanwa	  . 09166)	; &g2-CDP-8B75;
+      (==ruimoku-v6	  . #xE00E)	; &g2-CDP-8B75;
+      (->subsumptive
+       ((===daikanwa	    . 09166)	; &R-M-09166;
+	)
+       ((===big5-cdp	    . #x8B75)	; &R-CDP-8B75;
+	)
+       ((===cns11643-4	    . #x2178)	; &R-C4-2178; [01-88]
+	)
+       ((===ucs@iso	    . #x22189)	; &R-U-00022189;
+	)
+       ((===ruimoku-v6	    . #xE00E)	; &R-RUI6-E00E;
+	))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -371,6 +400,19 @@
     ))
 (define-char
   '((<-denotational@component
+     ((=>ucs@component	  . #x20985)	; &A-compU+20985;
+      ))
+    (ideographic-radical . 51)	; â¼²
+    (ideographic-strokes . 3)
+    (total-strokes	 . 6)
+    (=>ucs@component	. #x5E75)	; &A-compU+5E75;
+    (*note		"IWDS1-0180 may subsume U+5E75-itaiji-003.")
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@component	  . #x5E75)	; &A-compU+5E75;
+      ))
+    (<-denotational@component
      ((=>ucs@component	  . #x5F00)	; &A-compU+5F00;
       (=>iwds-1		  .  0180)	; &A-compU+5F00;
       ))
@@ -439,15 +481,41 @@
     ))
 (define-char
   '((<-denotational
+     ((=>ucs@component	  . #x5E75)	; &A-compU+5E75;
+      ))
+    (ideographic-radical . 51)	; â¼²
+    (ideographic-strokes . 3)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5343)	; 千
+      )
+     ((=ucs		  . #x5E72)	; å¹²
+      ))
+    (=ucs-itaiji-003	. #x5E75)	; &U-i003+5E75;
+    (->mistakable
+     ((=ucs		  . #x20985)	; 𠦅
+      ))
+    (->subsumptive
+     ((==ucs-itaiji-003	  . #x5E75)	; &g2-U-i003+5E75;
+      ))
+    ))
+(define-char
+  '((<-denotational
      ((==>ucs@bucs	  . #x5002)	; &BUCS+5002;
       ))
     (ideographic-radical . 51)	; â¼²
+    (=>ucs@iwds-1	. #x5E77)	; &J97-5675;
     (=>jis-x0208@1997	. #x5675)	; &J97-5675; [54-85]
     (=>jis-x0213-1@2000 . #x5675)	; &J97-5675; [54-85]
+    (=>iwds-1		.  0181)	; &J97-5675;
     ))
 (define-char
   '((<-denotational
-     ((=>jis-x0208@1997	  . #x5675)	; &J97-5675; [54-85]
+     ((=>ucs@iwds-1	  . #x5E77)	; &J97-5675;
+      (=>jis-x0208@1997	  . #x5675)	; &J97-5675; [54-85]
       ))
     (ideographic-radical . 51)	; â¼²
     (ideographic-strokes . 3)
@@ -650,7 +718,8 @@
     ))
 (define-char
   '((<-denotational
-     ((=>jis-x0208@1997	  . #x5675)	; &J97-5675; [54-85]
+     ((=>ucs@iwds-1	  . #x5E77)	; &J97-5675;
+      (=>jis-x0208@1997	  . #x5675)	; &J97-5675; [54-85]
       ))
     (ideographic-radical . 51)	; â¼²
     (ideographic-strokes . 5)
@@ -1033,7 +1102,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 51)	; â¼²
+  '((<-denotational@component
+     ((=>ucs@component	  . #x20985)	; &A-compU+20985;
+      ))
+    (ideographic-radical . 51)	; â¼²
     (=>ucs@component	. #x5F00)	; &A-compU+5F00;
     (=>iwds-1		.  0180)	; &A-compU+5F00;
     ))