X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu0FE50-Small-Form-Variants.el;h=b81ceb6210f0dd1ad10064828a93437cb177f47f;hb=7d55ceb58b255c0a777c5a2e38203cd3bbda06e2;hp=9c74aec00b3c6dc6efa58ee26fb8bbfac17916f9;hpb=ed79ca47b430a917433a5f779c37c2f7c8ee11ba;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u0FE50-Small-Form-Variants.el b/lisp/utf-2000/u0FE50-Small-Form-Variants.el
index 9c74aec..b81ceb6 100644
--- a/lisp/utf-2000/u0FE50-Small-Form-Variants.el
+++ b/lisp/utf-2000/u0FE50-Small-Form-Variants.el
@@ -4,256 +4,334 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "CS")
     (mirrored		. nil)
-    (->decomposition	small #x002C)
     (=ucs		. #xFE50)	; ﹐
     (=cns11643-1	. #x212E)	; &I-C1-212E; [01-14]
     (=big5		. #xA14D)	; &I-B-A14D;
+    (<-small
+     ((name		  . "COMMA")
+      (=ucs		  . #x002C)	; ,
+      ))
     ))
 (define-char
   '((name		. "SMALL IDEOGRAPHIC COMMA")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x3001)
     (=ucs		. #xFE51)	; ﹑
     (=cns11643-1	. #x212F)	; &I-C1-212F; [01-15]
     (=big5		. #xA14E)	; &I-B-A14E;
+    (<-small
+     ((name		  . "IDEOGRAPHIC COMMA")
+      (=ucs		  . #x3001)	; 、
+      ))
     ))
 (define-char
   '((name		. "SMALL FULL STOP")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "CS")
     (mirrored		. nil)
-    (->decomposition	small #x002E)
     (=ucs		. #xFE52)	; ﹒
     (=cns11643-1	. #x2130)	; &I-C1-2130; [01-16]
     (=big5		. #xA14F)	; &I-B-A14F;
+    (<-small
+     ((name		  . "FULL STOP")
+      (=ucs		  . #x002E)	; .
+      ))
     ))
 (define-char
   '((name		. "SMALL SEMICOLON")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x003B)
     (=ucs		. #xFE54)	; ﹔
     (=cns11643-1	. #x2132)	; &I-C1-2132; [01-18]
     (=big5		. #xA151)	; &I-B-A151;
+    (<-small
+     ((name		  . "SEMICOLON")
+      (=ucs		  . #x003B)	; ;
+      ))
     ))
 (define-char
   '((name		. "SMALL COLON")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "CS")
     (mirrored		. nil)
-    (->decomposition	small #x003A)
     (=ucs		. #xFE55)	; ﹕
     (=cns11643-1	. #x2133)	; &I-C1-2133; [01-19]
     (=big5		. #xA152)	; &I-B-A152;
+    (<-small
+     ((name		  . "COLON")
+      (=ucs		  . #x003A)	; :
+      ))
     ))
 (define-char
   '((name		. "SMALL QUESTION MARK")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x003F)
     (=ucs		. #xFE56)	; ﹖
     (=cns11643-1	. #x2134)	; &I-C1-2134; [01-20]
     (=big5		. #xA153)	; &I-B-A153;
+    (<-small
+     ((name		  . "QUESTION MARK")
+      (=ucs		  . #x003F)	; ?
+      ))
     ))
 (define-char
   '((name		. "SMALL EXCLAMATION MARK")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x0021)
     (=ucs		. #xFE57)	; ﹗
     (=cns11643-1	. #x2135)	; &I-C1-2135; [01-21]
     (=big5		. #xA154)	; &I-B-A154;
+    (<-small
+     ((name		  . "EXCLAMATION MARK")
+      (=ucs		  . #x0021)	; !
+      ))
     ))
 (define-char
   '((name		. "SMALL EM DASH")
     (general-category	punctuation dash) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x2014)
     (=ucs		. #xFE58)	; ﹘
+    (<-small
+     ((name		  . "EM DASH")
+      (=ucs		  . #x2014)	; —
+      ))
     ))
 (define-char
   '((name		. "SMALL LEFT PARENTHESIS")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x0028)
     (=ucs		. #xFE59)	; ﹙
     (=cns11643-1	. #x215E)	; &I-C1-215E; [01-62]
     (=big5		. #xA17D)	; &I-B-A17D;
+    (<-small
+     ((name		  . "LEFT PARENTHESIS")
+      (=ucs		  . #x0028)	; (
+      ))
     ))
 (define-char
   '((name		. "SMALL RIGHT PARENTHESIS")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x0029)
     (=ucs		. #xFE5A)	; ﹚
     (=cns11643-1	. #x215F)	; &I-C1-215F; [01-63]
     (=big5		. #xA17E)	; &I-B-A17E;
+    (<-small
+     ((name		  . "RIGHT PARENTHESIS")
+      (=ucs		  . #x0029)	; )
+      ))
     ))
 (define-char
   '((name		. "SMALL LEFT CURLY BRACKET")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x007B)
     (=ucs		. #xFE5B)	; ﹛
     (=cns11643-1	. #x2160)	; &I-C1-2160; [01-64]
     (=big5		. #xA1A1)	; &I-B-A1A1;
+    (<-small
+     ((name		  . "LEFT CURLY BRACKET")
+      (=ucs		  . #x007B)	; {
+      ))
     ))
 (define-char
   '((name		. "SMALL RIGHT CURLY BRACKET")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x007D)
     (=ucs		. #xFE5C)	; ﹜
     (=cns11643-1	. #x2161)	; &I-C1-2161; [01-65]
     (=big5		. #xA1A2)	; &I-B-A1A2;
+    (<-small
+     ((name		  . "RIGHT CURLY BRACKET")
+      (=ucs		  . #x007D)	; }
+      ))
     ))
 (define-char
   '((name		. "SMALL LEFT TORTOISE SHELL BRACKET")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x3014)
     (=ucs		. #xFE5D)	; ﹝
     (=cns11643-1	. #x2162)	; &I-C1-2162; [01-66]
     (=big5		. #xA1A3)	; &I-B-A1A3;
+    (<-small
+     ((name		  . "LEFT TORTOISE SHELL BRACKET")
+      (=ucs		  . #x3014)	; 〔
+      ))
     ))
 (define-char
   '((name		. "SMALL RIGHT TORTOISE SHELL BRACKET")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x3015)
     (=ucs		. #xFE5E)	; ﹞
     (=cns11643-1	. #x2163)	; &I-C1-2163; [01-67]
     (=big5		. #xA1A4)	; &I-B-A1A4;
+    (<-small
+     ((name		  . "RIGHT TORTOISE SHELL BRACKET")
+      (=ucs		  . #x3015)	; 〕
+      ))
     ))
 (define-char
   '((name		. "SMALL NUMBER SIGN")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	small #x0023)
     (=ucs		. #xFE5F)	; ﹟
     (=cns11643-1	. #x222D)	; &I-C1-222D; [02-13]
     (=big5		. #xA1CC)	; &I-B-A1CC;
+    (<-small
+     ((name		  . "NUMBER SIGN")
+      (=ucs		  . #x0023)	; #
+      ))
     ))
 (define-char
   '((name		. "SMALL AMPERSAND")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x0026)
     (=ucs		. #xFE60)	; ï¹ 
     (=cns11643-1	. #x222E)	; &I-C1-222E; [02-14]
     (=big5		. #xA1CD)	; &I-B-A1CD;
+    (<-small
+     ((name		  . "AMPERSAND")
+      (=ucs		  . #x0026)	; &
+      ))
     ))
 (define-char
   '((name		. "SMALL ASTERISK")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x002A)
     (=ucs		. #xFE61)	; ﹡
     (=cns11643-1	. #x222F)	; &I-C1-222F; [02-15]
     (=big5		. #xA1CE)	; &I-B-A1CE;
+    (<-small
+     ((name		  . "ASTERISK")
+      (=ucs		  . #x002A)	; *
+      ))
     ))
 (define-char
   '((name		. "SMALL PLUS SIGN")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	small #x002B)
     (=ucs		. #xFE62)	; ï¹¢
     (=cns11643-1	. #x223F)	; &I-C1-223F; [02-31]
     (=big5		. #xA1DE)	; &I-B-A1DE;
+    (<-small
+     ((name		  . "PLUS SIGN")
+      (=ucs		  . #x002B)	; +
+      ))
     ))
 (define-char
   '((name		. "SMALL HYPHEN-MINUS")
     (general-category	punctuation dash) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	small #x002D)
     (=ucs		. #xFE63)	; ï¹£
     (=cns11643-1	. #x2240)	; &I-C1-2240; [02-32]
     (=big5		. #xA1DF)	; &I-B-A1DF;
+    (<-small
+     ((name		  . "HYPHEN-MINUS")
+      (=ucs		  . #x002D)	; -
+      ))
     ))
 (define-char
   '((name		. "SMALL LESS-THAN SIGN")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x003C)
     (=ucs		. #xFE64)	; ﹤
     (=cns11643-1	. #x2241)	; &I-C1-2241; [02-33]
     (=big5		. #xA1E0)	; &I-B-A1E0;
+    (<-small
+     ((name		  . "LESS-THAN SIGN")
+      (=ucs		  . #x003C)	; <
+      ))
     ))
 (define-char
   '((name		. "SMALL GREATER-THAN SIGN")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x003E)
     (=ucs		. #xFE65)	; ï¹¥
     (=cns11643-1	. #x2242)	; &I-C1-2242; [02-34]
     (=big5		. #xA1E1)	; &I-B-A1E1;
+    (<-small
+     ((name		  . "GREATER-THAN SIGN")
+      (=ucs		  . #x003E)	; >
+      ))
     ))
 (define-char
   '((name		. "SMALL EQUALS SIGN")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x003D)
     (=ucs		. #xFE66)	; ﹦
     (=cns11643-1	. #x2243)	; &I-C1-2243; [02-35]
     (=big5		. #xA1E2)	; &I-B-A1E2;
+    (<-small
+     ((name		  . "EQUALS SIGN")
+      (=ucs		  . #x003D)	; =
+      ))
     ))
 (define-char
   '((name		. "SMALL REVERSE SOLIDUS")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x005C)
     (=ucs		. #xFE68)	; ﹨
     (=cns11643-1	. #x2262)	; &I-C1-2262; [02-66]
     (=big5		. #xA242)	; &I-B-A242;
+    (<-small
+     ((name		  . "REVERSE SOLIDUS")
+      (=ucs		  . #x005C)	; \
+      ))
     ))
 (define-char
   '((name		. "SMALL DOLLAR SIGN")
     (general-category	symbol currency) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	small #x0024)
     (=ucs		. #xFE69)	; ﹩
     (=cns11643-1	. #x226C)	; &I-C1-226C; [02-76]
     (=big5		. #xA24C)	; &I-B-A24C;
+    (<-small
+     ((name		  . "DOLLAR SIGN")
+      (=ucs		  . #x0024)	; $
+      ))
     ))
 (define-char
   '((name		. "SMALL PERCENT SIGN")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	small #x0025)
     (=ucs		. #xFE6A)	; ﹪
     (=cns11643-1	. #x226D)	; &I-C1-226D; [02-77]
     (=big5		. #xA24D)	; &I-B-A24D;
+    (<-small
+     ((name		  . "PERCENT SIGN")
+      (=ucs		  . #x0025)	; %
+      ))
     ))
 (define-char
   '((name		. "SMALL COMMERCIAL AT")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	small #x0040)
     (=ucs		. #xFE6B)	; ﹫
     (=cns11643-1	. #x226E)	; &I-C1-226E; [02-78]
     (=big5		. #xA24E)	; &I-B-A24E;
+    (<-small
+     ((name		  . "COMMERCIAL AT")
+      (=ucs		  . #x0040)	; @
+      ))
     ))