X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu0FE50-Small-Form-Variants.el;h=b81ceb6210f0dd1ad10064828a93437cb177f47f;hb=59483252003895f7e52f747b322c84073c676922;hp=f1d5fa0580c1ba17a5d5af2e62d921f6e012de76;hpb=2e06e736b01a36e62a7aa156347b42dcdef89e1e;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 f1d5fa0..b81ceb6 100644
--- a/lisp/utf-2000/u0FE50-Small-Form-Variants.el
+++ b/lisp/utf-2000/u0FE50-Small-Form-Variants.el
@@ -1,259 +1,337 @@
-;; -*- coding: utf-8-mcs -*-
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name		. "SMALL COMMA")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "CS")
     (mirrored		. nil)
-    (->decomposition	small #x002C)
     (=ucs		. #xFE50)	; ﹐
-    (=cns11643-1	. #x212E)	; ø»‘‚©
-    (=big5		. #xA14D)	; ý¢€Š…
+    (=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)	; ø»‘‚ª
-    (=big5		. #xA14E)	; ý¢€Š…Ž
+    (=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)	; ø»‘‚«
-    (=big5		. #xA14F)	; ý¢€Š…
+    (=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)	; ø»‘‚­
-    (=big5		. #xA151)	; ý¢€Š…‘
+    (=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)	; ø»‘‚®
-    (=big5		. #xA152)	; ý¢€Š…’
+    (=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)	; ø»‘‚¯
-    (=big5		. #xA153)	; ý¢€Š…“
+    (=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)	; ø»‘‚°
-    (=big5		. #xA154)	; ý¢€Š…”
+    (=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)	; ø»‘ƒ™
-    (=big5		. #xA17D)	; ý¢€Š…½
+    (=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)	; ø»‘ƒš
-    (=big5		. #xA17E)	; ý¢€Š…¾
+    (=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)	; ø»‘ƒ›
-    (=big5		. #xA1A1)	; ý¢€Š†¡
+    (=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)	; ø»‘ƒœ
-    (=big5		. #xA1A2)	; ý¢€Š†¢
+    (=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)	; ø»‘ƒ
-    (=big5		. #xA1A3)	; ý¢€Š†£
+    (=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)	; ø»‘ƒž
-    (=big5		. #xA1A4)	; ý¢€Š†¤
+    (=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)	; ø»‘„†
-    (=big5		. #xA1CC)	; ý¢€Š‡Œ
+    (=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)	; ø»‘„‡
-    (=big5		. #xA1CD)	; ý¢€Š‡
+    (=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)	; ø»‘„ˆ
-    (=big5		. #xA1CE)	; ý¢€Š‡Ž
+    (=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)	; ø»‘„˜
-    (=big5		. #xA1DE)	; ý¢€Š‡ž
+    (=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)	; ø»‘„™
-    (=big5		. #xA1DF)	; ý¢€Š‡Ÿ
+    (=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)	; ø»‘„š
-    (=big5		. #xA1E0)	; ý¢€Š‡ 
+    (=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)	; ø»‘„›
-    (=big5		. #xA1E1)	; ý¢€Š‡¡
+    (=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)	; ø»‘„œ
-    (=big5		. #xA1E2)	; ý¢€Š‡¢
+    (=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)	; ø»‘„»
-    (=big5		. #xA242)	; ý¢€Š‰‚
+    (=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)	; ø»‘……
-    (=big5		. #xA24C)	; ý¢€Š‰Œ
+    (=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)	; ø»‘…†
-    (=big5		. #xA24D)	; ý¢€Š‰
+    (=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)	; ø»‘…‡
-    (=big5		. #xA24E)	; ý¢€Š‰Ž
+    (=cns11643-1	. #x226E)	; &I-C1-226E; [02-78]
+    (=big5		. #xA24E)	; &I-B-A24E;
+    (<-small
+     ((name		  . "COMMERCIAL AT")
+      (=ucs		  . #x0040)	; @
+      ))
     ))