X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02080-Subscripts.el;h=e9f34a5fb082a0e30558ce5860a8465d28c79933;hb=767a4d3c6cc84c530d28f5fa02f51c23ccd29f4e;hp=5533caaf1ec3f45d637148ee3d3e5617dcfdd16f;hpb=ed79ca47b430a917433a5f779c37c2f7c8ee11ba;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u02080-Subscripts.el b/lisp/utf-2000/u02080-Subscripts.el
index 5533caa..e9f34a5 100644
--- a/lisp/utf-2000/u02080-Subscripts.el
+++ b/lisp/utf-2000/u02080-Subscripts.el
@@ -7,8 +7,11 @@
     (decimal-digit-value . 0)
     (digit-value	 . 0)
     (numeric-value	 . 0)
-    (->decomposition	sub #x0030)
     (=ucs		. #x2080)	; ₀
+    (<-subscript
+     ((name		  . "DIGIT ZERO")
+      (=ucs		  . #x0030)	; 0
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT ONE")
@@ -18,28 +21,22 @@
     (decimal-digit-value . 1)
     (digit-value	 . 1)
     (numeric-value	 . 1)
-    (->decomposition	sub #x0031)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT ONE")
-      (=ks-x1001	  . #x297B)	; &K0-297B; [09-91]
-      ))
     (=ucs		. #x2081)	; ₁
+    (<-subscript
+     ((name		  . "DIGIT ONE")
+      (=ucs		  . #x0031)	; 1
+      ))
     ))
 (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)
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "SUBSCRIPT ONE")
       (=ucs		  . #x2081)	; ₁
       ))
     (=ks-x1001		. #x297B)	; &K0-297B; [09-91]
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT ONE")
+      (=ucs		  . #x2081)	; ₁
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT TWO")
@@ -49,28 +46,22 @@
     (decimal-digit-value . 2)
     (digit-value	 . 2)
     (numeric-value	 . 2)
-    (->decomposition	sub #x0032)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT TWO")
-      (=ks-x1001	  . #x297C)	; &K0-297C; [09-92]
-      ))
     (=ucs		. #x2082)	; ₂
+    (<-subscript
+     ((name		  . "DIGIT TWO")
+      (=ucs		  . #x0032)	; 2
+      ))
     ))
 (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)
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "SUBSCRIPT TWO")
       (=ucs		  . #x2082)	; ₂
       ))
     (=ks-x1001		. #x297C)	; &K0-297C; [09-92]
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT TWO")
+      (=ucs		  . #x2082)	; ₂
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT THREE")
@@ -80,28 +71,22 @@
     (decimal-digit-value . 3)
     (digit-value	 . 3)
     (numeric-value	 . 3)
-    (->decomposition	sub #x0033)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT THREE")
-      (=ks-x1001	  . #x297D)	; &K0-297D; [09-93]
-      ))
     (=ucs		. #x2083)	; ₃
+    (<-subscript
+     ((name		  . "DIGIT THREE")
+      (=ucs		  . #x0033)	; 3
+      ))
     ))
 (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)
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "SUBSCRIPT THREE")
       (=ucs		  . #x2083)	; ₃
       ))
     (=ks-x1001		. #x297D)	; &K0-297D; [09-93]
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT THREE")
+      (=ucs		  . #x2083)	; ₃
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT FOUR")
@@ -111,28 +96,22 @@
     (decimal-digit-value . 4)
     (digit-value	 . 4)
     (numeric-value	 . 4)
-    (->decomposition	sub #x0034)
-    (->fullwidth
-     ((name		  . "FULLWIDTH SUBSCRIPT FOUR")
-      (=ks-x1001	  . #x297E)	; &K0-297E; [09-94]
-      ))
     (=ucs		. #x2084)	; ₄
+    (<-subscript
+     ((name		  . "DIGIT FOUR")
+      (=ucs		  . #x0034)	; 4
+      ))
     ))
 (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)
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "SUBSCRIPT FOUR")
       (=ucs		  . #x2084)	; ₄
       ))
     (=ks-x1001		. #x297E)	; &K0-297E; [09-94]
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT FOUR")
+      (=ucs		  . #x2084)	; ₄
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT FIVE")
@@ -142,8 +121,11 @@
     (decimal-digit-value . 5)
     (digit-value	 . 5)
     (numeric-value	 . 5)
-    (->decomposition	sub #x0035)
     (=ucs		. #x2085)	; ₅
+    (<-subscript
+     ((name		  . "DIGIT FIVE")
+      (=ucs		  . #x0035)	; 5
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT SIX")
@@ -153,8 +135,11 @@
     (decimal-digit-value . 6)
     (digit-value	 . 6)
     (numeric-value	 . 6)
-    (->decomposition	sub #x0036)
     (=ucs		. #x2086)	; ₆
+    (<-subscript
+     ((name		  . "DIGIT SIX")
+      (=ucs		  . #x0036)	; 6
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT SEVEN")
@@ -164,8 +149,11 @@
     (decimal-digit-value . 7)
     (digit-value	 . 7)
     (numeric-value	 . 7)
-    (->decomposition	sub #x0037)
     (=ucs		. #x2087)	; ₇
+    (<-subscript
+     ((name		  . "DIGIT SEVEN")
+      (=ucs		  . #x0037)	; 7
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT EIGHT")
@@ -175,8 +163,11 @@
     (decimal-digit-value . 8)
     (digit-value	 . 8)
     (numeric-value	 . 8)
-    (->decomposition	sub #x0038)
     (=ucs		. #x2088)	; ₈
+    (<-subscript
+     ((name		  . "DIGIT EIGHT")
+      (=ucs		  . #x0038)	; 8
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT NINE")
@@ -186,46 +177,64 @@
     (decimal-digit-value . 9)
     (digit-value	 . 9)
     (numeric-value	 . 9)
-    (->decomposition	sub #x0039)
     (=ucs		. #x2089)	; ₉
+    (<-subscript
+     ((name		  . "DIGIT NINE")
+      (=ucs		  . #x0039)	; 9
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT PLUS SIGN")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	sub #x002B)
     (=ucs		. #x208A)	; ₊
+    (<-subscript
+     ((name		  . "PLUS SIGN")
+      (=ucs		  . #x002B)	; +
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT MINUS")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	sub #x2212)
     (=ucs		. #x208B)	; ₋
+    (<-subscript
+     ((name		  . "MINUS SIGN")
+      (=ucs		  . #x2212)	; −
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT EQUALS SIGN")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	sub #x003D)
     (=ucs		. #x208C)	; ₌
+    (<-subscript
+     ((name		  . "EQUALS SIGN")
+      (=ucs		  . #x003D)	; =
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT LEFT PARENTHESIS")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
-    (->decomposition	sub #x0028)
     (=ucs		. #x208D)	; ₍
+    (<-subscript
+     ((name		  . "LEFT PARENTHESIS")
+      (=ucs		  . #x0028)	; (
+      ))
     ))
 (define-char
   '((name		. "SUBSCRIPT RIGHT PARENTHESIS")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
-    (->decomposition	sub #x0029)
     (=ucs		. #x208E)	; ₎
+    (<-subscript
+     ((name		  . "RIGHT PARENTHESIS")
+      (=ucs		  . #x0029)	; )
+      ))
     ))