From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 13 Jul 2017 17:27:00 +0000 (+0900)
Subject: (GT-K00876): New character; use `<-denotational@component' for
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a2a37b5fd433d7fdf2e3bc9d3c162c71da1f81a4;p=chise%2Fxemacs-chise.git.1

(GT-K00876): New character; use `<-denotational@component' for
A-compU+239B5.
(GT-K00877): Add `<-subsumptive' for GT-K00876; add
`<-formed@component/connect-below' for GT-K00876.
---

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index 85a8140..73584ea 100644
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -250,7 +250,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 25)	; ⼘
+  '((<-denotational@component
+     ((=>ucs@component	  . #x239B5)	; &A-compU+239B5;
+      ))
+    (ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
     (ideographic-structure
@@ -260,13 +263,32 @@
      ((name		  . "CJK RADICAL DIVINATION")
       (=ucs		  . #x2E8A)	; ⺊
       )
-     ((=ucs		  . #x5196)	; 冖
+     ((=ucs		  . #x5182)	; 冂
       ))
-    (=gt-k		. 00877)	; &GT-K00877;
-    (=gt-pj-k1		. #x3D77)	; &GT-K00877; [29-87]
+    (=gt-k		. 00876)	; &GT-K00876;
+    (=gt-pj-k1		. #x3856)	; &GT-K00876; [24-54]
     (->subsumptive
-     ((==gt-k		  . 00877)	; &g2-GT-K00877;
-      (==gt-pj-k1	  . #x3D77)	; &g2-GT-K00877; [29-87]
+     ((==gt-k		  . 00876)	; &g2-GT-K00876;
+      (==gt-pj-k1	  . #x3856)	; &g2-GT-K00876; [24-54]
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((name		    . "CJK RADICAL DIVINATION")
+	(=ucs		    . #x2E8A)	; ⺊
+	)
+       ((=ucs		    . #x5196)	; 冖
+	))
+      (=gt-k		  . 00877)	; &GT-K00877;
+      (=gt-pj-k1	  . #x3D77)	; &GT-K00877; [29-87]
+      (<-formed@component/connect-below
+       ((=gt-k		    . 00876)	; &GT-K00876;
+	))
+      (->subsumptive
+       ((==gt-k		    . 00877)	; &g2-GT-K00877;
+	(==gt-pj-k1	    . #x3D77)	; &g2-GT-K00877; [29-87]
+	))
       ))
     ))
 (define-char