From e257bb18faa66cb1c05a241a46990efb9a2e7a98 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 9 Nov 2004 11:35:04 +0000
Subject: [PATCH] In each *fullwidth* variant: - Use `<-denotational' instead
 of `=>ucs'. - Omit features defined in the mother. In each
 ucs character: - Omit `->fullwidth' for non-UCS objects.

---
 lisp/utf-2000/u02070-Superscripts.el |   31 ++++------------
 lisp/utf-2000/u02080-Subscripts.el   |   68 ++++++++--------------------------
 2 files changed, 24 insertions(+), 75 deletions(-)

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index fdff77c..2f762c4 100644
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -19,22 +19,13 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	super #x0034)
-    (->fullwidth
-     ((name		  . "fullwidth superscript four")
-      (=ks-x1001	  . #x2979)	; &K0-2979; [09-89]
-      ))
     (=ucs		. #x2074)	; ⁴
     ))
 (define-char
-  '((name		. "fullwidth superscript four")
-    (=>ucs		. #x2074)	; ⁴
-    (general-category	number other) ; Normative Category
-    (bidi-category	. "EN")
-    (mirrored		. nil)
-    (decimal-digit-value . 4)
-    (digit-value	 . 4)
-    (numeric-value	 . 4)
-    (->decomposition	wide #x2074)
+  '((<-denotational
+     ((name		  . "SUPERSCRIPT FOUR")
+      (=ucs		  . #x2074)	; ⁴
+      ))
     (<-fullwidth
      ((name		  . "SUPERSCRIPT FOUR")
       (=ucs		  . #x2074)	; ⁴
@@ -142,19 +133,13 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	super #x006E)
-    (->fullwidth
-     ((name		  . "fullwidth superscript latin small letter n")
-      (=ks-x1001	  . #x297A)	; &K0-297A; [09-90]
-      ))
     (=ucs		. #x207F)	; ⁿ
     ))
 (define-char
-  '((name		. "fullwidth superscript latin small letter n")
-    (=>ucs		. #x207F)	; ⁿ
-    (general-category	letter lowercase) ; Normative Category
-    (bidi-category	. "L")
-    (mirrored		. nil)
-    (->decomposition	wide #x207F)
+  '((<-denotational
+     ((name		  . "SUPERSCRIPT LATIN SMALL LETTER N")
+      (=ucs		  . #x207F)	; ⁿ
+      ))
     (<-fullwidth
      ((name		  . "SUPERSCRIPT LATIN SMALL LETTER N")
       (=ucs		  . #x207F)	; ⁿ
diff --git a/lisp/utf-2000/u02080-Subscripts.el b/lisp/utf-2000/u02080-Subscripts.el
index 5533caa..d407d64 100644
--- a/lisp/utf-2000/u02080-Subscripts.el
+++ b/lisp/utf-2000/u02080-Subscripts.el
@@ -19,22 +19,13 @@
     (digit-value	 . 1)
     (numeric-value	 . 1)
     (->decomposition	sub #x0031)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT ONE")
-      (=ks-x1001	  . #x297B)	; &K0-297B; [09-91]
-      ))
     (=ucs		. #x2081)	; ₁
     ))
 (define-char
-  '((name		. "FULLWIDTH SUBSCRIPT ONE")
-    (=>ucs		. #x2081)	; ₁
-    (general-category	number other) ; Normative Category
-    (bidi-category	. "EN")
-    (mirrored		. nil)
-    (decimal-digit-value . 1)
-    (digit-value	 . 1)
-    (numeric-value	 . 1)
-    (->decomposition	wide #x2081)
+  '((<-denotational
+     ((name		  . "SUBSCRIPT ONE")
+      (=ucs		  . #x2081)	; ₁
+      ))
     (<-fullwidth
      ((name		  . "SUBSCRIPT ONE")
       (=ucs		  . #x2081)	; ₁
@@ -50,22 +41,13 @@
     (digit-value	 . 2)
     (numeric-value	 . 2)
     (->decomposition	sub #x0032)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT TWO")
-      (=ks-x1001	  . #x297C)	; &K0-297C; [09-92]
-      ))
     (=ucs		. #x2082)	; ₂
     ))
 (define-char
-  '((name		. "FULLWIDTH SUBSCRIPT TWO")
-    (=>ucs		. #x2082)	; ₂
-    (general-category	number other) ; Normative Category
-    (bidi-category	. "EN")
-    (mirrored		. nil)
-    (decimal-digit-value . 2)
-    (digit-value	 . 2)
-    (numeric-value	 . 2)
-    (->decomposition	wide #x2082)
+  '((<-denotational
+     ((name		  . "SUBSCRIPT TWO")
+      (=ucs		  . #x2082)	; ₂
+      ))
     (<-fullwidth
      ((name		  . "SUBSCRIPT TWO")
       (=ucs		  . #x2082)	; ₂
@@ -81,22 +63,13 @@
     (digit-value	 . 3)
     (numeric-value	 . 3)
     (->decomposition	sub #x0033)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT THREE")
-      (=ks-x1001	  . #x297D)	; &K0-297D; [09-93]
-      ))
     (=ucs		. #x2083)	; ₃
     ))
 (define-char
-  '((name		. "FULLWIDTH SUBSCRIPT THREE")
-    (=>ucs		. #x2083)	; ₃
-    (general-category	number other) ; Normative Category
-    (bidi-category	. "EN")
-    (mirrored		. nil)
-    (decimal-digit-value . 3)
-    (digit-value	 . 3)
-    (numeric-value	 . 3)
-    (->decomposition	wide #x2083)
+  '((<-denotational
+     ((name		  . "SUBSCRIPT THREE")
+      (=ucs		  . #x2083)	; ₃
+      ))
     (<-fullwidth
      ((name		  . "SUBSCRIPT THREE")
       (=ucs		  . #x2083)	; ₃
@@ -112,22 +85,13 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	sub #x0034)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT FOUR")
-      (=ks-x1001	  . #x297E)	; &K0-297E; [09-94]
-      ))
     (=ucs		. #x2084)	; ₄
     ))
 (define-char
-  '((name		. "FULLWIDTH SUBSCRIPT FOUR")
-    (=>ucs		. #x2084)	; ₄
-    (general-category	number other) ; Normative Category
-    (bidi-category	. "EN")
-    (mirrored		. nil)
-    (decimal-digit-value . 4)
-    (digit-value	 . 4)
-    (numeric-value	 . 4)
-    (->decomposition	wide #x2084)
+  '((<-denotational
+     ((name		  . "SUBSCRIPT FOUR")
+      (=ucs		  . #x2084)	; ₄
+      ))
     (<-fullwidth
      ((name		  . "SUBSCRIPT FOUR")
       (=ucs		  . #x2084)	; ₄
-- 
1.7.10.4