From 03d4ed3dae52d8e785b76bff6a068c6665af01f2 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 13 Feb 2017 15:00:13 +0900
Subject: [PATCH] (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.

---
 lisp/utf-2000/ruimoku6.el |   66 ++++++++++++++++-----------------------------
 1 file changed, 23 insertions(+), 43 deletions(-)

diff --git a/lisp/utf-2000/ruimoku6.el b/lisp/utf-2000/ruimoku6.el
index 51b51d1..06eccdd 100644
--- 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)
-- 
1.7.10.4