From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 5 Apr 2017 02:44:37 +0000 (+0900)
Subject: (A-GT-K01340): New abstract node.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a61971e01e7e393b48efbb673a6ee815b10ed03d;p=chise%2Fxemacs-chise.git-

(A-GT-K01340): New abstract node.
(GT-00190): Add `ideographic-structure'.
(GT-00194): Add `<-unknown' for U+4E55.
(GT-K01340): New character; use `<-denotational' for A-GT-K01340; use
`<-unknown' for U-000200A2.
---

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index b339d85..32f1d23 100644
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -2397,6 +2397,28 @@
   '((ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 5)
     (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E3F)	; 丿
+      )
+     ((=ucs		  . #x27607)	; 𧘇
+      ))
+    (=>gt-k		. 01340)	; &A-GT-K01340;
+    ))
+(define-char
+  '((ideographic-radical . 4)	; ⼃
+    (ideographic-strokes . 5)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
+      (=ucs		  . #x2FF5)	; ⿵
+      )
+     ((=ucs		  . #x4E43)	; 乃
+      )
+     ((=ucs		  . #x6728)	; 木
+      ))
     (=gt		. 00190)	; &GT-00190;
     (=gt-pj-9		. #x404A)	; &GT-00190; [32-42]
     ))
@@ -2406,6 +2428,34 @@
     (total-strokes	 . 6)
     (=gt		. 00194)	; &GT-00194;
     (=gt-pj-9		. #x3A7E)	; &GT-00194; [26-94]
+    (<-unknown
+     ((=ucs		  . #x4E55)	; 乕
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>gt-k		  . 01340)	; &A-GT-K01340;
+      ))
+    (ideographic-radical . 4)	; ⼃
+    (ideographic-strokes . 5)
+    (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E3F)	; 丿
+      )
+     ((=big5-cdp	  . #x8C66)	; &CDP-8C66;
+      ))
+    (=gt-k		. 01340)	; &GT-K01340;
+    (=gt-pj-k1		. #x716E)	; &GT-K01340; [81-78]
+    (<-unknown
+     ((=ucs		  . #x200A2)	; 𠂢
+      ))
+    (->subsumptive
+     ((==gt-k		  . 01340)	; &g2-GT-K01340;
+      (==gt-pj-k1	  . #x716E)	; &g2-GT-K01340; [81-78]
+      ))
     ))
 (define-char
   '((ideographic-radical . 4)	; ⼃