(RUI6-E014): Apply new conventions for glyph granularity.

(RUI6-E033): Add `<-denotational' for A-RUI6-E033.
(RUI6-E039): Use A-RUI6-E039 instead of G-RUI6-E039 as its mother.
(RUI6-E03D): Use A-RUI6-E03D instead of G-RUI6-E03D as its mother.
(RUI6-E03E): Use A-RUI6-E03E instead of G-RUI6-E03E as its mother.

diff --git a/lisp/utf-2000/ruimoku6.el b/lisp/utf-2000/ruimoku6.el
index 51b51d1..06eccdd 100644 (file)
--- a/lisp/utf-2000/ruimoku6.el
+++ b/lisp/utf-2000/ruimoku6.el
@@ -277,9 +277,9 @@
       ))
     ))
 (define-char
-  '((<-subsumptive
-     ((=>>ruimoku-v6     . #xE014)     ; &G-RUI6-E014;
-      ))
+  '((ideographic-radical . 181)        ; ⾴
+    (ideographic-strokes . 10)
+    (total-strokes      . 19)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs              . #x2FF0)     ; ⿰
@@ -290,6 +290,17 @@
       ))
     (sources           ruimoku=A021610-00006)
     (=ruimoku-v6       . #xE014)       ; &RUI6-E014;
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
+       )
+       ((==ruimoku-v6      . #xE013)   ; &g2-RUI6-E013;
+       )
+       ((==ucs@unicode     . #x9801)   ; &g2-UU+9801;
+       ))
+      (==ruimoku-v6      . #xE014)     ; &g2-RUI6-E014;
+      ))
     ))
 (define-char
   '((ideographic-radical . 61) ; ⼼
@@ -769,30 +780,17 @@
   '((=ruimoku-v6       . #xE032)       ; &RUI6-E032;
     ))
 (define-char
-  '((ideographic-radical . 189)        ; ⾼
+  '((<-denotational
+     ((=>ruimoku-v6      . #xE033)     ; &A-RUI6-E033;
+      ))
+    (ideographic-radical . 189)        ; ⾼
     (ideographic-strokes . 11)
     (total-strokes      . 19)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs              . #x2FF0)     ; ⿰
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-       (=ucs               . #x2FF3)   ; ⿳
-       )
-       ((=gt-k             . 02128)    ; &GT-K02128;
-       )
-       ((=ucs              . #x53E3)   ; 口
-       )
-       ((ideographic-structure
-        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-         (=ucs               . #x2FF1) ; ⿱
-         )
-        ((=big5-cdp          . #x89CC) ; &CDP-89CC;
-         )
-        ((=ucs               . #x4E05) ; 丅
-         ))
-       ))
+     ((=ucs@iso                  . #x2CD18)    ; &U-0002CD18;
       )
      ((=ucs              . #x53CD)     ; 反
       ))
@@ -803,25 +801,7 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
        (=ucs               . #x2FF0)   ; ⿰
        )
-       ((ideographic-structure
-        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-         (=ucs               . #x2FF3) ; ⿳
-         )
-        ((==gt-k             . 02128)  ; &g2-GT-K02128;
-         )
-        ((=ucs               . #x53E3) ; 口
-         )
-        ((ideographic-structure
-          ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-           (=ucs               . #x2FF3)       ; ⿳
-           )
-          ((=big5-cdp          . #x89CC)       ; &CDP-89CC;
-           )
-          ((=ucs               . #x4E00)       ; 一
-           )
-          ((=ucs               . #x4E36)       ; 丶
-           ))
-         ))
+       ((==ucs@iso         . #x2CD18)  ; &g2-IU-0002CD18;
        )
        ((==ucs@cns         . #x53CD)   ; &g2-AJ1-03411;
        (==ucs@jis          . #x53CD)   ; &g2-AJ1-03411;
@@ -960,7 +940,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=>>ruimoku-v6     . #xE039)     ; &G-RUI6-E039;
+     ((=>ruimoku-v6      . #xE039)     ; &A-RUI6-E039;
       ))
     (ideographic-radical . 162)        ; ⾡
     (ideographic-strokes . 3)
@@ -1034,7 +1014,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=>>ruimoku-v6     . #xE03D)     ; &G-RUI6-E03D;
+     ((=>ruimoku-v6      . #xE03D)     ; &A-RUI6-E03D;
       ))
     (ideographic-radical . 140)        ; ⾋
     (ideographic-strokes . 7)
@@ -1062,7 +1042,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=>>ruimoku-v6     . #xE03E)     ; &G-RUI6-E03E;
+     ((=>ruimoku-v6      . #xE03E)     ; &A-RUI6-E03E;
       ))
     (ideographic-radical . 140)        ; ⾋
     (ideographic-strokes . 9)