From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 23 May 2021 00:29:32 +0000 (+0900)
Subject: (U+2FF0): Add `<-denotational' for IWDS1-0307; add
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4334d80e716cefc21d65b819e719f71d4077c141;p=chise%2Fxemacs-chise.git

(U+2FF0): Add `<-denotational' for IWDS1-0307; add
`<-denotational@component' for A-compU+2FF0.
(U+2FF1): Add `<-denotational' for IWDS1-0305; add
`<-denotational@component' for A-compU+2FF5.
(U+2FF5): Add `<-denotational@component' for A-compU+2FF5.
(U+2FF8): Add `<-denotational' for IWDS1-0305.
(U+2FF9-itaiji-001): New character; use `<-denotational' for U+2FF9.
(U+2FFA): Add `<-denotational' for IWDS1-0307.
---

diff --git a/lisp/utf-2000/u02FF0-Ideographic-Description-Characters.el b/lisp/utf-2000/u02FF0-Ideographic-Description-Characters.el
index c6d02a9..3c7638f 100644
--- a/lisp/utf-2000/u02FF0-Ideographic-Description-Characters.el
+++ b/lisp/utf-2000/u02FF0-Ideographic-Description-Characters.el
@@ -1,13 +1,29 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
-  '((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x2FFA)	; &A-IWDSU+2FFA;
+      (=>iwds-1		  .  0307)	; &A-IWDSU+2FFA;
+      ))
+    (<-denotational@component
+     ((=>ucs@component	  . #x2FF0)	; &U-v001+2FF0;
+      (=ucs-var-001	  . #x2FF0)	; &U-v001+2FF0;
+      ))
+    (name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (=ucs		. #x2FF0)	; â¿°
     ))
 (define-char
-  '((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x2FF8)	; &U-v002+2FF1;
+      (=>iwds-1		  .  0305)	; &U-v002+2FF1;
+      ))
+    (<-denotational@component
+     ((=>ucs@component	  . #x2FF5)	; &U-v001+2FF1;
+      (=ucs-var-001	  . #x2FF1)	; &U-v001+2FF1;
+      ))
+    (name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
@@ -35,7 +51,11 @@
     (=ucs		. #x2FF4)	; â¿´
     ))
 (define-char
-  '((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
+  '((<-denotational@component
+     ((=>ucs@component	  . #x2FF5)	; &U-v001+2FF1;
+      (=ucs-var-001	  . #x2FF1)	; &U-v001+2FF1;
+      ))
+    (name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
@@ -56,7 +76,11 @@
     (=ucs		. #x2FF7)	; â¿·
     ))
 (define-char
-  '((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x2FF8)	; &U-v002+2FF1;
+      (=>iwds-1		  .  0305)	; &U-v002+2FF1;
+      ))
+    (name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
@@ -70,7 +94,18 @@
     (=ucs		. #x2FF9)	; ⿹
     ))
 (define-char
-  '((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
+  '((<-denotational
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
+      (=ucs		  . #x2FF9)	; ⿹
+      ))
+    (=ucs-itaiji-001	. #x2FF9)	; &U-i001+2FF9;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x2FFA)	; &A-IWDSU+2FFA;
+      (=>iwds-1		  .  0307)	; &A-IWDSU+2FFA;
+      ))
+    (name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)