From: tomo <tomo>
Date: Thu, 26 Jul 2001 16:54:55 +0000 (+0000)
Subject: (U+****): Add `->fullwidth'.
X-Git-Tag: r21-2-38-utf-2000-0_17-1~221
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=448fe3821dd4496a934be581ec949deb7400b166;p=chise%2Fxemacs-chise.git

(U+****): Add `->fullwidth'.
(fullwidth *): Use `=>ucs' instead of `->ucs'; add `<-fullwidth'.
---

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index c7bd5f8..7a0b69f 100644
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -18,11 +18,15 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	super #x0034)
+    (->fullwidth
+     ((name		  . "fullwidth superscript four")
+      (korean-ksc5601	  . #x2979)	; ø»ˆ§”
+      ))
     (ucs		. #x2074)	; ⁴
     ))
 (define-char
   '((name		. "fullwidth superscript four")
-    (->ucs		. #x2074)	; ⁴
+    (=>ucs		. #x2074)	; ⁴
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -30,6 +34,10 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	wide #x2074)
+    (<-fullwidth
+     ((name		  . "SUPERSCRIPT FOUR")
+      (ucs		  . #x2074)	; ⁴
+      ))
     (korean-ksc5601	. #x2979)	; ø»ˆ§”
     ))
 (define-char
@@ -133,14 +141,22 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	super #x006E)
+    (->fullwidth
+     ((name		  . "fullwidth superscript latin small letter n")
+      (korean-ksc5601	  . #x297A)	; ø»ˆ§•
+      ))
     (ucs		. #x207F)	; ⁿ
     ))
 (define-char
   '((name		. "fullwidth superscript latin small letter n")
-    (->ucs		. #x207F)	; ⁿ
+    (=>ucs		. #x207F)	; ⁿ
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	wide #x207F)
+    (<-fullwidth
+     ((name		  . "SUPERSCRIPT LATIN SMALL LETTER N")
+      (ucs		  . #x207F)	; ⁿ
+      ))
     (korean-ksc5601	. #x297A)	; ø»ˆ§•
     ))
diff --git a/lisp/utf-2000/u02080-Subscripts.el b/lisp/utf-2000/u02080-Subscripts.el
index 5a5fde3..5fa7d4e 100644
--- a/lisp/utf-2000/u02080-Subscripts.el
+++ b/lisp/utf-2000/u02080-Subscripts.el
@@ -1,6 +1,5 @@
 (define-char
   '((name		. "SUBSCRIPT ZERO")
-    (ucs		. #x2080)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -8,10 +7,10 @@
     (digit-value	 . 0)
     (numeric-value	 . 0)
     (->decomposition	sub #x0030)
+    (ucs		. #x2080)	; ₀
     ))
 (define-char
   '((name		. "SUBSCRIPT ONE")
-    (ucs		. #x2081)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -19,10 +18,15 @@
     (digit-value	 . 1)
     (numeric-value	 . 1)
     (->decomposition	sub #x0031)
+    (->fullwidth
+     ((name		  . "FULLWIDTH SUBSCRIPT ONE")
+      (korean-ksc5601	  . #x297B)	; ø»ˆ§–
+      ))
+    (ucs		. #x2081)	; ₁
     ))
 (define-char
   '((name		. "FULLWIDTH SUBSCRIPT ONE")
-    (->ucs		. #x2081)
+    (=>ucs		. #x2081)	; ₁
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -30,11 +34,14 @@
     (digit-value	 . 1)
     (numeric-value	 . 1)
     (->decomposition	wide #x2081)
-    (korean-ksc5601	#x29 #x7B)	; ø»ˆ§–
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT ONE")
+      (ucs		  . #x2081)	; ₁
+      ))
+    (korean-ksc5601	. #x297B)	; ø»ˆ§–
     ))
 (define-char
   '((name		. "SUBSCRIPT TWO")
-    (ucs		. #x2082)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -42,10 +49,15 @@
     (digit-value	 . 2)
     (numeric-value	 . 2)
     (->decomposition	sub #x0032)
+    (->fullwidth
+     ((name		  . "FULLWIDTH SUBSCRIPT TWO")
+      (korean-ksc5601	  . #x297C)	; ø»ˆ§—
+      ))
+    (ucs		. #x2082)	; ₂
     ))
 (define-char
   '((name		. "FULLWIDTH SUBSCRIPT TWO")
-    (->ucs		. #x2082)
+    (=>ucs		. #x2082)	; ₂
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -53,11 +65,14 @@
     (digit-value	 . 2)
     (numeric-value	 . 2)
     (->decomposition	wide #x2082)
-    (korean-ksc5601	#x29 #x7C)	; ø»ˆ§—
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT TWO")
+      (ucs		  . #x2082)	; ₂
+      ))
+    (korean-ksc5601	. #x297C)	; ø»ˆ§—
     ))
 (define-char
   '((name		. "SUBSCRIPT THREE")
-    (ucs		. #x2083)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -65,10 +80,15 @@
     (digit-value	 . 3)
     (numeric-value	 . 3)
     (->decomposition	sub #x0033)
+    (->fullwidth
+     ((name		  . "FULLWIDTH SUBSCRIPT THREE")
+      (korean-ksc5601	  . #x297D)	; ø»ˆ§˜
+      ))
+    (ucs		. #x2083)	; ₃
     ))
 (define-char
   '((name		. "FULLWIDTH SUBSCRIPT THREE")
-    (->ucs		. #x2083)
+    (=>ucs		. #x2083)	; ₃
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -76,11 +96,14 @@
     (digit-value	 . 3)
     (numeric-value	 . 3)
     (->decomposition	wide #x2083)
-    (korean-ksc5601	#x29 #x7D)	; ø»ˆ§˜
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT THREE")
+      (ucs		  . #x2083)	; ₃
+      ))
+    (korean-ksc5601	. #x297D)	; ø»ˆ§˜
     ))
 (define-char
   '((name		. "SUBSCRIPT FOUR")
-    (ucs		. #x2084)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -88,10 +111,15 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	sub #x0034)
+    (->fullwidth
+     ((name		  . "FULLWIDTH SUBSCRIPT FOUR")
+      (korean-ksc5601	  . #x297E)	; ø»ˆ§™
+      ))
+    (ucs		. #x2084)	; ₄
     ))
 (define-char
   '((name		. "FULLWIDTH SUBSCRIPT FOUR")
-    (->ucs		. #x2084)
+    (=>ucs		. #x2084)	; ₄
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -99,11 +127,14 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	wide #x2084)
-    (korean-ksc5601	#x29 #x7E)	; ø»ˆ§™
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT FOUR")
+      (ucs		  . #x2084)	; ₄
+      ))
+    (korean-ksc5601	. #x297E)	; ø»ˆ§™
     ))
 (define-char
   '((name		. "SUBSCRIPT FIVE")
-    (ucs		. #x2085)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -111,10 +142,10 @@
     (digit-value	 . 5)
     (numeric-value	 . 5)
     (->decomposition	sub #x0035)
+    (ucs		. #x2085)	; ₅
     ))
 (define-char
   '((name		. "SUBSCRIPT SIX")
-    (ucs		. #x2086)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -122,10 +153,10 @@
     (digit-value	 . 6)
     (numeric-value	 . 6)
     (->decomposition	sub #x0036)
+    (ucs		. #x2086)	; ₆
     ))
 (define-char
   '((name		. "SUBSCRIPT SEVEN")
-    (ucs		. #x2087)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -133,10 +164,10 @@
     (digit-value	 . 7)
     (numeric-value	 . 7)
     (->decomposition	sub #x0037)
+    (ucs		. #x2087)	; ₇
     ))
 (define-char
   '((name		. "SUBSCRIPT EIGHT")
-    (ucs		. #x2088)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -144,10 +175,10 @@
     (digit-value	 . 8)
     (numeric-value	 . 8)
     (->decomposition	sub #x0038)
+    (ucs		. #x2088)	; ₈
     ))
 (define-char
   '((name		. "SUBSCRIPT NINE")
-    (ucs		. #x2089)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -155,44 +186,45 @@
     (digit-value	 . 9)
     (numeric-value	 . 9)
     (->decomposition	sub #x0039)
+    (ucs		. #x2089)	; ₉
     ))
 (define-char
   '((name		. "SUBSCRIPT PLUS SIGN")
-    (ucs		. #x208A)
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
     (->decomposition	sub #x002B)
+    (ucs		. #x208A)	; ₊
     ))
 (define-char
   '((name		. "SUBSCRIPT MINUS")
-    (ucs		. #x208B)
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
     (->decomposition	sub #x2212)
+    (ucs		. #x208B)	; ₋
     ))
 (define-char
   '((name		. "SUBSCRIPT EQUALS SIGN")
-    (ucs		. #x208C)
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	sub #x003D)
+    (ucs		. #x208C)	; ₌
     ))
 (define-char
   '((name		. "SUBSCRIPT LEFT PARENTHESIS")
-    (ucs		. #x208D)
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
     (->decomposition	sub #x0028)
+    (ucs		. #x208D)	; ₍
     ))
 (define-char
   '((name		. "SUBSCRIPT RIGHT PARENTHESIS")
-    (ucs		. #x208E)
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
     (->decomposition	sub #x0029)
+    (ucs		. #x208E)	; ₎
     ))