From 5d61069643911362c178c810a5dc73d85ae5db71 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 24 Feb 2018 21:25:43 +0900
Subject: [PATCH] (GT-00129): Unify U+303B, MJ000003, JX1-2236 and
 KOSEKI-001070. (U-0002A70A): Add `<-denotational' for
 A-compU+2A70A; unify A-IWDSU+2A70A and o-IU+2A70A; omit
 `=>ucs@iwds-1' and `=+>ucs@iso'. (GT-K00151): New
 character; use `<-subsumptive' for U-0002A70A.
 (A-compU+2A70A): New abstract node. (U+2A70A-var-004): Use
 A-compU+2A70A instead of U-0002A70A as its mother.

---
 lisp/utf-2000/Ideograph-R003-Dot.el |   53 +++++++++++++++++++++++++++--------
 1 file changed, 41 insertions(+), 12 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R003-Dot.el b/lisp/utf-2000/Ideograph-R003-Dot.el
index f3b83b2..fb9abbc 100644
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -48,12 +48,34 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 3)	; ⼂
+  '((name		. "VERTICAL IDEOGRAPHIC ITERATION MARK")
+    (ideographic-radical . 3)	; ⼂
     (ideographic-strokes . 1)
     (total-strokes	 . 2)
-    (=gt		. 00129)	; &GT-00129;
-    (=gt-pj-2		. #x3068)	; &GT-00129; [16-72]
+    (=ucs		. #x303B)	; 〻
+    (=mj		. 000003)	; &I-MJ000003;
+    (=jis-x0213-1	. #x2236)	; &I-JX1-2236; [02-22]
+    (=koseki		. 001070)	; 〻
+    (=gt		. 00129)	; &I-GT-00129;
+    (=gt-pj-2		. #x3068)	; &I-GT-00129; [16-72]
     (=daikanwa		. 00092)	; &I-M-00092;
+    (->subsumptive
+     ((==daikanwa	  . 00092)	; &g2-M-00092;
+      )
+     ((==ucs@unicode	  . #x303B)	; &g2-GT-00129;
+      (==jis-x0213-1	  . #x2236)	; &g2-GT-00129; [02-22]
+      (==koseki		  . 001070)	; &g2-GT-00129;
+      (==gt		  . 00129)	; &g2-GT-00129;
+      (->subsumptive
+       ((===jis-x0213-1	    . #x2236)	; &R-JX1-2236; [02-22]
+	)
+       ((===gt		    . 00129)	; &R-GT-00129;
+	)
+       ((===ucs@unicode	    . #x303B)	; &R-UU+303B;
+	))
+      )
+     ((==mj		  . 000003)	; &g2-MJ000003;
+      ))
     ))
 (define-char
   '((<-denotational@component
@@ -94,18 +116,13 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 3)	; ⼂
-    (=ucs		. #x2A70A)	; 𪜊
-    ))
-(define-char
   '((<-denotational
-     ((=ucs		  . #x2A70A)	; 𪜊
+     ((=>ucs@component	  . #x2A70A)	; &A-compU+2A70A;
       ))
     (ideographic-radical . 3)	; ⼂
     (ideographic-strokes . 1)
     (total-strokes	 . 2)
-    (=>ucs@iwds-1	. #x2A70A)	; &A-IWDSU+2A70A;
-    (=+>ucs@iso		. #x2A70A)	; &A-IWDSU+2A70A;
+    (=ucs		. #x2A70A)	; 𪜊
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -113,13 +130,21 @@
 	)
        ((=ucs		    . #x4E36)	; 丶
 	)
-       ((=big5-cdp	    . #x8BA2)	; &CDP-8BA2;
+       ((name		    . "CJK STROKE HP")
+	(=ucs		    . #x31C7)	; ㇇
 	))
       (=ucs@iso		  . #x2A70A)	; &U-0002A70A;
       (->subsumptive
        ((==ucs@iso	    . #x2A70A)	; &g2-IU-0002A70A;
 	))
       )
+     ((=gt-k		  . 00151)	; &GT-K00151;
+      (=gt-pj-k1	  . #x4229)	; &GT-K00151; [34-09]
+      (->subsumptive
+       ((==gt-k		    . 00151)	; &g2-GT-K00151;
+	(==gt-pj-k1	    . #x4229)	; &g2-GT-K00151; [34-09]
+	))
+      )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
@@ -140,6 +165,10 @@
     ))
 (define-char
   '((ideographic-radical . 3)	; ⼂
+    (=>ucs@component	. #x2A70A)	; &A-compU+2A70A;
+    ))
+(define-char
+  '((ideographic-radical . 3)	; ⼂
     (ideographic-strokes . 2)
     (total-strokes	 . 3)
     (hanyu-dazidian	1 42 12)
@@ -427,7 +456,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=ucs		  . #x2A70A)	; 𪜊
+     ((=>ucs@component	  . #x2A70A)	; &A-compU+2A70A;
       ))
     (ideographic-radical . 3)	; ⼂
     (ideographic-strokes . 2)
-- 
1.7.10.4