X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02080-Subscripts.el;h=d407d642efc8e8da80943e257b3b93e1499437da;hb=87fd0820140086837f95cb416a7747b04020e8f5;hp=4b5cd180f4313abd3a59d05a8b20e6871ea11a0f;hpb=e7783ccc5c7b4545f4afab9e1748b38e17aff09c;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/u02080-Subscripts.el b/lisp/utf-2000/u02080-Subscripts.el
index 4b5cd18..d407d64 100644
--- a/lisp/utf-2000/u02080-Subscripts.el
+++ b/lisp/utf-2000/u02080-Subscripts.el
@@ -19,27 +19,18 @@
     (digit-value	 . 1)
     (numeric-value	 . 1)
     (->decomposition	sub #x0031)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT ONE")
-      (=ks-x1001	  . #x297B)	; &K0-297B;
-      ))
     (=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)	; ₁
       ))
-    (=ks-x1001		. #x297B)	; &K0-297B;
+    (=ks-x1001		. #x297B)	; &K0-297B; [09-91]
     ))
 (define-char
   '((name		. "SUBSCRIPT TWO")
@@ -50,27 +41,18 @@
     (digit-value	 . 2)
     (numeric-value	 . 2)
     (->decomposition	sub #x0032)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT TWO")
-      (=ks-x1001	  . #x297C)	; &K0-297C;
-      ))
     (=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)	; ₂
       ))
-    (=ks-x1001		. #x297C)	; &K0-297C;
+    (=ks-x1001		. #x297C)	; &K0-297C; [09-92]
     ))
 (define-char
   '((name		. "SUBSCRIPT THREE")
@@ -81,27 +63,18 @@
     (digit-value	 . 3)
     (numeric-value	 . 3)
     (->decomposition	sub #x0033)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT THREE")
-      (=ks-x1001	  . #x297D)	; &K0-297D;
-      ))
     (=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)	; ₃
       ))
-    (=ks-x1001		. #x297D)	; &K0-297D;
+    (=ks-x1001		. #x297D)	; &K0-297D; [09-93]
     ))
 (define-char
   '((name		. "SUBSCRIPT FOUR")
@@ -112,27 +85,18 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	sub #x0034)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT FOUR")
-      (=ks-x1001	  . #x297E)	; &K0-297E;
-      ))
     (=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)	; ₄
       ))
-    (=ks-x1001		. #x297E)	; &K0-297E;
+    (=ks-x1001		. #x297E)	; &K0-297E; [09-94]
     ))
 (define-char
   '((name		. "SUBSCRIPT FIVE")