From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 5 Feb 2018 02:55:49 +0000 (+0900)
Subject: (GT-K00083): Use `<-denotational@component' for IWDS1-0047 instead of
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a6d34c6e078912d780aaae55a1b1638e8df9ba10;p=chise%2Fxemacs-chise.git

(GT-K00083): Use `<-denotational@component' for IWDS1-0047 instead of
`<-denotational' for U+4E8C.
---

diff --git a/lisp/utf-2000/Ideograph-R007-Two.el b/lisp/utf-2000/Ideograph-R007-Two.el
index ed502c5..93ef333 100644
--- a/lisp/utf-2000/Ideograph-R007-Two.el
+++ b/lisp/utf-2000/Ideograph-R007-Two.el
@@ -114,8 +114,9 @@
       ))
     ))
 (define-char
-  '((<-denotational
-     ((=ucs		  . #x4E8C)	; 二
+  '((<-denotational@component
+     ((=>ucs@iwds-1	  . #x4E8C)	; &A-IWDSU+4E8C;
+      (=>iwds-1		  .  0047)	; &A-IWDSU+4E8C;
       ))
     (ideographic-radical . 7)	; ⼆
     (ideographic-strokes . 0)
@@ -125,6 +126,10 @@
     (<-formed@component
      ((=ucs		  . #x4E8C)	; 二
       ))
+    (->subsumptive
+     ((==gt-k		  . 00083)	; &g2-GT-K00083;
+      (==gt-pj-k1	  . #x3B78)	; &g2-GT-K00083; [27-88]
+      ))
     ))
 (define-char
   '((<-denotational@component