update.
[chise/xemacs-chise.git-] / lisp / utf-2000 / u00020-Basic-Latin.el
index e76fe9b..175e542 100644 (file)
 (define-char
   '((name              . "SPACE")
-    (ucs               . #x0020)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
-    (ascii             #x20)   ;  
+    (ascii             . #x20) ; 
+    (arabic-1-column   . #x21) ; 
+    (ipa               . #xFF) ; 
+    (latin-viscii      . #x20) ;
+    (ucs               . #x0020)       ;
     ))
 (define-char
   '((name              . "EXCLAMATION MARK")
-    (ucs               . #x0021)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x21)   ; !
-    (latin-jisx0201    #x21)   ; !
+    (->fullwidth
+     ((name              . "FULLWIDTH EXCLAMATION MARK")
+      (ucs               . #xFF01)     ; !
+      ))
+    (ascii             . #x21) ; 
+    (latin-jisx0201    . #x21) ; 
+    (arabic-1-column   . #x22) ; 
+    (latin-viscii      . #x21) ; !
+    (ucs               . #x0021)       ; !
     ))
 (define-char
   '((name              . "QUOTATION MARK")
-    (ucs               . #x0022)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x22)   ; "
-    (latin-jisx0201    #x22)   ; "
+    (->fullwidth
+     ((name              . "FULLWIDTH QUOTATION MARK")
+      (ucs               . #xFF02)     ; "
+      ))
+    (ascii             . #x22) ; 
+    (latin-jisx0201    . #x22) ; 
+    (latin-viscii      . #x22) ; "
+    (ucs               . #x0022)       ; "
     ))
 (define-char
   '((name              . "NUMBER SIGN")
-    (ucs               . #x0023)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (ascii             #x23)   ; #
-    (latin-jisx0201    #x23)   ; #
+    (->fullwidth
+     ((name              . "FULLWIDTH NUMBER SIGN")
+      (ucs               . #xFF03)     ; #
+      ))
+    (ascii             . #x23) ; 
+    (latin-jisx0201    . #x23) ; 
+    (latin-viscii      . #x23) ; #
+    (ucs               . #x0023)       ; #
     ))
 (define-char
   '((name              . "DOLLAR SIGN")
-    (ucs               . #x0024)
     (general-category  symbol currency) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (ascii             #x24)   ; $
-    (latin-jisx0201    #x24)   ; $
+    (->fullwidth
+     ((name              . "FULLWIDTH DOLLAR SIGN")
+      (ucs               . #xFF04)     ; $
+      ))
+    (ascii             . #x24) ; 
+    (latin-jisx0201    . #x24) ; 
+    (latin-viscii      . #x24) ; $
+    (ucs               . #x0024)       ; $
     ))
 (define-char
   '((name              . "PERCENT SIGN")
-    (ucs               . #x0025)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (ascii             #x25)   ; %
-    (latin-jisx0201    #x25)   ; %
+    (->fullwidth
+     ((name              . "FULLWIDTH PERCENT SIGN")
+      (ucs               . #xFF05)     ; %
+      ))
+    (ascii             . #x25) ; 
+    (latin-jisx0201    . #x25) ; 
+    (latin-viscii      . #x25) ; %
+    (ucs               . #x0025)       ; %
     ))
 (define-char
   '((name              . "AMPERSAND")
-    (ucs               . #x0026)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x26)   ; &
-    (latin-jisx0201    #x26)   ; &
+    (->fullwidth
+     ((name              . "FULLWIDTH AMPERSAND")
+      (ucs               . #xFF06)     ; &
+      ))
+    (ascii             . #x26) ; 
+    (latin-jisx0201    . #x26) ; 
+    (latin-viscii      . #x26) ; &
+    (ucs               . #x0026)       ; &
     ))
 (define-char
   '((name              . "APOSTROPHE")
-    (ucs               . #x0027)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x27)   ; '
-    (latin-jisx0201    #x27)   ; '
+    (->fullwidth
+     ((name              . "FULLWIDTH APOSTROPHE")
+      (ucs               . #xFF07)     ; '
+      ))
+    (ascii             . #x27) ; 
+    (latin-jisx0201    . #x27) ; 
+    (latin-viscii      . #x27) ; '
+    (ucs               . #x0027)       ; '
     ))
 (define-char
   '((name              . "LEFT PARENTHESIS")
-    (ucs               . #x0028)
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (ascii             #x28)   ; (
-    (latin-jisx0201    #x28)   ; (
+    (->fullwidth
+     ((name              . "FULLWIDTH LEFT PARENTHESIS")
+      (ucs               . #xFF08)     ; (
+      ))
+    (ascii             . #x28) ; 
+    (latin-jisx0201    . #x28) ; 
+    (arabic-1-column   . #x24) ; 
+    (latin-viscii      . #x28) ; (
+    (ucs               . #x0028)       ; (
     ))
 (define-char
   '((name              . "RIGHT PARENTHESIS")
-    (ucs               . #x0029)
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (ascii             #x29)   ; )
-    (latin-jisx0201    #x29)   ; )
+    (->fullwidth
+     ((name              . "FULLWIDTH RIGHT PARENTHESIS")
+      (ucs               . #xFF09)     ; )
+      ))
+    (ascii             . #x29) ; 
+    (latin-jisx0201    . #x29) ; 
+    (arabic-1-column   . #x23) ; 
+    (latin-viscii      . #x29) ; )
+    (ucs               . #x0029)       ; )
     ))
 (define-char
   '((name              . "ASTERISK")
-    (ucs               . #x002A)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x2A)   ; *
-    (latin-jisx0201    #x2A)   ; *
+    (->fullwidth
+     ((name              . "FULLWIDTH ASTERISK")
+      (ucs               . #xFF0A)     ; *
+      ))
+    (ascii             . #x2A) ; 
+    (latin-jisx0201    . #x2A) ; 
+    (latin-viscii      . #x2A) ; *
+    (ucs               . #x002A)       ; *
     ))
 (define-char
   '((name              . "PLUS SIGN")
-    (ucs               . #x002B)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (ascii             #x2B)   ; +
-    (latin-jisx0201    #x2B)   ; +
+    (->fullwidth
+     ((name              . "FULLWIDTH PLUS SIGN")
+      (ucs               . #xFF0B)     ; +
+      ))
+    (ascii             . #x2B) ; 
+    (latin-jisx0201    . #x2B) ; 
+    (latin-viscii      . #x2B) ; +
+    (ucs               . #x002B)       ; +
     ))
 (define-char
   '((name              . "COMMA")
-    (ucs               . #x002C)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "CS")
     (mirrored          . nil)
-    (ascii             #x2C)   ; ,
-    (latin-jisx0201    #x2C)   ; ,
+    (->fullwidth
+     ((name              . "FULLWIDTH COMMA")
+      (ucs               . #xFF0C)     ; ,
+      ))
+    (ascii             . #x2C) ; 
+    (latin-jisx0201    . #x2C) ; 
+    (latin-viscii      . #x2C) ; ,
+    (ucs               . #x002C)       ; ,
     ))
 (define-char
   '((name              . "HYPHEN-MINUS")
-    (ucs               . #x002D)
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (ascii             #x2D)   ; -
-    (latin-jisx0201    #x2D)   ; -
+    (->fullwidth
+     ((name              . "FULLWIDTH HYPHEN-MINUS")
+      (ucs               . #xFF0D)     ; -
+      ))
+    (ascii             . #x2D) ; 
+    (latin-jisx0201    . #x2D) ; 
+    (latin-viscii      . #x2D) ; -
+    (ucs               . #x002D)       ; -
     ))
 (define-char
   '((name              . "FULL STOP")
-    (ucs               . #x002E)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "CS")
     (mirrored          . nil)
-    (ascii             #x2E)   ; .
-    (latin-jisx0201    #x2E)   ; .
+    (->fullwidth
+     ((name              . "FULLWIDTH FULL STOP")
+      (ucs               . #xFF0E)     ; .
+      ))
+    (ascii             . #x2E) ; 
+    (latin-jisx0201    . #x2E) ; 
+    (arabic-1-column   . #x26) ; 
+    (latin-viscii      . #x2E) ; .
+    (ucs               . #x002E)       ; .
     ))
 (define-char
   '((name              . "SOLIDUS")
-    (ucs               . #x002F)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ES")
     (mirrored          . nil)
-    (ascii             #x2F)   ; /
-    (latin-jisx0201    #x2F)   ; /
+    (->fullwidth
+     ((name              . "FULLWIDTH SOLIDUS")
+      (ucs               . #xFF0F)     ; /
+      ))
+    (ascii             . #x2F) ; 
+    (latin-jisx0201    . #x2F) ; 
+    (latin-viscii      . #x2F) ; /
+    (ucs               . #x002F)       ; /
     ))
 (define-char
   '((name              . "DIGIT ZERO")
-    (ucs               . #x0030)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 0)
-    (digit-value       . 0)
-    (numeric-value     . 0)
     (mirrored          . nil)
-    (ascii             #x30)   ; 0
-    (latin-jisx0201    #x30)   ; 0
+    (decimal-digit-value . 0)
+    (digit-value        . 0)
+    (numeric-value      . 0)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT ZERO")
+      (ucs               . #xFF10)     ; 0
+      ))
+    (ascii             . #x30) ; 
+    (latin-jisx0201    . #x30) ; 
+    (latin-viscii      . #x30) ; 0
+    (ucs               . #x0030)       ; 0
     ))
 (define-char
   '((name              . "DIGIT ONE")
-    (ucs               . #x0031)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 1)
-    (digit-value       . 1)
-    (numeric-value     . 1)
     (mirrored          . nil)
-    (ascii             #x31)   ; 1
-    (latin-jisx0201    #x31)   ; 1
+    (decimal-digit-value . 1)
+    (digit-value        . 1)
+    (numeric-value      . 1)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT ONE")
+      (ucs               . #xFF11)     ; 1
+      ))
+    (ascii             . #x31) ; 
+    (latin-jisx0201    . #x31) ; 
+    (latin-viscii      . #x31) ; 1
+    (ucs               . #x0031)       ; 1
     ))
 (define-char
   '((name              . "DIGIT TWO")
-    (ucs               . #x0032)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 2)
-    (digit-value       . 2)
-    (numeric-value     . 2)
     (mirrored          . nil)
-    (ascii             #x32)   ; 2
-    (latin-jisx0201    #x32)   ; 2
+    (decimal-digit-value . 2)
+    (digit-value        . 2)
+    (numeric-value      . 2)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT TWO")
+      (ucs               . #xFF12)     ; 2
+      ))
+    (ascii             . #x32) ; 
+    (latin-jisx0201    . #x32) ; 
+    (latin-viscii      . #x32) ; 2
+    (ucs               . #x0032)       ; 2
     ))
 (define-char
   '((name              . "DIGIT THREE")
-    (ucs               . #x0033)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 3)
-    (digit-value       . 3)
-    (numeric-value     . 3)
     (mirrored          . nil)
-    (ascii             #x33)   ; 3
-    (latin-jisx0201    #x33)   ; 3
+    (decimal-digit-value . 3)
+    (digit-value        . 3)
+    (numeric-value      . 3)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT THREE")
+      (ucs               . #xFF13)     ; 3
+      ))
+    (ascii             . #x33) ; 
+    (latin-jisx0201    . #x33) ; 
+    (latin-viscii      . #x33) ; 3
+    (ucs               . #x0033)       ; 3
     ))
 (define-char
   '((name              . "DIGIT FOUR")
-    (ucs               . #x0034)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 4)
-    (digit-value       . 4)
-    (numeric-value     . 4)
     (mirrored          . nil)
-    (ascii             #x34)   ; 4
-    (latin-jisx0201    #x34)   ; 4
+    (decimal-digit-value . 4)
+    (digit-value        . 4)
+    (numeric-value      . 4)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT FOUR")
+      (ucs               . #xFF14)     ; 4
+      ))
+    (ascii             . #x34) ; 
+    (latin-jisx0201    . #x34) ; 
+    (latin-viscii      . #x34) ; 4
+    (ucs               . #x0034)       ; 4
     ))
 (define-char
   '((name              . "DIGIT FIVE")
-    (ucs               . #x0035)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 5)
-    (digit-value       . 5)
-    (numeric-value     . 5)
     (mirrored          . nil)
-    (ascii             #x35)   ; 5
-    (latin-jisx0201    #x35)   ; 5
+    (decimal-digit-value . 5)
+    (digit-value        . 5)
+    (numeric-value      . 5)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT FIVE")
+      (ucs               . #xFF15)     ; 5
+      ))
+    (ascii             . #x35) ; 
+    (latin-jisx0201    . #x35) ; 
+    (latin-viscii      . #x35) ; 5
+    (ucs               . #x0035)       ; 5
     ))
 (define-char
   '((name              . "DIGIT SIX")
-    (ucs               . #x0036)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 6)
-    (digit-value       . 6)
-    (numeric-value     . 6)
     (mirrored          . nil)
-    (ascii             #x36)   ; 6
-    (latin-jisx0201    #x36)   ; 6
+    (decimal-digit-value . 6)
+    (digit-value        . 6)
+    (numeric-value      . 6)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT SIX")
+      (ucs               . #xFF16)     ; 6
+      ))
+    (ascii             . #x36) ; 
+    (latin-jisx0201    . #x36) ; 
+    (latin-viscii      . #x36) ; 6
+    (ucs               . #x0036)       ; 6
     ))
 (define-char
   '((name              . "DIGIT SEVEN")
-    (ucs               . #x0037)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 7)
-    (digit-value       . 7)
-    (numeric-value     . 7)
     (mirrored          . nil)
-    (ascii             #x37)   ; 7
-    (latin-jisx0201    #x37)   ; 7
+    (decimal-digit-value . 7)
+    (digit-value        . 7)
+    (numeric-value      . 7)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT SEVEN")
+      (ucs               . #xFF17)     ; 7
+      ))
+    (ascii             . #x37) ; 
+    (latin-jisx0201    . #x37) ; 
+    (latin-viscii      . #x37) ; 7
+    (ucs               . #x0037)       ; 7
     ))
 (define-char
   '((name              . "DIGIT EIGHT")
-    (ucs               . #x0038)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 8)
-    (digit-value       . 8)
-    (numeric-value     . 8)
     (mirrored          . nil)
-    (ascii             #x38)   ; 8
-    (latin-jisx0201    #x38)   ; 8
+    (decimal-digit-value . 8)
+    (digit-value        . 8)
+    (numeric-value      . 8)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT EIGHT")
+      (ucs               . #xFF18)     ; 8
+      ))
+    (ascii             . #x38) ; 
+    (latin-jisx0201    . #x38) ; 
+    (latin-viscii      . #x38) ; 8
+    (ucs               . #x0038)       ; 8
     ))
 (define-char
   '((name              . "DIGIT NINE")
-    (ucs               . #x0039)
     (general-category  number decimal-digit) ; Normative Category
     (bidi-category     . "EN")
-    (decimal-digit-value . 9)
-    (digit-value       . 9)
-    (numeric-value     . 9)
     (mirrored          . nil)
-    (ascii             #x39)   ; 9
-    (latin-jisx0201    #x39)   ; 9
+    (decimal-digit-value . 9)
+    (digit-value        . 9)
+    (numeric-value      . 9)
+    (->fullwidth
+     ((name              . "FULLWIDTH DIGIT NINE")
+      (ucs               . #xFF19)     ; 9
+      ))
+    (ascii             . #x39) ; 
+    (latin-jisx0201    . #x39) ; 
+    (latin-viscii      . #x39) ; 9
+    (ucs               . #x0039)       ; 9
     ))
 (define-char
   '((name              . "COLON")
-    (ucs               . #x003A)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "CS")
     (mirrored          . nil)
-    (ascii             #x3A)   ; :
-    (latin-jisx0201    #x3A)   ; :
+    (->fullwidth
+     ((name              . "FULLWIDTH COLON")
+      (ucs               . #xFF1A)     ; :
+      ))
+    (ascii             . #x3A) ; 
+    (latin-jisx0201    . #x3A) ; 
+    (arabic-1-column   . #x27) ; 
+    (latin-viscii      . #x3A) ; :
+    (ucs               . #x003A)       ; :
     ))
 (define-char
   '((name              . "SEMICOLON")
-    (ucs               . #x003B)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x3B)   ; ;
-    (latin-jisx0201    #x3B)   ; ;
+    (->fullwidth
+     ((name              . "FULLWIDTH SEMICOLON")
+      (ucs               . #xFF1B)     ; ;
+      ))
+    (ascii             . #x3B) ; 
+    (latin-jisx0201    . #x3B) ; 
+    (latin-viscii      . #x3B) ; ;
+    (ucs               . #x003B)       ; ;
     ))
 (define-char
   '((name              . "LESS-THAN SIGN")
-    (ucs               . #x003C)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (ascii             #x3C)   ; <
-    (latin-jisx0201    #x3C)   ; <
+    (->fullwidth
+     ((name              . "FULLWIDTH LESS-THAN SIGN")
+      (ucs               . #xFF1C)     ; <
+      ))
+    (ascii             . #x3C) ; 
+    (latin-jisx0201    . #x3C) ; 
+    (latin-viscii      . #x3C) ; <
+    (ucs               . #x003C)       ; <
     ))
 (define-char
   '((name              . "EQUALS SIGN")
-    (ucs               . #x003D)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x3D)   ; =
-    (latin-jisx0201    #x3D)   ; =
+    (->fullwidth
+     ((name              . "FULLWIDTH EQUALS SIGN")
+      (ucs               . #xFF1D)     ; =
+      ))
+    (ascii             . #x3D) ; 
+    (latin-jisx0201    . #x3D) ; 
+    (latin-viscii      . #x3D) ; =
+    (ucs               . #x003D)       ; =
     ))
 (define-char
   '((name              . "GREATER-THAN SIGN")
-    (ucs               . #x003E)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (ascii             #x3E)   ; >
-    (latin-jisx0201    #x3E)   ; >
+    (->fullwidth
+     ((name              . "FULLWIDTH GREATER-THAN SIGN")
+      (ucs               . #xFF1E)     ; >
+      ))
+    (ascii             . #x3E) ; 
+    (latin-jisx0201    . #x3E) ; 
+    (latin-viscii      . #x3E) ; >
+    (ucs               . #x003E)       ; >
     ))
 (define-char
   '((name              . "QUESTION MARK")
-    (ucs               . #x003F)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x3F)   ; ?
-    (latin-jisx0201    #x3F)   ; ?
+    (->fullwidth
+     ((name              . "FULLWIDTH QUESTION MARK")
+      (ucs               . #xFF1F)     ; ?
+      ))
+    (ascii             . #x3F) ; 
+    (latin-jisx0201    . #x3F) ; 
+    (latin-viscii      . #x3F) ; ?
+    (ucs               . #x003F)       ; ?
     ))
 (define-char
   '((name              . "COMMERCIAL AT")
-    (ucs               . #x0040)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x40)   ; @
-    (latin-jisx0201    #x40)   ; @
+    (->fullwidth
+     ((name              . "FULLWIDTH COMMERCIAL AT")
+      (ucs               . #xFF20)     ; @
+      ))
+    (ascii             . #x40) ; 
+    (latin-jisx0201    . #x40) ; 
+    (latin-viscii      . #x40) ; @
+    (ucs               . #x0040)       ; @
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER A")
-    (ucs               . #x0041)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0061)
-    (ascii             #x41)   ; A
-    (latin-jisx0201    #x41)   ; A
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER A")
+      (ucs               . #xFF21)     ; A
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER A")
+      (ucs               . #x0061)     ; a
+      ))
+    (ascii             . #x41) ; 
+    (latin-jisx0201    . #x41) ; 
+    (latin-viscii      . #x41) ; A
+    (ucs               . #x0041)       ; A
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER B")
-    (ucs               . #x0042)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0062)
-    (ascii             #x42)   ; B
-    (latin-jisx0201    #x42)   ; B
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER B")
+      (ucs               . #xFF22)     ; B
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER B")
+      (ucs               . #x0062)     ; b
+      ))
+    (ascii             . #x42) ; 
+    (latin-jisx0201    . #x42) ; 
+    (latin-viscii      . #x42) ; B
+    (ucs               . #x0042)       ; B
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER C")
-    (ucs               . #x0043)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0063)
-    (ascii             #x43)   ; C
-    (latin-jisx0201    #x43)   ; C
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER C")
+      (ucs               . #xFF23)     ; C
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER C")
+      (ucs               . #x0063)     ; c
+      ))
+    (ascii             . #x43) ; 
+    (latin-jisx0201    . #x43) ; 
+    (latin-viscii      . #x43) ; C
+    (ucs               . #x0043)       ; C
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER D")
-    (ucs               . #x0044)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0064)
-    (ascii             #x44)   ; D
-    (latin-jisx0201    #x44)   ; D
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER D")
+      (ucs               . #xFF24)     ; D
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER D")
+      (ucs               . #x0064)     ; d
+      ))
+    (ascii             . #x44) ; 
+    (latin-jisx0201    . #x44) ; 
+    (latin-viscii      . #x44) ; D
+    (ucs               . #x0044)       ; D
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER E")
-    (ucs               . #x0045)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0065)
-    (ascii             #x45)   ; E
-    (latin-jisx0201    #x45)   ; E
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER E")
+      (ucs               . #xFF25)     ; E
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER E")
+      (ucs               . #x0065)     ; e
+      ))
+    (ascii             . #x45) ; 
+    (latin-jisx0201    . #x45) ; 
+    (latin-viscii      . #x45) ; E
+    (ucs               . #x0045)       ; E
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER F")
-    (ucs               . #x0046)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0066)
-    (ascii             #x46)   ; F
-    (latin-jisx0201    #x46)   ; F
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER F")
+      (ucs               . #xFF26)     ; F
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER F")
+      (ucs               . #x0066)     ; f
+      ))
+    (ascii             . #x46) ; 
+    (latin-jisx0201    . #x46) ; 
+    (latin-viscii      . #x46) ; F
+    (ucs               . #x0046)       ; F
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER G")
-    (ucs               . #x0047)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0067)
-    (ascii             #x47)   ; G
-    (latin-jisx0201    #x47)   ; G
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER G")
+      (ucs               . #xFF27)     ; G
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER G")
+      (ucs               . #x0067)     ; g
+      ))
+    (ascii             . #x47) ; 
+    (latin-jisx0201    . #x47) ; 
+    (latin-viscii      . #x47) ; G
+    (ucs               . #x0047)       ; G
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER H")
-    (ucs               . #x0048)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0068)
-    (ascii             #x48)   ; H
-    (latin-jisx0201    #x48)   ; H
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER H")
+      (ucs               . #xFF28)     ; H
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER H")
+      (ucs               . #x0068)     ; h
+      ))
+    (ascii             . #x48) ; 
+    (latin-jisx0201    . #x48) ; 
+    (latin-viscii      . #x48) ; H
+    (ucs               . #x0048)       ; H
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER I")
-    (ucs               . #x0049)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0069)
-    (ascii             #x49)   ; I
-    (latin-jisx0201    #x49)   ; I
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER I")
+      (ucs               . #xFF29)     ; I
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER I")
+      (ucs               . #x0069)     ; i
+      ))
+    (ascii             . #x49) ; 
+    (latin-jisx0201    . #x49) ; 
+    (latin-viscii      . #x49) ; I
+    (ucs               . #x0049)       ; I
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER J")
-    (ucs               . #x004A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x006A)
-    (ascii             #x4A)   ; J
-    (latin-jisx0201    #x4A)   ; J
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER J")
+      (ucs               . #xFF2A)     ; J
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER J")
+      (ucs               . #x006A)     ; j
+      ))
+    (ascii             . #x4A) ; 
+    (latin-jisx0201    . #x4A) ; 
+    (latin-viscii      . #x4A) ; J
+    (ucs               . #x004A)       ; J
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER K")
-    (ucs               . #x004B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x006B)
-    (ascii             #x4B)   ; K
-    (latin-jisx0201    #x4B)   ; K
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER K")
+      (ucs               . #xFF2B)     ; K
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER K")
+      (ucs               . #x006B)     ; k
+      ))
+    (ascii             . #x4B) ; 
+    (latin-jisx0201    . #x4B) ; 
+    (latin-viscii      . #x4B) ; K
+    (ucs               . #x004B)       ; K
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER L")
-    (ucs               . #x004C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x006C)
-    (ascii             #x4C)   ; L
-    (latin-jisx0201    #x4C)   ; L
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER L")
+      (ucs               . #xFF2C)     ; L
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER L")
+      (ucs               . #x006C)     ; l
+      ))
+    (ascii             . #x4C) ; 
+    (latin-jisx0201    . #x4C) ; 
+    (latin-viscii      . #x4C) ; L
+    (ucs               . #x004C)       ; L
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER M")
-    (ucs               . #x004D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x006D)
-    (ascii             #x4D)   ; M
-    (latin-jisx0201    #x4D)   ; M
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER M")
+      (ucs               . #xFF2D)     ; M
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER M")
+      (ucs               . #x006D)     ; m
+      ))
+    (ascii             . #x4D) ; 
+    (latin-jisx0201    . #x4D) ; 
+    (latin-viscii      . #x4D) ; M
+    (ucs               . #x004D)       ; M
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER N")
-    (ucs               . #x004E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x006E)
-    (ascii             #x4E)   ; N
-    (latin-jisx0201    #x4E)   ; N
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER N")
+      (ucs               . #xFF2E)     ; N
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER N")
+      (ucs               . #x006E)     ; n
+      ))
+    (ascii             . #x4E) ; 
+    (latin-jisx0201    . #x4E) ; 
+    (latin-viscii      . #x4E) ; N
+    (ucs               . #x004E)       ; N
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER O")
-    (ucs               . #x004F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x006F)
-    (ascii             #x4F)   ; O
-    (latin-jisx0201    #x4F)   ; O
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER O")
+      (ucs               . #xFF2F)     ; O
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER O")
+      (ucs               . #x006F)     ; o
+      ))
+    (ascii             . #x4F) ; 
+    (latin-jisx0201    . #x4F) ; 
+    (latin-viscii      . #x4F) ; O
+    (ucs               . #x004F)       ; O
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER P")
-    (ucs               . #x0050)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0070)
-    (ascii             #x50)   ; P
-    (latin-jisx0201    #x50)   ; P
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER P")
+      (ucs               . #xFF30)     ; P
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER P")
+      (ucs               . #x0070)     ; p
+      ))
+    (ascii             . #x50) ; 
+    (latin-jisx0201    . #x50) ; 
+    (latin-viscii      . #x50) ; P
+    (ucs               . #x0050)       ; P
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER Q")
-    (ucs               . #x0051)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0071)
-    (ascii             #x51)   ; Q
-    (latin-jisx0201    #x51)   ; Q
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER Q")
+      (ucs               . #xFF31)     ; Q
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER Q")
+      (ucs               . #x0071)     ; q
+      ))
+    (ascii             . #x51) ; 
+    (latin-jisx0201    . #x51) ; 
+    (latin-viscii      . #x51) ; Q
+    (ucs               . #x0051)       ; Q
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER R")
-    (ucs               . #x0052)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0072)
-    (ascii             #x52)   ; R
-    (latin-jisx0201    #x52)   ; R
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER R")
+      (ucs               . #xFF32)     ; R
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER R")
+      (ucs               . #x0072)     ; r
+      ))
+    (ascii             . #x52) ; 
+    (latin-jisx0201    . #x52) ; 
+    (latin-viscii      . #x52) ; R
+    (ucs               . #x0052)       ; R
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER S")
-    (ucs               . #x0053)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0073)
-    (ascii             #x53)   ; S
-    (latin-jisx0201    #x53)   ; S
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER S")
+      (ucs               . #xFF33)     ; S
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER S")
+      (ucs               . #x0073)     ; s
+      ))
+    (ascii             . #x53) ; 
+    (latin-jisx0201    . #x53) ; 
+    (latin-viscii      . #x53) ; S
+    (ucs               . #x0053)       ; S
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER T")
-    (ucs               . #x0054)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0074)
-    (ascii             #x54)   ; T
-    (latin-jisx0201    #x54)   ; T
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER T")
+      (ucs               . #xFF34)     ; T
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER T")
+      (ucs               . #x0074)     ; t
+      ))
+    (ascii             . #x54) ; 
+    (latin-jisx0201    . #x54) ; 
+    (latin-viscii      . #x54) ; T
+    (ucs               . #x0054)       ; T
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER U")
-    (ucs               . #x0055)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0075)
-    (ascii             #x55)   ; U
-    (latin-jisx0201    #x55)   ; U
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER U")
+      (ucs               . #xFF35)     ; U
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER U")
+      (ucs               . #x0075)     ; u
+      ))
+    (ascii             . #x55) ; 
+    (latin-jisx0201    . #x55) ; 
+    (latin-viscii      . #x55) ; U
+    (ucs               . #x0055)       ; U
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER V")
-    (ucs               . #x0056)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0076)
-    (ascii             #x56)   ; V
-    (latin-jisx0201    #x56)   ; V
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER V")
+      (ucs               . #xFF36)     ; V
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER V")
+      (ucs               . #x0076)     ; v
+      ))
+    (ascii             . #x56) ; 
+    (latin-jisx0201    . #x56) ; 
+    (latin-viscii      . #x56) ; V
+    (ucs               . #x0056)       ; V
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER W")
-    (ucs               . #x0057)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0077)
-    (ascii             #x57)   ; W
-    (latin-jisx0201    #x57)   ; W
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER W")
+      (ucs               . #xFF37)     ; W
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER W")
+      (ucs               . #x0077)     ; w
+      ))
+    (ascii             . #x57) ; 
+    (latin-jisx0201    . #x57) ; 
+    (latin-viscii      . #x57) ; W
+    (ucs               . #x0057)       ; W
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER X")
-    (ucs               . #x0058)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0078)
-    (ascii             #x58)   ; X
-    (latin-jisx0201    #x58)   ; X
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER X")
+      (ucs               . #xFF38)     ; X
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER X")
+      (ucs               . #x0078)     ; x
+      ))
+    (ascii             . #x58) ; 
+    (latin-jisx0201    . #x58) ; 
+    (latin-viscii      . #x58) ; X
+    (ucs               . #x0058)       ; X
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER Y")
-    (ucs               . #x0059)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x0079)
-    (ascii             #x59)   ; Y
-    (latin-jisx0201    #x59)   ; Y
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER Y")
+      (ucs               . #xFF39)     ; Y
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER Y")
+      (ucs               . #x0079)     ; y
+      ))
+    (ascii             . #x59) ; 
+    (latin-jisx0201    . #x59) ; 
+    (latin-viscii      . #x59) ; Y
+    (ucs               . #x0059)       ; Y
     ))
 (define-char
   '((name              . "LATIN CAPITAL LETTER Z")
-    (ucs               . #x005A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x007A)
-    (ascii             #x5A)   ; Z
-    (latin-jisx0201    #x5A)   ; Z
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN CAPITAL LETTER Z")
+      (ucs               . #xFF3A)     ; Z
+      ))
+    (->lowercase
+     ((name              . "LATIN SMALL LETTER Z")
+      (ucs               . #x007A)     ; z
+      ))
+    (ascii             . #x5A) ; 
+    (latin-jisx0201    . #x5A) ; 
+    (latin-viscii      . #x5A) ; Z
+    (ucs               . #x005A)       ; Z
     ))
 (define-char
   '((name              . "LEFT SQUARE BRACKET")
-    (ucs               . #x005B)
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (ascii             #x5B)   ; [
-    (latin-jisx0201    #x5B)   ; [
+    (->fullwidth
+     ((name              . "FULLWIDTH LEFT SQUARE BRACKET")
+      (ucs               . #xFF3B)     ; [
+      ))
+    (ascii             . #x5B) ; 
+    (latin-jisx0201    . #x5B) ; 
+    (latin-viscii      . #x5B) ; [
+    (ucs               . #x005B)       ; [
     ))
 (define-char
   '((name              . "REVERSE SOLIDUS")
-    (ucs               . #x005C)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x5C)   ; \
+    (->fullwidth
+     ((name              . "FULLWIDTH REVERSE SOLIDUS")
+      (ucs               . #xFF3C)     ; \
+      ))
+    (ascii             . #x5C) ; 
+    (latin-viscii      . #x5C) ; \
+    (ucs               . #x005C)       ; \
     ))
 (define-char
   '((name              . "RIGHT SQUARE BRACKET")
-    (ucs               . #x005D)
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (ascii             #x5D)   ; ]
-    (latin-jisx0201    #x5D)   ; ]
+    (->fullwidth
+     ((name              . "FULLWIDTH RIGHT SQUARE BRACKET")
+      (ucs               . #xFF3D)     ; ]
+      ))
+    (ascii             . #x5D) ; 
+    (latin-jisx0201    . #x5D) ; 
+    (latin-viscii      . #x5D) ; ]
+    (ucs               . #x005D)       ; ]
     ))
 (define-char
   '((name              . "CIRCUMFLEX ACCENT")
-    (ucs               . #x005E)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x5E)   ; ^
-    (latin-jisx0201    #x5E)   ; ^
+    (->fullwidth
+     ((name              . "FULLWIDTH CIRCUMFLEX ACCENT")
+      (ucs               . #xFF3E)     ; ^
+      ))
+    (ascii             . #x5E) ; 
+    (latin-jisx0201    . #x5E) ; 
+    (latin-viscii      . #x5E) ; ^
+    (ucs               . #x005E)       ; ^
     ))
 (define-char
   '((name              . "LOW LINE")
-    (ucs               . #x005F)
     (general-category  punctuation connector) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x5F)   ; _
-    (latin-jisx0201    #x5F)   ; _
+    (->fullwidth
+     ((name              . "FULLWIDTH LOW LINE")
+      (ucs               . #xFF3F)     ; _
+      ))
+    (ascii             . #x5F) ; 
+    (latin-jisx0201    . #x5F) ; 
+    (latin-viscii      . #x5F) ; _
+    (ucs               . #x005F)       ; _
     ))
 (define-char
   '((name              . "GRAVE ACCENT")
-    (ucs               . #x0060)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x60)   ; `
-    (latin-jisx0201    #x60)   ; `
+    (->fullwidth
+     ((name              . "FULLWIDTH GRAVE ACCENT")
+      (ucs               . #xFF40)     ; `
+      ))
+    (ascii             . #x60) ; 
+    (latin-jisx0201    . #x60) ; 
+    (latin-viscii      . #x60) ; `
+    (ucs               . #x0060)       ; `
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER A")
-    (ucs               . #x0061)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0041)
-    (->titlecase       #x0041)
-    (ascii             #x61)   ; a
-    (latin-jisx0201    #x61)   ; a
-    (ipa       #x25)   ; a
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER A")
+      (ucs               . #xFF41)     ; a
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER A")
+      (ucs               . #x0041)     ; A
+      ))
+    (ascii             . #x61) ; 
+    (latin-jisx0201    . #x61) ; 
+    (ipa               . #xA5) ; 
+    (latin-viscii      . #x61) ; a
+    (ucs               . #x0061)       ; a
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER B")
-    (ucs               . #x0062)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0042)
-    (->titlecase       #x0042)
-    (ascii             #x62)   ; b
-    (latin-jisx0201    #x62)   ; b
-    (ipa               #x41)   ; b
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER B")
+      (ucs               . #xFF42)     ; b
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER B")
+      (ucs               . #x0042)     ; B
+      ))
+    (ascii             . #x62) ; 
+    (latin-jisx0201    . #x62) ; 
+    (ipa               . #xC1) ; 
+    (latin-viscii      . #x62) ; b
+    (ucs               . #x0062)       ; b
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER C")
-    (ucs               . #x0063)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0043)
-    (->titlecase       #x0043)
-    (ascii             #x63)   ; c
-    (latin-jisx0201    #x63)   ; c
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER C")
+      (ucs               . #xFF43)     ; c
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER C")
+      (ucs               . #x0043)     ; C
+      ))
+    (ascii             . #x63) ; 
+    (latin-jisx0201    . #x63) ; 
+    (latin-viscii      . #x63) ; c
+    (ucs               . #x0063)       ; c
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER D")
-    (ucs               . #x0064)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0044)
-    (->titlecase       #x0044)
-    (ascii             #x64)   ; d
-    (latin-jisx0201    #x64)   ; d
-    (ipa       #x43)   ; d
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER D")
+      (ucs               . #xFF44)     ; d
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER D")
+      (ucs               . #x0044)     ; D
+      ))
+    (ascii             . #x64) ; 
+    (latin-jisx0201    . #x64) ; 
+    (ipa               . #xC3) ; 
+    (latin-viscii      . #x64) ; d
+    (ucs               . #x0064)       ; d
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER E")
-    (ucs               . #x0065)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0045)
-    (->titlecase       #x0045)
-    (ascii             #x65)   ; e
-    (latin-jisx0201    #x65)   ; e
-    (ipa       #x22)   ; e
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER E")
+      (ucs               . #xFF45)     ; e
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER E")
+      (ucs               . #x0045)     ; E
+      ))
+    (ascii             . #x65) ; 
+    (latin-jisx0201    . #x65) ; 
+    (ipa               . #xA2) ; 
+    (latin-viscii      . #x65) ; e
+    (ucs               . #x0065)       ; e
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER F")
-    (ucs               . #x0066)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0046)
-    (->titlecase       #x0046)
-    (ascii             #x66)   ; f
-    (latin-jisx0201    #x66)   ; f
-    (ipa       #x46)   ; f
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER F")
+      (ucs               . #xFF46)     ; f
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER F")
+      (ucs               . #x0046)     ; F
+      ))
+    (ascii             . #x66) ; 
+    (latin-jisx0201    . #x66) ; 
+    (ipa               . #xC6) ; 
+    (latin-viscii      . #x66) ; f
+    (ucs               . #x0066)       ; f
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER G")
-    (ucs               . #x0067)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0047)
-    (->titlecase       #x0047)
-    (ascii             #x67)   ; g
-    (latin-jisx0201    #x67)   ; g
-    (ipa       #x45)   ; g
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER G")
+      (ucs               . #xFF47)     ; g
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER G")
+      (ucs               . #x0047)     ; G
+      ))
+    (ascii             . #x67) ; 
+    (latin-jisx0201    . #x67) ; 
+    (ipa               . #xC5) ; 
+    (latin-viscii      . #x67) ; g
+    (ucs               . #x0067)       ; g
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER H")
-    (ucs               . #x0068)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0048)
-    (->titlecase       #x0048)
-    (ascii             #x68)   ; h
-    (latin-jisx0201    #x68)   ; h
-    (ipa       #x51)   ; h
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER H")
+      (ucs               . #xFF48)     ; h
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER H")
+      (ucs               . #x0048)     ; H
+      ))
+    (ascii             . #x68) ; 
+    (latin-jisx0201    . #x68) ; 
+    (ipa               . #xD1) ; 
+    (latin-viscii      . #x68) ; h
+    (ucs               . #x0068)       ; h
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER I")
-    (ucs               . #x0069)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0049)
-    (->titlecase       #x0049)
-    (ascii             #x69)   ; i
-    (latin-jisx0201    #x69)   ; i
-    (ipa       #x20)   ; i
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER I")
+      (ucs               . #xFF49)     ; i
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER I")
+      (ucs               . #x0049)     ; I
+      ))
+    (ascii             . #x69) ; 
+    (latin-jisx0201    . #x69) ; 
+    (ipa               . #xA0) ; 
+    (latin-viscii      . #x69) ; i
+    (ucs               . #x0069)       ; i
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER J")
-    (ucs               . #x006A)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x004A)
-    (->titlecase       #x004A)
-    (ascii             #x6A)   ; j
-    (latin-jisx0201    #x6A)   ; j
-    (ipa       #x59)   ; j
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER J")
+      (ucs               . #xFF4A)     ; j
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER J")
+      (ucs               . #x004A)     ; J
+      ))
+    (ascii             . #x6A) ; 
+    (latin-jisx0201    . #x6A) ; 
+    (ipa               . #xD9) ; 
+    (latin-viscii      . #x6A) ; j
+    (ucs               . #x006A)       ; j
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER K")
-    (ucs               . #x006B)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x004B)
-    (->titlecase       #x004B)
-    (ascii             #x6B)   ; k
-    (latin-jisx0201    #x6B)   ; k
-    (ipa       #x44)   ; k
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER K")
+      (ucs               . #xFF4B)     ; k
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER K")
+      (ucs               . #x004B)     ; K
+      ))
+    (ascii             . #x6B) ; 
+    (latin-jisx0201    . #x6B) ; 
+    (ipa               . #xC4) ; 
+    (latin-viscii      . #x6B) ; k
+    (ucs               . #x006B)       ; k
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER L")
-    (ucs               . #x006C)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x004C)
-    (->titlecase       #x004C)
-    (ascii             #x6C)   ; l
-    (latin-jisx0201    #x6C)   ; l
-    (ipa       #x5A)   ; l
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER L")
+      (ucs               . #xFF4C)     ; l
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER L")
+      (ucs               . #x004C)     ; L
+      ))
+    (ascii             . #x6C) ; 
+    (latin-jisx0201    . #x6C) ; 
+    (ipa               . #xDA) ; 
+    (latin-viscii      . #x6C) ; l
+    (ucs               . #x006C)       ; l
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER M")
-    (ucs               . #x006D)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x004D)
-    (->titlecase       #x004D)
-    (ascii             #x6D)   ; m
-    (latin-jisx0201    #x6D)   ; m
-    (ipa       #x52)   ; m
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER M")
+      (ucs               . #xFF4D)     ; m
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER M")
+      (ucs               . #x004D)     ; M
+      ))
+    (ascii             . #x6D) ; 
+    (latin-jisx0201    . #x6D) ; 
+    (ipa               . #xD2) ; 
+    (latin-viscii      . #x6D) ; m
+    (ucs               . #x006D)       ; m
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER N")
-    (ucs               . #x006E)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x004E)
-    (->titlecase       #x004E)
-    (ascii             #x6E)   ; n
-    (latin-jisx0201    #x6E)   ; n
-    (ipa       #x53)   ; n
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER N")
+      (ucs               . #xFF4E)     ; n
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER N")
+      (ucs               . #x004E)     ; N
+      ))
+    (ascii             . #x6E) ; 
+    (latin-jisx0201    . #x6E) ; 
+    (ipa               . #xD3) ; 
+    (latin-viscii      . #x6E) ; n
+    (ucs               . #x006E)       ; n
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER O")
-    (ucs               . #x006F)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x004F)
-    (->titlecase       #x004F)
-    (ascii             #x6F)   ; o
-    (latin-jisx0201    #x6F)   ; o
-    (ipa       #x36)   ; o
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER O")
+      (ucs               . #xFF4F)     ; o
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER O")
+      (ucs               . #x004F)     ; O
+      ))
+    (ascii             . #x6F) ; 
+    (latin-jisx0201    . #x6F) ; 
+    (ipa               . #xB6) ; 
+    (latin-viscii      . #x6F) ; o
+    (ucs               . #x006F)       ; o
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER P")
-    (ucs               . #x0070)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0050)
-    (->titlecase       #x0050)
-    (ascii             #x70)   ; p
-    (latin-jisx0201    #x70)   ; p
-    (ipa       #x40)   ; p
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER P")
+      (ucs               . #xFF50)     ; p
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER P")
+      (ucs               . #x0050)     ; P
+      ))
+    (ascii             . #x70) ; 
+    (latin-jisx0201    . #x70) ; 
+    (ipa               . #xC0) ; 
+    (latin-viscii      . #x70) ; p
+    (ucs               . #x0070)       ; p
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER Q")
-    (ucs               . #x0071)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0051)
-    (->titlecase       #x0051)
-    (ascii             #x71)   ; q
-    (latin-jisx0201    #x71)   ; q
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER Q")
+      (ucs               . #xFF51)     ; q
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER Q")
+      (ucs               . #x0051)     ; Q
+      ))
+    (ascii             . #x71) ; 
+    (latin-jisx0201    . #x71) ; 
+    (latin-viscii      . #x71) ; q
+    (ucs               . #x0071)       ; q
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER R")
-    (ucs               . #x0072)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0052)
-    (->titlecase       #x0052)
-    (ascii             #x72)   ; r
-    (latin-jisx0201    #x72)   ; r
-    (ipa       #x56)   ; r
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER R")
+      (ucs               . #xFF52)     ; r
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER R")
+      (ucs               . #x0052)     ; R
+      ))
+    (ascii             . #x72) ; 
+    (latin-jisx0201    . #x72) ; 
+    (ipa               . #xD6) ; 
+    (latin-viscii      . #x72) ; r
+    (ucs               . #x0072)       ; r
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER S")
-    (ucs               . #x0073)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0053)
-    (->titlecase       #x0053)
-    (ascii             #x73)   ; s
-    (latin-jisx0201    #x73)   ; s
-    (ipa       #x4A)   ; s
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER S")
+      (ucs               . #xFF53)     ; s
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER S")
+      (ucs               . #x0053)     ; S
+      ))
+    (ascii             . #x73) ; 
+    (latin-jisx0201    . #x73) ; 
+    (ipa               . #xCA) ; 
+    (latin-viscii      . #x73) ; s
+    (ucs               . #x0073)       ; s
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER T")
-    (ucs               . #x0074)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0054)
-    (->titlecase       #x0054)
-    (ascii             #x74)   ; t
-    (latin-jisx0201    #x74)   ; t
-    (ipa       #x42)   ; t
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER T")
+      (ucs               . #xFF54)     ; t
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER T")
+      (ucs               . #x0054)     ; T
+      ))
+    (ascii             . #x74) ; 
+    (latin-jisx0201    . #x74) ; 
+    (ipa               . #xC2) ; 
+    (latin-viscii      . #x74) ; t
+    (ucs               . #x0074)       ; t
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER U")
-    (ucs               . #x0075)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0055)
-    (->titlecase       #x0055)
-    (ascii             #x75)   ; u
-    (latin-jisx0201    #x75)   ; u
-    (ipa       #x34)   ; u
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER U")
+      (ucs               . #xFF55)     ; u
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER U")
+      (ucs               . #x0055)     ; U
+      ))
+    (ascii             . #x75) ; 
+    (latin-jisx0201    . #x75) ; 
+    (ipa               . #xB4) ; 
+    (latin-viscii      . #x75) ; u
+    (ucs               . #x0075)       ; u
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER V")
-    (ucs               . #x0076)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0056)
-    (->titlecase       #x0056)
-    (ascii             #x76)   ; v
-    (latin-jisx0201    #x76)   ; v
-    (ipa       #x47)   ; v
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER V")
+      (ucs               . #xFF56)     ; v
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER V")
+      (ucs               . #x0056)     ; V
+      ))
+    (ascii             . #x76) ; 
+    (latin-jisx0201    . #x76) ; 
+    (ipa               . #xC7) ; 
+    (latin-viscii      . #x76) ; v
+    (ucs               . #x0076)       ; v
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER W")
-    (ucs               . #x0077)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0057)
-    (->titlecase       #x0057)
-    (ascii             #x77)   ; w
-    (latin-jisx0201    #x77)   ; w
-    (ipa               #x5E)
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER W")
+      (ucs               . #xFF57)     ; w
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER W")
+      (ucs               . #x0057)     ; W
+      ))
+    (ascii             . #x77) ; 
+    (latin-jisx0201    . #x77) ; 
+    (ipa               . #xDE) ; 
+    (latin-viscii      . #x77) ; w
+    (ucs               . #x0077)       ; w
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER X")
-    (ucs               . #x0078)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0058)
-    (->titlecase       #x0058)
-    (ascii             #x78)   ; x
-    (latin-jisx0201    #x78)   ; x
-    (ipa       #x4F)   ; x
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER X")
+      (ucs               . #xFF58)     ; x
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER X")
+      (ucs               . #x0058)     ; X
+      ))
+    (ascii             . #x78) ; 
+    (latin-jisx0201    . #x78) ; 
+    (ipa               . #xCF) ; 
+    (latin-viscii      . #x78) ; x
+    (ucs               . #x0078)       ; x
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER Y")
-    (ucs               . #x0079)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0059)
-    (->titlecase       #x0059)
-    (ascii             #x79)   ; y
-    (latin-jisx0201    #x79)   ; y
-    (ipa       #x2D)   ; y
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER Y")
+      (ucs               . #xFF59)     ; y
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER Y")
+      (ucs               . #x0059)     ; Y
+      ))
+    (ascii             . #x79) ; 
+    (latin-jisx0201    . #x79) ; 
+    (ipa               . #xAD) ; 
+    (latin-viscii      . #x79) ; y
+    (ucs               . #x0079)       ; y
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER Z")
-    (ucs               . #x007A)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x005A)
-    (->titlecase       #x005A)
-    (ascii             #x7A)   ; z
-    (latin-jisx0201    #x7A)   ; z
-    (ipa       #x4B)   ; z
+    (->fullwidth
+     ((name              . "FULLWIDTH LATIN SMALL LETTER Z")
+      (ucs               . #xFF5A)     ; z
+      ))
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER Z")
+      (ucs               . #x005A)     ; Z
+      ))
+    (ascii             . #x7A) ; 
+    (latin-jisx0201    . #x7A) ; 
+    (ipa               . #xCB) ; 
+    (latin-viscii      . #x7A) ; z
+    (ucs               . #x007A)       ; z
     ))
 (define-char
   '((name              . "LEFT CURLY BRACKET")
-    (ucs               . #x007B)
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (ascii             #x7B)   ; {
-    (latin-jisx0201    #x7B)   ; {
+    (->fullwidth
+     ((name              . "FULLWIDTH LEFT CURLY BRACKET")
+      (ucs               . #xFF5B)     ; {
+      ))
+    (ascii             . #x7B) ; 
+    (latin-jisx0201    . #x7B) ; 
+    (latin-viscii      . #x7B) ; {
+    (ucs               . #x007B)       ; {
     ))
 (define-char
   '((name              . "VERTICAL LINE")
-    (ucs               . #x007C)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x7C)   ; |
-    (latin-jisx0201    #x7C)   ; |
+    (->fullwidth
+     ((name              . "FULLWIDTH VERTICAL LINE")
+      (ucs               . #xFF5C)     ; |
+      ))
+    (ascii             . #x7C) ; 
+    (latin-jisx0201    . #x7C) ; 
+    (latin-viscii      . #x7C) ; |
+    (ucs               . #x007C)       ; |
     ))
 (define-char
   '((name              . "RIGHT CURLY BRACKET")
-    (ucs               . #x007D)
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (ascii             #x7D)   ; }
-    (latin-jisx0201    #x7D)   ; }
+    (->fullwidth
+     ((name              . "FULLWIDTH RIGHT CURLY BRACKET")
+      (ucs               . #xFF5D)     ; }
+      ))
+    (ascii             . #x7D) ; 
+    (latin-jisx0201    . #x7D) ; 
+    (latin-viscii      . #x7D) ; }
+    (ucs               . #x007D)       ; }
     ))
 (define-char
   '((name              . "TILDE")
-    (ucs               . #x007E)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ascii             #x7E)   ; ~
+    (->fullwidth
+     ((name              . "FULLWIDTH TILDE")
+      (ucs               . #xFF5E)     ; ~
+      ))
+    (ascii             . #x7E) ; 
+    (latin-viscii      . #x7E) ; ~
+    (ucs               . #x007E)       ; ~
     ))
 (define-char
-  '((ucs               . #x007F)
+  '((name              . "DELETE")
     (general-category  other control) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
-    (ascii             #x7F)
+    (ascii             . #x7F) ; 
+    (latin-viscii      . #x7F) ; ␡
+    (ucs               . #x007F)       ; ␡
     ))