X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git;a=blobdiff_plain;f=lisp%2Futf-2000%2Fu0FE50-Small-Form-Variants.el;h=b81ceb6210f0dd1ad10064828a93437cb177f47f;hp=6b827eb0a335367c8cfb71d697a57e86885668f6;hb=HEAD;hpb=a5812bf2ff9a9cf40f4ff78dcb83f5b4c295bd18

diff --git a/lisp/utf-2000/u0FE50-Small-Form-Variants.el b/lisp/utf-2000/u0FE50-Small-Form-Variants.el
index 6b827eb..b81ceb6 100644
--- a/lisp/utf-2000/u0FE50-Small-Form-Variants.el
+++ b/lisp/utf-2000/u0FE50-Small-Form-Variants.el
@@ -1,258 +1,337 @@
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name		. "SMALL COMMA")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "CS")
     (mirrored		. nil)
-    (->decomposition	small #x002C)
-    (chinese-cns11643-1 . #x212E)	; ø»‘‚©
-    (chinese-big5	. #xA14D)	; ý¢€Š…
     (=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)
-    (chinese-cns11643-1 . #x212F)	; ø»‘‚ª
-    (chinese-big5	. #xA14E)	; ý¢€Š…Ž
     (=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)
-    (chinese-cns11643-1 . #x2130)	; ø»‘‚«
-    (chinese-big5	. #xA14F)	; ý¢€Š…
     (=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)
-    (chinese-cns11643-1 . #x2132)	; ø»‘‚­
-    (chinese-big5	. #xA151)	; ý¢€Š…‘
     (=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)
-    (chinese-cns11643-1 . #x2133)	; ø»‘‚®
-    (chinese-big5	. #xA152)	; ý¢€Š…’
     (=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)
-    (chinese-cns11643-1 . #x2134)	; ø»‘‚¯
-    (chinese-big5	. #xA153)	; ý¢€Š…“
     (=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)
-    (chinese-cns11643-1 . #x2135)	; ø»‘‚°
-    (chinese-big5	. #xA154)	; ý¢€Š…”
     (=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)
-    (chinese-cns11643-1 . #x215E)	; ø»‘ƒ™
-    (chinese-big5	. #xA17D)	; ý¢€Š…½
     (=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)
-    (chinese-cns11643-1 . #x215F)	; ø»‘ƒš
-    (chinese-big5	. #xA17E)	; ý¢€Š…¾
     (=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)
-    (chinese-cns11643-1 . #x2160)	; ø»‘ƒ›
-    (chinese-big5	. #xA1A1)	; ý¢€Š†¡
     (=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)
-    (chinese-cns11643-1 . #x2161)	; ø»‘ƒœ
-    (chinese-big5	. #xA1A2)	; ý¢€Š†¢
     (=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)
-    (chinese-cns11643-1 . #x2162)	; ø»‘ƒ
-    (chinese-big5	. #xA1A3)	; ý¢€Š†£
     (=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)
-    (chinese-cns11643-1 . #x2163)	; ø»‘ƒž
-    (chinese-big5	. #xA1A4)	; ý¢€Š†¤
     (=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)
-    (chinese-cns11643-1 . #x222D)	; ø»‘„†
-    (chinese-big5	. #xA1CC)	; ý¢€Š‡Œ
     (=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)
-    (chinese-cns11643-1 . #x222E)	; ø»‘„‡
-    (chinese-big5	. #xA1CD)	; ý¢€Š‡
     (=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)
-    (chinese-cns11643-1 . #x222F)	; ø»‘„ˆ
-    (chinese-big5	. #xA1CE)	; ý¢€Š‡Ž
     (=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)
-    (chinese-cns11643-1 . #x223F)	; ø»‘„˜
-    (chinese-big5	. #xA1DE)	; ý¢€Š‡ž
     (=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)
-    (chinese-cns11643-1 . #x2240)	; ø»‘„™
-    (chinese-big5	. #xA1DF)	; ý¢€Š‡Ÿ
     (=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)
-    (chinese-cns11643-1 . #x2241)	; ø»‘„š
-    (chinese-big5	. #xA1E0)	; ý¢€Š‡ 
     (=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)
-    (chinese-cns11643-1 . #x2242)	; ø»‘„›
-    (chinese-big5	. #xA1E1)	; ý¢€Š‡¡
     (=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)
-    (chinese-cns11643-1 . #x2243)	; ø»‘„œ
-    (chinese-big5	. #xA1E2)	; ý¢€Š‡¢
     (=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)
-    (chinese-cns11643-1 . #x2262)	; ø»‘„»
-    (chinese-big5	. #xA242)	; ý¢€Š‰‚
     (=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)
-    (chinese-cns11643-1 . #x226C)	; ø»‘……
-    (chinese-big5	. #xA24C)	; ý¢€Š‰Œ
     (=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)
-    (chinese-cns11643-1 . #x226D)	; ø»‘…†
-    (chinese-big5	. #xA24D)	; ý¢€Š‰
     (=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)
-    (chinese-cns11643-1 . #x226E)	; ø»‘…‡
-    (chinese-big5	. #xA24E)	; ý¢€Š‰Ž
     (=ucs		. #xFE6B)	; ﹫
+    (=cns11643-1	. #x226E)	; &I-C1-226E; [02-78]
+    (=big5		. #xA24E)	; &I-B-A24E;
+    (<-small
+     ((name		  . "COMMERCIAL AT")
+      (=ucs		  . #x0040)	; @
+      ))
     ))