From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 25 Feb 2018 01:20:29 +0000 (+0900)
Subject: (BC-8BB7): Unify U-0002000E instead of A-IWDSU+2000E and IU+2000E; use
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ffe63e39d7ea7a0ed8fddcceff8601b3b14e9047;p=chise%2Fxemacs-chise.git.1

(BC-8BB7): Unify U-0002000E instead of A-IWDSU+2000E and IU+2000E; use
A-compU+2000E instead of U-0002000E as its mother.
(A-compU+2000E): Changed from U-0002000E.
(BC-86B1): Use A-compU+2000E instead of U-0002000E as its mother.
(BC-89F0): New character; use `<-denotational' for A-compU+2000E.
---

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index 511f0f1..e2e7bcb 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -3257,33 +3257,14 @@
     (=big5-cdp		. #x8878)	; &I-CDP-8878;
     ))
 (define-char
-  '((ideographic-radical . 1)	; ⼀
-    (ideographic-strokes . 4)
-    (total-strokes	 . 5)
-    (=ucs		. #x2000E)	; 𠀎
-    ))
-(define-char
-  '((<-denotational
-     ((=ucs		  . #x2000E)	; 𠀎
-      ))
-    (ideographic-radical . 1)	; ⼀
-    (ideographic-strokes . 4)
-    (total-strokes	 . 5)
-    (=big5-cdp		. #x86B1)	; &CDP-86B1;
-    (->subsumptive
-     ((==big5-cdp	  . #x86B1)	; &g2-CDP-86B1;
-      ))
-    ))
-(define-char
   '((<-denotational
-     ((=ucs		  . #x2000E)	; 𠀎
+     ((=>ucs@component	  . #x2000E)	; &A-compU+2000E;
       ))
     (ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 4)
     (total-strokes	 . 5)
-    (=>ucs@iwds-1	. #x2000E)	; &CDP-8BB7;
-    (=ucs@iso		. #x2000E)	; &CDP-8BB7;
-    (=big5-cdp		. #x8BB7)	; &CDP-8BB7;
+    (=ucs		. #x2000E)	; 𠀎
+    (=big5-cdp		. #x8BB7)	; &I-CDP-8BB7;
     (->subsumptive
      ((==ucs@iso	  . #x2000E)	; &g2-CDP-8BB7;
       (==big5-cdp	  . #x8BB7)	; &g2-CDP-8BB7;
@@ -3413,6 +3394,12 @@
   '((ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 4)
     (total-strokes	 . 5)
+    (=>ucs@component	. #x2000E)	; &A-compU+2000E;
+    ))
+(define-char
+  '((ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
     (=ucs-itaiji-001	. #x4E1A)	; &U-i001+4E1A;
     (<-unknown
      ((=ucs		  . #x4E1A)	; 业
@@ -3426,6 +3413,38 @@
     (=gt-pj-9		. #x3758)	; &GT-00053; [23-56]
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@component	  . #x2000E)	; &A-compU+2000E;
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
+    (=big5-cdp		. #x86B1)	; &CDP-86B1;
+    (->subsumptive
+     ((==big5-cdp	  . #x86B1)	; &g2-CDP-86B1;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@component	  . #x2000E)	; &A-compU+2000E;
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E00)	; 一
+      )
+     ((=ucs		  . #x9FB7)	; é¾·
+      ))
+    (=big5-cdp		. #x89F0)	; &CDP-89F0;
+    (->subsumptive
+     ((==big5-cdp	  . #x89F0)	; &g2-CDP-89F0;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 5)
     (total-strokes	 . 6)