X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git;a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R005-Second.el;h=b860bdd41090b6a3999d2e56f73c0f8fe43ea838;hp=fed27737ff1674bb74bce94fc07de8c8ca1031c0;hb=HEAD;hpb=e8c9d465b3cbadd0d0bffdd913b76475b2c21826

diff --git a/lisp/utf-2000/Ideograph-R005-Second.el b/lisp/utf-2000/Ideograph-R005-Second.el
index fed2773..49cb8443 100644
--- a/lisp/utf-2000/Ideograph-R005-Second.el
+++ b/lisp/utf-2000/Ideograph-R005-Second.el
@@ -317,7 +317,10 @@
     (=daikanwa/ho	.  0006)	; 𠃌
     ))
 (define-char
-  '((name		. "CJK STROKE HP")
+  '((<-denotational
+     ((=ucs		  . #x200CD)	; 𠃍
+      ))
+    (name		. "CJK STROKE HP")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
@@ -427,11 +430,30 @@
     (ideographic-strokes . 0)
     (total-strokes	 . 1)
     (=ucs		. #x200CD)	; 𠃍
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x200CD)	; 𠃍
+      ))
+    (ideographic-radical . 5)	; ⼄
+    (ideographic-strokes . 0)
+    (total-strokes	 . 1)
+    (=ucs@iso		. #x200CD)	; &CDP-89C8;
+    (=big5-cdp		. #x89C8)	; &CDP-89C8;
     (=gt-k		. 00020)	; &I-GT-K00020;
-    (=gt-pj-k1		. #x3025)	; 𠃍 [16-05]
+    (=gt-pj-k1		. #x3025)	; &CDP-89C8; [16-05]
     (->subsumptive
-     ((==ucs@iso	  . #x200CD)	; &g2-GT-K00020;
-      (==gt-k		  . 00020)	; &g2-GT-K00020;
+     ((==ucs@iso	  . #x200CD)	; &g2-CDP-89C8;
+      (==big5-cdp	  . #x89C8)	; &g2-CDP-89C8;
+      (==gt-k		  . 00020)	; &g2-CDP-89C8;
+      (==gt-pj-k1	  . #x3025)	; &g2-CDP-89C8; [16-05]
+      (->subsumptive
+       ((===big5-cdp	    . #x89C8)	; &R-CDP-89C8;
+	)
+       ((===gt-k	    . 00020)	; &R-GT-K00020;
+	)
+       ((===ucs@iso	    . #x200CD)	; &R-U-000200CD;
+	))
       ))
     ))
 (define-char
@@ -1187,6 +1209,21 @@
   '((<-denotational
      ((=ucs		  . #x2CF16)	; 𬼖
       ))
+    (<-denotational@component
+     ((=>big5-cdp	  . #x89E3)	; &A-GT-K00278;
+      ))
+    (ideographic-radical . 5)	; ⼄
+    (ideographic-strokes . 2)
+    (total-strokes	 . 3)
+    (=ucs-var-002	. #x2CF16)	; &U-v002+2CF16;
+    (->subsumptive
+     ((==ucs-var-002	  . #x2CF16)	; &g2-U-v002+2CF16;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2CF16)	; 𬼖
+      ))
     (ideographic-radical . 5)	; ⼄
     (ideographic-strokes . 2)
     (total-strokes	 . 3)
@@ -1245,21 +1282,6 @@
   '((<-denotational
      ((=ucs		  . #x2CF16)	; 𬼖
       ))
-    (<-denotational@component
-     ((=>big5-cdp	  . #x89E3)	; &A-GT-K00278;
-      ))
-    (ideographic-radical . 5)	; ⼄
-    (ideographic-strokes . 2)
-    (total-strokes	 . 3)
-    (=ucs-var-002	. #x2CF16)	; &U-v002+2CF16;
-    (->subsumptive
-     ((==ucs-var-002	  . #x2CF16)	; &g2-U-v002+2CF16;
-      ))
-    ))
-(define-char
-  '((<-denotational
-     ((=ucs		  . #x2CF16)	; 𬼖
-      ))
     (ideographic-radical . 5)	; ⼄
     (ideographic-strokes . 2)
     (total-strokes	 . 3)
@@ -3444,7 +3466,8 @@
     (ideographic-strokes . 6)
     (total-strokes	 . 7)
     (ideographic-structure
-     ((=ucs-itaiji-001	  . #x2FF6)	; &U-i001+2FF6;
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER RIGHT")
+      (=ucs		  . #x2FFD)	; ⿽
       )
      ((=gt-k		  . 00383)	; &GT-K00383;
       )
@@ -3462,7 +3485,8 @@
     (ideographic-strokes . 6)
     (total-strokes	 . 7)
     (ideographic-structure
-     ((=ucs-itaiji-001	  . #x2FF6)	; &U-i001+2FF6;
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER RIGHT")
+      (=ucs		  . #x2FFD)	; ⿽
       )
      ((=gt-k		  . 00383)	; &GT-K00383;
       )