Use `<-small' instead of `->decomposition' for compatibility mapping

to single character tagged `small'.

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