Sync up with r21-4-12-chise-0_21-gt-j0-r166.
[chise/xemacs-chise.git] / lisp / utf-2000 / u02000-General-Punctuation.el
index 3524625..7d47a44 100644 (file)
 (define-char
   '((name              . "EN QUAD")
-    (ucs               . #x2000)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   #x2002)
+    (=ucs              . #x2000)       ;  
     ))
 (define-char
   '((name              . "EM QUAD")
-    (ucs               . #x2001)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   #x2003)
+    (=ucs              . #x2001)       ;  
     ))
 (define-char
   '((name              . "EN SPACE")
-    (ucs               . #x2002)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   compat #x0020)
+    (=ucs              . #x2002)       ;  
     ))
 (define-char
   '((name              . "EM SPACE")
-    (ucs               . #x2003)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   compat #x0020)
-    (chinese-cns11643-1 #x25 #x6D)     ; \e$(G%m\e(B
+    (=cns11643-1       . #x256D)       ; 
+    (=ucs              . #x2003)       ;  
     ))
 (define-char
   '((name              . "THREE-PER-EM SPACE")
-    (ucs               . #x2004)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   compat #x0020)
+    (=ucs              . #x2004)       ;  
     ))
 (define-char
   '((name              . "FOUR-PER-EM SPACE")
-    (ucs               . #x2005)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   compat #x0020)
+    (=ucs              . #x2005)       ;  
     ))
 (define-char
   '((name              . "SIX-PER-EM SPACE")
-    (ucs               . #x2006)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   compat #x0020)
+    (=ucs              . #x2006)       ;  
     ))
 (define-char
   '((name              . "FIGURE SPACE")
-    (ucs               . #x2007)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   noBreak #x0020)
+    (=ucs              . #x2007)       ;  
     ))
 (define-char
   '((name              . "PUNCTUATION SPACE")
-    (ucs               . #x2008)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   compat #x0020)
+    (=ucs              . #x2008)       ;  
     ))
 (define-char
   '((name              . "THIN SPACE")
-    (ucs               . #x2009)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   compat #x0020)
+    (=ucs              . #x2009)       ;  
     ))
 (define-char
   '((name              . "HAIR SPACE")
-    (ucs               . #x200A)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   compat #x0020)
+    (=ucs              . #x200A)       ;  
     ))
 (define-char
   '((name              . "ZERO WIDTH SPACE")
-    (ucs               . #x200B)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
+    (=ucs              . #x200B)       ; ​
     ))
 (define-char
   '((name              . "ZERO WIDTH NON-JOINER")
-    (ucs               . #x200C)
     (general-category  other format) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
+    (=ucs              . #x200C)       ; ‌
     ))
 (define-char
   '((name              . "ZERO WIDTH JOINER")
-    (ucs               . #x200D)
     (general-category  other format) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
+    (=ucs              . #x200D)       ; ‍
     ))
 (define-char
   '((name              . "LEFT-TO-RIGHT MARK")
-    (ucs               . #x200E)
     (general-category  other format) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x200E)       ; ‎
     ))
 (define-char
   '((name              . "RIGHT-TO-LEFT MARK")
-    (ucs               . #x200F)
     (general-category  other format) ; Normative Category
     (bidi-category     . "R")
     (mirrored          . nil)
+    (=ucs              . #x200F)       ; ‏
     ))
 (define-char
   '((name              . "HYPHEN")
-    (ucs               . #x2010)
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x3E)      ; \e$(@!>\e(B
-    (japanese-jisx0208         #x21 #x3E)      ; \e$(B!>\e(B
+    (=jis-x0208                . #x213E)       ; 
+    (=ucs              . #x2010)       ; ‐
     ))
 (define-char
   '((name              . "NON-BREAKING HYPHEN")
-    (ucs               . #x2011)
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   noBreak #x2010)
+    (=ucs              . #x2011)       ; ‑
     ))
 (define-char
   '((name              . "FIGURE DASH")
-    (ucs               . #x2012)
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x2012)       ; ‒
     ))
 (define-char
   '((name              . "EN DASH")
-    (ucs               . #x2013)
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (chinese-cns11643-1 #x21 #x39)     ; \e$(G!9\e(B
+    (=cns11643-1       . #x2139)       ; 
+    (=jis-x0213-1-2000 . #x237C)       ; 
+    (=big5             . #xA156)       ; 
+    (=ucs              . #x2013)       ; –
     ))
 (define-char
   '((name              . "EM DASH")
-    (ucs               . #x2014)
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x3D)      ; \e$(@!=\e(B
-    (japanese-jisx0208         #x21 #x3D)      ; \e$(B!=\e(B
-    (chinese-cns11643-1                #x21 #x37)      ; \e$(G!7\e(B
+    (=jis-x0208                . #x213D)       ; 
+    (=cns11643-1       . #x2137)       ; 
+    (=big5             . #xA158)       ; 
+    (=ucs              . #x2014)       ; —
     ))
 (define-char
   '((name              . "HORIZONTAL BAR")
-    (ucs               . #x2015)
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (chinese-gb2312    #x21 #x2A)      ; \e$(A!*\e(B
-    (korean-ksc5601    #x21 #x2A)      ; \e$(C!*\e(B
+    (=gb2312           . #x212A)       ; 
+    (=ks-x1001         . #x212A)       ; 
+    (=ucs              . #x2015)       ; ―
     ))
 (define-char
   '((name              . "HALFWIDTH HORIZONTAL BAR")
-    (->ucs             . #x2015)
+    (=>ucs             . #x2015)       ; ―
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x2015)
-    (greek-iso8859-7   #xAF)   ; \e-F¯\e-A
+    (greek-iso8859-7   . #xAF) ; 
     ))
 (define-char
   '((name              . "DOUBLE VERTICAL LINE")
-    (ucs               . #x2016)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x42)      ; \e$(@!B\e(B
-    (chinese-gb2312            #x21 #x2C)      ; \e$(A!,\e(B
-    (japanese-jisx0208         #x21 #x42)      ; \e$(B!B\e(B
-    (chinese-cns11643-1                #x22 #x5D)      ; \e$(G"]\e(B
+    (=gb2312           . #x212C)       ; 
+    (=jis-x0208                . #x2142)       ; 
+    (=cns11643-1       . #x225D)       ; 
+    (=ucs              . #x2016)       ; ‖
     ))
 (define-char
   '((name              . "DOUBLE LOW LINE")
-    (ucs               . #x2017)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0333)
-    (hebrew-iso8859-8  #xDF)   ; \9b2]\e-Hß\9b0]\e-A
+    (hebrew-iso8859-8  . #xDF) ; 
+    (=ucs              . #x2017)       ; ‗
     ))
 (define-char
   '((name              . "LEFT SINGLE QUOTATION MARK")
-    (ucs               . #x2018)
     (general-category  punctuation initial-quote) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x46)      ; \e$(@!F\e(B
-    (chinese-gb2312            #x21 #x2E)      ; \e$(A!.\e(B
-    (japanese-jisx0208         #x21 #x46)      ; \e$(B!F\e(B
-    (korean-ksc5601            #x21 #x2E)      ; \e$(C!.\e(B
-    (chinese-cns11643-1                #x21 #x64)      ; \e$(G!d\e(B
+    (=gb2312           . #x212E)       ; 
+    (=jis-x0208                . #x2146)       ; 
+    (=ks-x1001         . #x212E)       ; 
+    (=cns11643-1       . #x2164)       ; 
+    (=big5             . #xA1A5)       ; 
+    (=ucs              . #x2018)       ; ‘
     ))
 (define-char
   '((name              . "RIGHT SINGLE QUOTATION MARK")
-    (ucs               . #x2019)
     (general-category  punctuation final-quote) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x47)      ; \e$(@!G\e(B
-    (chinese-gb2312            #x21 #x2F)      ; \e$(A!/\e(B
-    (japanese-jisx0208         #x21 #x47)      ; \e$(B!G\e(B
-    (korean-ksc5601            #x21 #x2F)      ; \e$(C!/\e(B
-    (chinese-cns11643-1                #x21 #x65)      ; \e$(G!e\e(B
+    (=gb2312           . #x212F)       ; 
+    (=jis-x0208                . #x2147)       ; 
+    (=ks-x1001         . #x212F)       ; 
+    (=cns11643-1       . #x2165)       ; 
+    (=big5             . #xA1A6)       ; 
+    (=ucs              . #x2019)       ; ’
     ))
 (define-char
   '((name              . "SINGLE LOW-9 QUOTATION MARK")
-    (ucs               . #x201A)
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x201A)       ; ‚
     ))
 (define-char
   '((name              . "SINGLE HIGH-REVERSED-9 QUOTATION MARK")
-    (ucs               . #x201B)
     (general-category  punctuation initial-quote) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x201B)       ; ‛
     ))
 (define-char
   '((name              . "LEFT DOUBLE QUOTATION MARK")
-    (ucs               . #x201C)
     (general-category  punctuation initial-quote) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x48)      ; \e$(@!H\e(B
-    (chinese-gb2312            #x21 #x30)      ; \e$(A!0\e(B
-    (japanese-jisx0208         #x21 #x48)      ; \e$(B!H\e(B
-    (korean-ksc5601            #x21 #x30)      ; \e$(C!0\e(B
-    (chinese-cns11643-1                #x21 #x66)      ; \e$(G!f\e(B
+    (=gb2312           . #x2130)       ; 
+    (=jis-x0208                . #x2148)       ; 
+    (=ks-x1001         . #x2130)       ; 
+    (=cns11643-1       . #x2166)       ; 
+    (=big5             . #xA1A7)       ; 
+    (=ucs              . #x201C)       ; “
     ))
 (define-char
   '((name              . "RIGHT DOUBLE QUOTATION MARK")
-    (ucs               . #x201D)
     (general-category  punctuation final-quote) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x49)      ; \e$(@!I\e(B
-    (chinese-gb2312            #x21 #x31)      ; \e$(A!1\e(B
-    (japanese-jisx0208         #x21 #x49)      ; \e$(B!I\e(B
-    (korean-ksc5601            #x21 #x31)      ; \e$(C!1\e(B
-    (chinese-cns11643-1                #x21 #x67)      ; \e$(G!g\e(B
+    (=gb2312           . #x2131)       ; 
+    (=jis-x0208                . #x2149)       ; 
+    (=ks-x1001         . #x2131)       ; 
+    (=cns11643-1       . #x2167)       ; 
+    (=big5             . #xA1A8)       ; 
+    (=ucs              . #x201D)       ; ”
     ))
 (define-char
   '((name              . "DOUBLE LOW-9 QUOTATION MARK")
-    (ucs               . #x201E)
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x201E)       ; „
     ))
 (define-char
   '((name              . "DOUBLE HIGH-REVERSED-9 QUOTATION MARK")
-    (ucs               . #x201F)
     (general-category  punctuation initial-quote) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x201F)       ; ‟
     ))
 (define-char
   '((name              . "DAGGER")
-    (ucs               . #x2020)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208 #x22 #x77)      ; \e$(B"w\e(B
-    (korean-ksc5601    #x22 #x53)      ; \e$(C"S\e(B
+    (=jis-x0208-1983   . #x2277)       ; 
+    (=ks-x1001         . #x2253)       ; 
+    (=jis-x0208-1990   . #x2277)       ; 
+    (=ucs              . #x2020)       ; †
     ))
 (define-char
   '((name              . "DOUBLE DAGGER")
-    (ucs               . #x2021)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208 #x22 #x78)      ; \e$(B"x\e(B
-    (korean-ksc5601    #x22 #x54)      ; \e$(C"T\e(B
+    (=jis-x0208-1983   . #x2278)       ; 
+    (=ks-x1001         . #x2254)       ; 
+    (=jis-x0208-1990   . #x2278)       ; 
+    (=ucs              . #x2021)       ; ‡
     ))
 (define-char
   '((name              . "BULLET")
-    (ucs               . #x2022)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=jis-x0213-1-2000 . #x2340)       ; 
+    (=ucs              . #x2022)       ; •
     ))
 (define-char
   '((name              . "TRIANGULAR BULLET")
-    (ucs               . #x2023)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x2023)       ; ‣
     ))
 (define-char
   '((name              . "ONE DOT LEADER")
-    (ucs               . #x2024)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x002E)
+    (=ucs              . #x2024)       ; ․
     ))
 (define-char
   '((name              . "TWO DOT LEADER")
-    (ucs               . #x2025)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x002E #x002E)
-    (japanese-jisx0208-1978    #x21 #x45)      ; \e$(@!E\e(B
-    (japanese-jisx0208         #x21 #x45)      ; \e$(B!E\e(B
-    (korean-ksc5601            #x21 #x25)      ; \e$(C!%\e(B
-    (chinese-cns11643-1                #x21 #x2D)      ; \e$(G!-\e(B
+    (=jis-x0208                . #x2145)       ; 
+    (=ks-x1001         . #x2125)       ; 
+    (=cns11643-1       . #x212D)       ; 
+    (=big5             . #xA14C)       ; 
+    (=ucs              . #x2025)       ; ‥
     ))
 (define-char
   '((name              . "HORIZONTAL ELLIPSIS")
-    (ucs               . #x2026)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x002E #x002E #x002E)
-    (japanese-jisx0208-1978    #x21 #x44)      ; \e$(@!D\e(B
-    (chinese-gb2312            #x21 #x2D)      ; \e$(A!-\e(B
-    (japanese-jisx0208         #x21 #x44)      ; \e$(B!D\e(B
-    (korean-ksc5601            #x21 #x26)      ; \e$(C!&\e(B
-    (chinese-cns11643-1                #x21 #x2C)      ; \e$(G!,\e(B
+    (=gb2312           . #x212D)       ; 
+    (=jis-x0208                . #x2144)       ; 
+    (=ks-x1001         . #x2126)       ; 
+    (=cns11643-1       . #x212C)       ; 
+    (=big5             . #xA14B)       ; 
+    (=ucs              . #x2026)       ; …
     ))
 (define-char
   '((name              . "HYPHENATION POINT")
-    (ucs               . #x2027)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (chinese-cns11643-1 #x21 #x31)     ; \e$(G!1\e(B
+    (=cns11643-1       . #x2131)       ; 
+    (=big5             . #xA145)       ; 
+    (=ucs              . #x2027)       ; ‧
     ))
 (define-char
   '((name              . "LINE SEPARATOR")
-    (ucs               . #x2028)
     (general-category  separator line) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
+    (=ucs              . #x2028)       ; 

     ))
 (define-char
   '((name              . "PARAGRAPH SEPARATOR")
-    (ucs               . #x2029)
     (general-category  separator paragraph) ; Normative Category
     (bidi-category     . "B")
     (mirrored          . nil)
+    (=ucs              . #x2029)       ; 

     ))
 (define-char
   '((name              . "LEFT-TO-RIGHT EMBEDDING")
-    (ucs               . #x202A)
     (general-category  other format) ; Normative Category
     (bidi-category     . "LRE")
     (mirrored          . nil)
+    (=ucs              . #x202A)       ; ‪
     ))
 (define-char
   '((name              . "RIGHT-TO-LEFT EMBEDDING")
-    (ucs               . #x202B)
     (general-category  other format) ; Normative Category
     (bidi-category     . "RLE")
     (mirrored          . nil)
+    (=ucs              . #x202B)       ; ‫
     ))
 (define-char
   '((name              . "POP DIRECTIONAL FORMATTING")
-    (ucs               . #x202C)
     (general-category  other format) ; Normative Category
     (bidi-category     . "PDF")
     (mirrored          . nil)
+    (=ucs              . #x202C)       ; ‬
     ))
 (define-char
   '((name              . "LEFT-TO-RIGHT OVERRIDE")
-    (ucs               . #x202D)
     (general-category  other format) ; Normative Category
     (bidi-category     . "LRO")
     (mirrored          . nil)
+    (=ucs              . #x202D)       ; ‭
     ))
 (define-char
   '((name              . "RIGHT-TO-LEFT OVERRIDE")
-    (ucs               . #x202E)
     (general-category  other format) ; Normative Category
     (bidi-category     . "RLO")
     (mirrored          . nil)
+    (=ucs              . #x202E)       ; ‮
     ))
 (define-char
   '((name              . "NARROW NO-BREAK SPACE")
-    (ucs               . #x202F)
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
     (->decomposition   noBreak #x0020)
+    (=ucs              . #x202F)       ;  
     ))
 (define-char
   '((name              . "PER MILLE SIGN")
-    (ucs               . #x2030)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (chinese-gb2312    #x21 #x6B)      ; \e$(A!k\e(B
-    (japanese-jisx0208 #x22 #x73)      ; \e$(B"s\e(B
-    (korean-ksc5601    #x22 #x36)      ; \e$(C"6\e(B
+    (=gb2312           . #x216B)       ; 
+    (=jis-x0208-1983   . #x2273)       ; 
+    (=ks-x1001         . #x2236)       ; 
+    (=jis-x0208-1990   . #x2273)       ; 
+    (=ucs              . #x2030)       ; ‰
     ))
 (define-char
   '((name              . "PER TEN THOUSAND SIGN")
-    (ucs               . #x2031)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
+    (=ucs              . #x2031)       ; ‱
     ))
 (define-char
   '((name              . "PRIME")
-    (ucs               . #x2032)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x21 #x6C)      ; \e$(@!l\e(B
-    (chinese-gb2312            #x21 #x64)      ; \e$(A!d\e(B
-    (japanese-jisx0208         #x21 #x6C)      ; \e$(B!l\e(B
-    (korean-ksc5601            #x21 #x47)      ; \e$(C!G\e(B
-    (chinese-cns11643-1                #x21 #x6B)      ; \e$(G!k\e(B
+    (=gb2312           . #x2164)       ; 
+    (=jis-x0208                . #x216C)       ; 
+    (=ks-x1001         . #x2147)       ; 
+    (=cns11643-1       . #x216B)       ; 
+    (=big5             . #xA1AC)       ; 
+    (=ucs              . #x2032)       ; ′
     ))
 (define-char
   '((name              . "DOUBLE PRIME")
-    (ucs               . #x2033)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
     (->decomposition   compat #x2032 #x2032)
-    (japanese-jisx0208-1978    #x21 #x6D)      ; \e$(@!m\e(B
-    (chinese-gb2312            #x21 #x65)      ; \e$(A!e\e(B
-    (japanese-jisx0208         #x21 #x6D)      ; \e$(B!m\e(B
-    (korean-ksc5601            #x21 #x48)      ; \e$(C!H\e(B
+    (=gb2312           . #x2165)       ; 
+    (=jis-x0208                . #x216D)       ; 
+    (=ks-x1001         . #x2148)       ; 
+    (=ucs              . #x2033)       ; ″
     ))
 (define-char
   '((name              . "TRIPLE PRIME")
-    (ucs               . #x2034)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
     (->decomposition   compat #x2032 #x2032 #x2032)
+    (=ucs              . #x2034)       ; ‴
     ))
 (define-char
   '((name              . "REVERSED PRIME")
-    (ucs               . #x2035)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (chinese-cns11643-1 #x21 #x6A)     ; \e$(G!j\e(B
+    (=cns11643-1       . #x216A)       ; 
+    (=big5             . #xA1AB)       ; 
+    (=ucs              . #x2035)       ; ‵
     ))
 (define-char
   '((name              . "REVERSED DOUBLE PRIME")
-    (ucs               . #x2036)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x2035 #x2035)
+    (=ucs              . #x2036)       ; ‶
     ))
 (define-char
   '((name              . "REVERSED TRIPLE PRIME")
-    (ucs               . #x2037)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x2035 #x2035 #x2035)
+    (=ucs              . #x2037)       ; ‷
     ))
 (define-char
   '((name              . "CARET")
-    (ucs               . #x2038)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x2038)       ; ‸
     ))
 (define-char
   '((name              . "SINGLE LEFT-POINTING ANGLE QUOTATION MARK")
-    (ucs               . #x2039)
     (general-category  punctuation initial-quote) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
+    (=ucs              . #x2039)       ; ‹
     ))
 (define-char
   '((name              . "SINGLE RIGHT-POINTING ANGLE QUOTATION MARK")
-    (ucs               . #x203A)
     (general-category  punctuation final-quote) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
+    (=ucs              . #x203A)       ; ›
     ))
 (define-char
   '((name              . "REFERENCE MARK")
-    (ucs               . #x203B)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (japanese-jisx0208-1978    #x22 #x28)      ; \e$(@"(\e(B
-    (chinese-gb2312            #x21 #x79)      ; \e$(A!y\e(B
-    (japanese-jisx0208         #x22 #x28)      ; \e$(B"(\e(B
-    (korean-ksc5601            #x21 #x58)      ; \e$(C!X\e(B
-    (chinese-cns11643-1                #x21 #x6F)      ; \e$(G!o\e(B
+    (=gb2312           . #x2179)       ; 
+    (=jis-x0208                . #x2228)       ; 
+    (=ks-x1001         . #x2158)       ; 
+    (=cns11643-1       . #x216F)       ; 
+    (=big5             . #xA1B0)       ; 
+    (=ucs              . #x203B)       ; ※
     ))
 (define-char
   '((name              . "DOUBLE EXCLAMATION MARK")
-    (ucs               . #x203C)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0021 #x0021)
+    (=jis-x0213-1-2000 . #x286B)       ; 
+    (=ucs              . #x203C)       ; ‼
     ))
 (define-char
   '((name              . "INTERROBANG")
-    (ucs               . #x203D)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x203D)       ; ‽
     ))
 (define-char
   '((name              . "OVERLINE")
-    (ucs               . #x203E)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0305)
-    (latin-jisx0201    #x7E)   ; \e(J~\e(B
-    (hebrew-iso8859-8  #xAF)   ; \9b2]\e-H¯\9b0]\e-A
-    (japanese-jisx0208 #x21 #x31)      ; \e$(B!1\e(B
+    (->fullwidth
+     ((name              . "FULLWIDTH OVERLINE")
+      (=gb2312           . #x237E)     ; 
+      (=jis-x0208        . #x2131)     ; 
+      (=ks-x1001         . #x237E)     ; 
+      (=cns11643-1       . #x2223)     ; 
+      ))
+    (latin-jisx0201    . #x7E) ; 
+    (hebrew-iso8859-8  . #xAF) ; 
+    (=ucs              . #x203E)       ; ‾
     ))
 (define-char
   '((name              . "FULLWIDTH OVERLINE")
-    (->ucs             . #x203E)
+    (=>ucs             . #x203E)       ; ‾
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   wide #x203E)
-    (japanese-jisx0208-1978    #x21 #x31)      ; \e$(B!1\e(B
-    (japanese-jisx0208         #x21 #x31)      ; \e$(B!1\e(B
-    (chinese-cns11643-1                #x22 #x23)      ; \e$(G"#\e(B
+    (<-fullwidth
+     ((name              . "OVERLINE")
+      (=ucs              . #x203E)     ; ‾
+      ))
+    (=gb2312           . #x237E)       ; 
+    (=jis-x0208                . #x2131)       ; 
+    (=ks-x1001         . #x237E)       ; 
+    (=cns11643-1       . #x2223)       ; 
+    (=big5             . #xA1C2)       ; 
+    (=ucs@jis          . #x203E)       ; 
+    ))
+(define-char
+  '((name              . "heavy overline")
+    (=>ucs             . #x203E)       ; ‾
+    (general-category  punctuation other) ; Informative Category
+    (bidi-category     . "ON")
+    (mirrored          . nil)
+    (=cns11643-1       . #x2224)       ; 
+    (=big5             . #xA1C3)       ; 
+    (=ucs@big5         . #xFFE3)       ; 
     ))
 (define-char
   '((name              . "UNDERTIE")
-    (ucs               . #x203F)
     (general-category  punctuation connector) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (iso-10646-comment . "Enotikon")
+    (=ucs              . #x203F)       ; ‿
     ))
 (define-char
   '((name              . "CHARACTER TIE")
-    (ucs               . #x2040)
     (general-category  punctuation connector) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x2040)       ; ⁀
     ))
 (define-char
   '((name              . "CARET INSERTION POINT")
-    (ucs               . #x2041)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x2041)       ; ⁁
     ))
 (define-char
   '((name              . "ASTERISM")
-    (ucs               . #x2042)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=jis-x0213-1-2000 . #x2C7E)       ; 
+    (=ucs              . #x2042)       ; ⁂
     ))
 (define-char
   '((name              . "HYPHEN BULLET")
-    (ucs               . #x2043)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x2043)       ; ⁃
     ))
 (define-char
   '((name              . "FRACTION SLASH")
-    (ucs               . #x2044)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (chinese-cns11643-1 #x22 #x5F)     ; \e$(G"_\e(B
+    (=cns11643-1       . #x225F)       ; 
+    (=ucs              . #x2044)       ; ⁄
     ))
 (define-char
   '((name              . "LEFT SQUARE BRACKET WITH QUILL")
-    (ucs               . #x2045)
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
+    (=ucs              . #x2045)       ; ⁅
     ))
 (define-char
   '((name              . "RIGHT SQUARE BRACKET WITH QUILL")
-    (ucs               . #x2046)
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
+    (=ucs              . #x2046)       ; ⁆
+    ))
+(define-char
+  '((name              . "DOUBLE QUESTION MARK")
+    (=jis-x0213-1-2000 . #x286C)       ; 
+    (=ucs              . #x2047)       ; ⁇
     ))
 (define-char
   '((name              . "QUESTION EXCLAMATION MARK")
-    (ucs               . #x2048)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x003F #x0021)
+    (=jis-x0213-1-2000 . #x286D)       ; 
+    (=ucs              . #x2048)       ; ⁈
     ))
 (define-char
   '((name              . "EXCLAMATION QUESTION MARK")
-    (ucs               . #x2049)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0021 #x003F)
+    (=jis-x0213-1-2000 . #x286E)       ; 
+    (=ucs              . #x2049)       ; ⁉
     ))
 (define-char
   '((name              . "TIRONIAN SIGN ET")
-    (ucs               . #x204A)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x204A)       ; ⁊
     ))
 (define-char
   '((name              . "REVERSED PILCROW SIGN")
-    (ucs               . #x204B)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x204B)       ; ⁋
     ))
 (define-char
   '((name              . "BLACK LEFTWARDS BULLET")
-    (ucs               . #x204C)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x204C)       ; ⁌
     ))
 (define-char
   '((name              . "BLACK RIGHTWARDS BULLET")
-    (ucs               . #x204D)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x204D)       ; ⁍
+    ))
+(define-char
+  '((name              . "TWO ASTERISKS ALIGNED VERTICALLY")
+    (=jis-x0213-1-2000 . #x2C7D)       ; 
+    (=ucs              . #x2051)       ; ⁑
     ))
 (define-char
   '((name              . "INHIBIT SYMMETRIC SWAPPING")
-    (ucs               . #x206A)
     (general-category  other format) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
+    (=ucs              . #x206A)       ; 
     ))
 (define-char
   '((name              . "ACTIVATE SYMMETRIC SWAPPING")
-    (ucs               . #x206B)
     (general-category  other format) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
+    (=ucs              . #x206B)       ; 
     ))
 (define-char
   '((name              . "INHIBIT ARABIC FORM SHAPING")
-    (ucs               . #x206C)
     (general-category  other format) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
+    (=ucs              . #x206C)       ; 
     ))
 (define-char
   '((name              . "ACTIVATE ARABIC FORM SHAPING")
-    (ucs               . #x206D)
     (general-category  other format) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
+    (=ucs              . #x206D)       ; 
     ))
 (define-char
   '((name              . "NATIONAL DIGIT SHAPES")
-    (ucs               . #x206E)
     (general-category  other format) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
+    (=ucs              . #x206E)       ; 
     ))
 (define-char
   '((name              . "NOMINAL DIGIT SHAPES")
-    (ucs               . #x206F)
     (general-category  other format) ; Normative Category
     (bidi-category     . "BN")
     (mirrored          . nil)
+    (=ucs              . #x206F)       ; 
     ))