From bc82adf3d9b9a83b6ff821a6ed16e7f52aac47fa Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 13 Sep 2022 21:06:48 +0900
Subject: [PATCH] (A-GT-K00146): Unify U-0003002A and o-BC-89A6.

---
 lisp/utf-2000/Ideograph-R004-Slash.el |   48 ++++++++++++++++++++-------------
 1 file changed, 29 insertions(+), 19 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index d088a17..f408d04 100644
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -882,30 +882,25 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 4)	; ⼃
-    (ideographic-strokes . 1)
-    (total-strokes	 . 2)
-    (=>big5-cdp		. #x86AA)	; &A-CDP-86AA;
-    ))
-(define-char
-  '((ideographic-radical . 4)	; ⼃
-    (ideographic-strokes . 1)
-    (total-strokes	 . 2)
-    (=>big5-cdp		. #x89A6)	; &A-CDP-89A6;
-    ))
-(define-char
   '((<-denotational@component
      ((=>big5-cdp	  . #x89A6)	; &A-CDP-89A6;
       ))
     (ideographic-radical . 4)	; ⼃
     (ideographic-strokes . 1)
     (total-strokes	 . 2)
-    (=>gt-k		. 00146)	; &A-CB13223;
-    (=>cbeta		. 13223)	; &A-CB13223;
+    (=ucs		. #x3002A)	; 𰀪
+    (=+>big5-cdp	. #x89A6)	; 𰀪
+    (=>gt-k		. 00146)	; 𰀪
+    (=>cbeta		. 13223)	; 𰀪
     (->subsumptive
-     ((=cbeta		  . 13223)	; &CB13223;
+     ((=ucs@JP/hanazono	  . #x3002A)	; &CB13223;
+      (=cbeta		  . 13223)	; &CB13223;
       (->subsumptive
-       ((==cbeta	    . 13223)	; &g2-CB13223;
+       ((==ucs@JP/hanazono  . #x3002A)	; &g2-CB13223;
+	(==cbeta	    . 13223)	; &g2-CB13223;
+	(->subsumptive
+	 ((===cbeta	      . 13223)	; &R-CB13223;
+	  ))
 	))
       )
      ((=gt-k		  . 00146)	; &GT-K00146;
@@ -922,6 +917,18 @@
       ))
     ))
 (define-char
+  '((ideographic-radical . 4)	; ⼃
+    (ideographic-strokes . 1)
+    (total-strokes	 . 2)
+    (=>big5-cdp		. #x89A6)	; &A-CDP-89A6;
+    ))
+(define-char
+  '((ideographic-radical . 4)	; ⼃
+    (ideographic-strokes . 1)
+    (total-strokes	 . 2)
+    (=>big5-cdp		. #x86AA)	; &A-CDP-86AA;
+    ))
+(define-char
   '((<-denotational@component
      ((=>ucs@component	  . #x4E5D)	; &A-compU+4E5D;
       ))
@@ -3966,7 +3973,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
-     ((=cbeta		  . 13223)	; &CB13223;
+     ((=ucs@JP/hanazono	  . #x3002A)	; &CB13223;
+      (=cbeta		  . 13223)	; &CB13223;
       )
      ((=ucs		  . #x30020)	; 𰀠
       ))
@@ -3983,7 +3991,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
-     ((=cbeta		  . 13223)	; &CB13223;
+     ((=ucs@JP/hanazono	  . #x3002A)	; &CB13223;
+      (=cbeta		  . 13223)	; &CB13223;
       )
      ((=big5-cdp	  . #x8C66)	; &CDP-8C66;
       ))
@@ -4003,7 +4012,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
-     ((=cbeta		  . 13223)	; &CB13223;
+     ((=ucs@JP/hanazono	  . #x3002A)	; &CB13223;
+      (=cbeta		  . 13223)	; &CB13223;
       )
      ((=ucs@iso		  . #x27607)	; &CDP-8B67;
       (=big5-cdp	  . #x8B67)	; &CDP-8B67;
-- 
1.7.10.4