(RUI6-E04F): Add `<-subsumptive' for G-RUI6-E04F.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / ruimoku6.el

diff --git a/lisp/utf-2000/ruimoku6.el b/lisp/utf-2000/ruimoku6.el
index ee40ba1..9a29edc 100644 (file)
--- a/lisp/utf-2000/ruimoku6.el
+++ b/lisp/utf-2000/ruimoku6.el
@@ -1027,11 +1027,15 @@
   '((=ruimoku-v6       . #xE04E)       ; &RUI6-E04E;
     ))
 (define-char
-  '((ideographic-structure
+  '((<-subsumptive
+     ((=>>ruimoku-v6     . #xE04F)     ; &G-RUI6-E04F;
+      ))
+    (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
       )
      ((=ucs@jis                  . #x5B87)     ; &GT-08881;
+      (=ucs@ks           . #x5B87)     ; &GT-08881;
       (=jis-x0208        . #x3127)     ; &GT-08881; [17-07]
       (=ks-x1001         . #x6954)     ; &I-K0-6954; [73-52]
       (=jis-x0213-1      . #x3127)     ; &I-JX1-3127; [17-07]