(<FULLWIDTH SOLIDUS>): Unify C1-225F.
authortomo <tomo>
Mon, 15 Nov 2004 17:49:34 +0000 (17:49 +0000)
committertomo <tomo>
Mon, 15 Nov 2004 17:49:34 +0000 (17:49 +0000)
(C1-2226): Map to U+02CD instead of U+FF3F; moved to
u002B0-Spacing-Modifier-Letters.el.
(<FULLWIDTH MACRON>): Unify C1-2224 and B-A1C3.
- For each `->decomposition' feature which has `wide' property, omit
  it if the character follows `wide' is stored in `<-fullwidth'
  feature.
- Use `=jis-x0208@{1983|1990}' instead of `=jis-x0208-{1983|1990}'.

lisp/utf-2000/u0FF00-Halfwidth-and-Fullwidth-Forms.el

index a257a7d..2932c07 100644 (file)
@@ -4,7 +4,6 @@
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x0021)
     (<-fullwidth
      ((name              . "EXCLAMATION MARK")
       (=ucs              . #x0021)     ; !
@@ -21,7 +20,6 @@
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x0022)
     (<-fullwidth
      ((name              . "QUOTATION MARK")
       (=ucs              . #x0022)     ; "
@@ -37,7 +35,6 @@
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   wide #x0023)
     (<-fullwidth
      ((name              . "NUMBER SIGN")
       (=ucs              . #x0023)     ; #
@@ -54,7 +51,6 @@
     (general-category  symbol currency) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   wide #x0024)
     (<-fullwidth
      ((name              . "DOLLAR SIGN")
       (=ucs              . #x0024)     ; $
@@ -71,7 +67,6 @@
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   wide #x0025)
     (<-fullwidth
      ((name              . "PERCENT SIGN")
       (=ucs              . #x0025)     ; %
@@ -88,7 +83,6 @@
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x0026)
     (<-fullwidth
      ((name              . "AMPERSAND")
       (=ucs              . #x0026)     ; &
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x0027)
     (<-fullwidth
      ((name              . "APOSTROPHE")
       (=ucs              . #x0027)     ; '
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x0028)
     (<-fullwidth
      ((name              . "LEFT PARENTHESIS")
       (=ucs              . #x0028)     ; (
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x0029)
     (<-fullwidth
      ((name              . "RIGHT PARENTHESIS")
       (=ucs              . #x0029)     ; )
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x002A)
     (<-fullwidth
      ((name              . "ASTERISK")
       (=ucs              . #x002A)     ; *
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   wide #x002B)
     (<-fullwidth
      ((name              . "PLUS SIGN")
       (=ucs              . #x002B)     ; +
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "CS")
     (mirrored          . nil)
-    (->decomposition   wide #x002C)
     (<-fullwidth
      ((name              . "COMMA")
       (=ucs              . #x002C)     ; ,
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   wide #x002D)
     (<-fullwidth
      ((name              . "HYPHEN-MINUS")
       (=ucs              . #x002D)     ; -
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "CS")
     (mirrored          . nil)
-    (->decomposition   wide #x002E)
     (<-fullwidth
      ((name              . "FULL STOP")
       (=ucs              . #x002E)     ; .
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ES")
     (mirrored          . nil)
-    (->decomposition   wide #x002F)
     (<-fullwidth
      ((name              . "SOLIDUS")
       (=ucs              . #x002F)     ; /
     (=jis-x0208                . #x213F)       ; &I-J90-213F; [01-31]
     (=gb2312           . #x232F)       ; &I-G0-232F; [03-15]
     (=ks-x1001         . #x232F)       ; &I-K0-232F; [03-15]
+    (=cns11643-1       . #x225F)       ; &I-C1-225F; [02-63]
     (=big5             . #xA1FE)       ; &I-B-A1FE;
     ))
 (define-char
     (decimal-digit-value . 0)
     (digit-value        . 0)
     (numeric-value      . 0)
-    (->decomposition   wide #x0030)
     (<-fullwidth
      ((name              . "DIGIT ZERO")
       (=ucs              . #x0030)     ; 0
     (decimal-digit-value . 1)
     (digit-value        . 1)
     (numeric-value      . 1)
-    (->decomposition   wide #x0031)
     (<-fullwidth
      ((name              . "DIGIT ONE")
       (=ucs              . #x0031)     ; 1
     (decimal-digit-value . 2)
     (digit-value        . 2)
     (numeric-value      . 2)
-    (->decomposition   wide #x0032)
     (<-fullwidth
      ((name              . "DIGIT TWO")
       (=ucs              . #x0032)     ; 2
     (decimal-digit-value . 3)
     (digit-value        . 3)
     (numeric-value      . 3)
-    (->decomposition   wide #x0033)
     (<-fullwidth
      ((name              . "DIGIT THREE")
       (=ucs              . #x0033)     ; 3
     (decimal-digit-value . 4)
     (digit-value        . 4)
     (numeric-value      . 4)
-    (->decomposition   wide #x0034)
     (<-fullwidth
      ((name              . "DIGIT FOUR")
       (=ucs              . #x0034)     ; 4
     (decimal-digit-value . 5)
     (digit-value        . 5)
     (numeric-value      . 5)
-    (->decomposition   wide #x0035)
     (<-fullwidth
      ((name              . "DIGIT FIVE")
       (=ucs              . #x0035)     ; 5
     (decimal-digit-value . 6)
     (digit-value        . 6)
     (numeric-value      . 6)
-    (->decomposition   wide #x0036)
     (<-fullwidth
      ((name              . "DIGIT SIX")
       (=ucs              . #x0036)     ; 6
     (decimal-digit-value . 7)
     (digit-value        . 7)
     (numeric-value      . 7)
-    (->decomposition   wide #x0037)
     (<-fullwidth
      ((name              . "DIGIT SEVEN")
       (=ucs              . #x0037)     ; 7
     (decimal-digit-value . 8)
     (digit-value        . 8)
     (numeric-value      . 8)
-    (->decomposition   wide #x0038)
     (<-fullwidth
      ((name              . "DIGIT EIGHT")
       (=ucs              . #x0038)     ; 8
     (decimal-digit-value . 9)
     (digit-value        . 9)
     (numeric-value      . 9)
-    (->decomposition   wide #x0039)
     (<-fullwidth
      ((name              . "DIGIT NINE")
       (=ucs              . #x0039)     ; 9
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "CS")
     (mirrored          . nil)
-    (->decomposition   wide #x003A)
     (<-fullwidth
      ((name              . "COLON")
       (=ucs              . #x003A)     ; :
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x003B)
     (<-fullwidth
      ((name              . "SEMICOLON")
       (=ucs              . #x003B)     ; ;
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x003C)
     (<-fullwidth
      ((name              . "LESS-THAN SIGN")
       (=ucs              . #x003C)     ; <
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x003D)
     (<-fullwidth
      ((name              . "EQUALS SIGN")
       (=ucs              . #x003D)     ; =
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x003E)
     (<-fullwidth
      ((name              . "GREATER-THAN SIGN")
       (=ucs              . #x003E)     ; >
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x003F)
     (<-fullwidth
      ((name              . "QUESTION MARK")
       (=ucs              . #x003F)     ; ?
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x0040)
     (<-fullwidth
      ((name              . "COMMERCIAL AT")
       (=ucs              . #x0040)     ; @
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0041)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER A")
       (=ucs              . #xFF41)     ; a
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0042)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER B")
       (=ucs              . #xFF42)     ; b
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0043)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER C")
       (=ucs              . #xFF43)     ; c
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0044)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER D")
       (=ucs              . #xFF44)     ; d
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0045)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER E")
       (=ucs              . #xFF45)     ; e
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0046)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER F")
       (=ucs              . #xFF46)     ; f
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0047)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER G")
       (=ucs              . #xFF47)     ; g
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0048)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER H")
       (=ucs              . #xFF48)     ; h
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0049)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER I")
       (=ucs              . #xFF49)     ; i
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x004A)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER J")
       (=ucs              . #xFF4A)     ; j
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x004B)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER K")
       (=ucs              . #xFF4B)     ; k
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x004C)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER L")
       (=ucs              . #xFF4C)     ; l
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x004D)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER M")
       (=ucs              . #xFF4D)     ; m
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x004E)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER N")
       (=ucs              . #xFF4E)     ; n
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x004F)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER O")
       (=ucs              . #xFF4F)     ; o
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0050)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER P")
       (=ucs              . #xFF50)     ; p
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0051)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER Q")
       (=ucs              . #xFF51)     ; q
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0052)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER R")
       (=ucs              . #xFF52)     ; r
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0053)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER S")
       (=ucs              . #xFF53)     ; s
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0054)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER T")
       (=ucs              . #xFF54)     ; t
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0055)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER U")
       (=ucs              . #xFF55)     ; u
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0056)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER V")
       (=ucs              . #xFF56)     ; v
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0057)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER W")
       (=ucs              . #xFF57)     ; w
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0058)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER X")
       (=ucs              . #xFF58)     ; x
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0059)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER Y")
       (=ucs              . #xFF59)     ; y
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x005A)
     (->lowercase
      ((name              . "FULLWIDTH LATIN SMALL LETTER Z")
       (=ucs              . #xFF5A)     ; z
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x005B)
     (<-fullwidth
      ((name              . "LEFT SQUARE BRACKET")
       (=ucs              . #x005B)     ; [
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x005C)
     (<-fullwidth
      ((name              . "REVERSE SOLIDUS")
       (=ucs              . #x005C)     ; \
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x005D)
     (<-fullwidth
      ((name              . "RIGHT SQUARE BRACKET")
       (=ucs              . #x005D)     ; ]
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x005E)
     (<-fullwidth
      ((name              . "CIRCUMFLEX ACCENT")
       (=ucs              . #x005E)     ; ^
     (general-category  punctuation connector) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x005F)
     (<-fullwidth
      ((name              . "LOW LINE")
       (=ucs              . #x005F)     ; _
     (=big5             . #xA1C4)       ; &I-B-A1C4;
     ))
 (define-char
-  '((name              . "heavy low line")
-    (=>ucs             . #xFF3F)       ; _
-    (general-category  punctuation connector) ; Informative Category
-    (bidi-category     . "ON")
-    (mirrored          . nil)
-    (=cns11643-1       . #x2226)       ; &C1-2226; [02-06]
-    (=big5             . #xA1C5)       ; &I-B-A1C5;
-    (=ucs@big5         . #x02CD)       ; &C1-2226;
-    ))
-(define-char
   '((name              . "FULLWIDTH GRAVE ACCENT")
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x0060)
     (<-fullwidth
      ((name              . "GRAVE ACCENT")
       (=ucs              . #x0060)     ; `
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0061)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER A")
       (=ucs              . #xFF21)     ; A
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0062)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER B")
       (=ucs              . #xFF22)     ; B
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0063)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER C")
       (=ucs              . #xFF23)     ; C
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0064)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER D")
       (=ucs              . #xFF24)     ; D
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0065)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER E")
       (=ucs              . #xFF25)     ; E
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0066)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER F")
       (=ucs              . #xFF26)     ; F
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0067)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER G")
       (=ucs              . #xFF27)     ; G
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0068)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER H")
       (=ucs              . #xFF28)     ; H
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0069)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER I")
       (=ucs              . #xFF29)     ; I
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x006A)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER J")
       (=ucs              . #xFF2A)     ; J
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x006B)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER K")
       (=ucs              . #xFF2B)     ; K
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x006C)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER L")
       (=ucs              . #xFF2C)     ; L
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x006D)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER M")
       (=ucs              . #xFF2D)     ; M
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x006E)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER N")
       (=ucs              . #xFF2E)     ; N
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x006F)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER O")
       (=ucs              . #xFF2F)     ; O
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0070)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER P")
       (=ucs              . #xFF30)     ; P
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0071)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER Q")
       (=ucs              . #xFF31)     ; Q
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0072)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER R")
       (=ucs              . #xFF32)     ; R
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0073)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER S")
       (=ucs              . #xFF33)     ; S
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0074)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER T")
       (=ucs              . #xFF34)     ; T
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0075)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER U")
       (=ucs              . #xFF35)     ; U
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0076)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER V")
       (=ucs              . #xFF36)     ; V
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0077)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER W")
       (=ucs              . #xFF37)     ; W
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0078)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER X")
       (=ucs              . #xFF38)     ; X
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x0079)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER Y")
       (=ucs              . #xFF39)     ; Y
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   wide #x007A)
     (->uppercase
      ((name              . "FULLWIDTH LATIN CAPITAL LETTER Z")
       (=ucs              . #xFF3A)     ; Z
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x007B)
     (<-fullwidth
      ((name              . "LEFT CURLY BRACKET")
       (=ucs              . #x007B)     ; {
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x007C)
     (<-fullwidth
      ((name              . "VERTICAL LINE")
       (=ucs              . #x007C)     ; |
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x007D)
     (<-fullwidth
      ((name              . "RIGHT CURLY BRACKET")
       (=ucs              . #x007D)     ; }
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x007E)
     (<-fullwidth
      ((name              . "TILDE")
       (=ucs              . #x007E)     ; ~
     (general-category  symbol currency) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   wide #x00A2)
     (<-fullwidth
      ((name              . "CENT SIGN")
       (=ucs              . #x00A2)     ; ¢
     (general-category  symbol currency) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   wide #x00A3)
     (<-fullwidth
      ((name              . "POUND SIGN")
       (=ucs              . #x00A3)     ; £
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x00AC)
     (<-fullwidth
      ((name              . "NOT SIGN")
       (=ucs              . #x00AC)     ; ¬
       ))
     (=ucs              . #xFFE2)       ; ¬
-    (=jis-x0208-1983   . #x224C)       ; &I-J83-224C; [02-44]
+    (=jis-x0208@1983   . #x224C)       ; &I-J83-224C; [02-44]
     (=ks-x1001         . #x217E)       ; &I-K0-217E; [01-94]
-    (=jis-x0208-1990   . #x224C)       ; &I-J90-224C; [02-44]
+    (=jis-x0208@1990   . #x224C)       ; &I-J90-224C; [02-44]
     (=big5-eten                . #xC8CD)       ; &B-C8CD;
     ))
 (define-char
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x00AF)
     (<-fullwidth
      ((name              . "MACRON")
       (=ucs              . #x00AF)     ; ¯
       ))
     (=ucs              . #xFFE3)       ;  ̄
     (=jis-x0212                . #x2234)       ; &I-JSP-2234; [02-20]
+    (=cns11643-1       . #x2224)       ; &I-C1-2224; [02-04]
     (=jis-x0213-1-2000 . #x292B)       ; &I-JX1-292B; [09-11]
+    (=big5             . #xA1C3)       ; &I-B-A1C3;
     (=jef-china3       . #x81A7)       ; &I-JC3-81A7;
     ))
 (define-char
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   wide #x00A6)
     (<-fullwidth
      ((name              . "BROKEN BAR")
       (=ucs              . #x00A6)     ; ¦
     (general-category  symbol currency) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   wide #x00A5)
     (<-fullwidth
      ((name              . "YEN SIGN")
       (=ucs              . #x00A5)     ; ¥
     (general-category  symbol currency) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   wide #x20A9)
     (<-fullwidth
      ((name              . "WON SIGN")
       (=ucs              . #x20A9)     ; ₩