X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02000-General-Punctuation.el;h=93a7e82f6b45c03cbfc350ba85e51ff4668d90f5;hp=7363159de3f0a74c22f02a58c18a919bee4c8b59;hb=72da096bf7c900292af5c7b8fd83d02b10c76980;hpb=5347bb40b46941d715464557db690e2dc3ada299

diff --git a/lisp/utf-2000/u02000-General-Punctuation.el b/lisp/utf-2000/u02000-General-Punctuation.el
index 7363159..93a7e82 100644
--- a/lisp/utf-2000/u02000-General-Punctuation.el
+++ b/lisp/utf-2000/u02000-General-Punctuation.el
@@ -4,89 +4,122 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	#x2002)
     (=ucs		. #x2000)	;  
+    (->canonical
+     ((name		  . "EN SPACE")
+      (=ucs		  . #x2002)	;  
+      ))
     ))
 (define-char
   '((name		. "EM QUAD")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	#x2003)
     (=ucs		. #x2001)	;  
+    (->canonical
+     ((name		  . "EM SPACE")
+      (=ucs		  . #x2003)	;  
+      ))
     ))
 (define-char
   '((name		. "EN SPACE")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
     (=ucs		. #x2002)	;  
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "EM SPACE")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
     (=ucs		. #x2003)	;  
     (=cns11643-1	. #x256D)	; &I-C1-256D; [05-77]
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "THREE-PER-EM SPACE")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
     (=ucs		. #x2004)	;  
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "FOUR-PER-EM SPACE")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
     (=ucs		. #x2005)	;  
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "SIX-PER-EM SPACE")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
     (=ucs		. #x2006)	;  
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "FIGURE SPACE")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	noBreak #x0020)
     (=ucs		. #x2007)	;  
+    (<-noBreak
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "PUNCTUATION SPACE")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
     (=ucs		. #x2008)	;  
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "THIN SPACE")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
     (=ucs		. #x2009)	;  
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "HAIR SPACE")
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
     (=ucs		. #x200A)	;  
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "ZERO WIDTH SPACE")
@@ -135,20 +168,24 @@
      ((name		  . "HYPHEN")
       (=ucs		  . #x2010)	; ‐
       ))
+    (=ucs@jis		. #x2010)	; &J90-213E;
+    (=jis-x0208		. #x213E)	; &J90-213E; [01-30]
+    (=jis-x0213-1	. #x213E)	; &I-JX1-213E; [01-30]
     (<-fullwidth
      ((name		  . "HYPHEN")
       (=ucs		  . #x2010)	; ‐
       ))
-    (=jis-x0208		. #x213E)	; &J90-213E; [01-30]
-    (=ucs@jis		. #x2010)	; &J90-213E;
     ))
 (define-char
   '((name		. "NON-BREAKING HYPHEN")
     (general-category	punctuation dash) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	noBreak #x2010)
     (=ucs		. #x2011)	; ‑
+    (<-noBreak
+     ((name		  . "HYPHEN")
+      (=ucs		  . #x2010)	; ‐
+      ))
     ))
 (define-char
   '((name		. "FIGURE DASH")
@@ -169,16 +206,16 @@
      ((name		  . "EN DASH")
       (=ucs		  . #x2013)	; –
       ))
+    (=ucs@cns		. #x2013)	; &JX1-237C;
+    (=ucs@jis		. #x2013)	; &JX1-237C;
+    (=ucs@big5		. #x2013)	; &JX1-237C;
+    (=cns11643-1	. #x2139)	; &JX1-237C; [01-25]
+    (=jis-x0213-1	. #x237C)	; &I-JX1-237C; [03-92]
+    (=big5		. #xA156)	; &I-B-A156;
     (<-fullwidth
      ((name		  . "EN DASH")
       (=ucs		  . #x2013)	; –
       ))
-    (=cns11643-1	. #x2139)	; &JX1-237C; [01-25]
-    (=jis-x0213-1-2000	. #x237C)	; &I-JX1-237C; [03-92]
-    (=big5		. #xA156)	; &I-B-A156;
-    (=ucs@cns		. #x2013)	; &JX1-237C;
-    (=ucs@jis		. #x2013)	; &JX1-237C;
-    (=ucs@big5		. #x2013)	; &JX1-237C;
     ))
 (define-char
   '((name		. "EM DASH")
@@ -192,16 +229,17 @@
      ((name		  . "EM DASH")
       (=ucs		  . #x2014)	; —
       ))
+    (=ucs@cns		. #x2014)	; &J90-213D;
+    (=ucs@jis		. #x2014)	; &J90-213D;
+    (=ucs@big5		. #x2014)	; &J90-213D;
+    (=jis-x0208		. #x213D)	; &J90-213D; [01-29]
+    (=cns11643-1	. #x2137)	; &I-C1-2137; [01-23]
+    (=jis-x0213-1	. #x213D)	; &I-JX1-213D; [01-29]
+    (=big5		. #xA158)	; &I-B-A158;
     (<-fullwidth
      ((name		  . "EM DASH")
       (=ucs		  . #x2014)	; —
       ))
-    (=jis-x0208		. #x213D)	; &J90-213D; [01-29]
-    (=cns11643-1	. #x2137)	; &I-C1-2137; [01-23]
-    (=big5		. #xA158)	; &I-B-A158;
-    (=ucs@cns		. #x2014)	; &J90-213D;
-    (=ucs@jis		. #x2014)	; &J90-213D;
-    (=ucs@big5		. #x2014)	; &J90-213D;
     ))
 (define-char
   '((name		. "HORIZONTAL BAR")
@@ -216,14 +254,14 @@
      ((name		  . "HORIZONTAL BAR")
       (=ucs		  . #x2015)	; ―
       ))
+    (=ucs@gb		. #x2015)	; &K0-212A;
+    (=ucs@ks		. #x2015)	; &K0-212A;
+    (=gb2312		. #x212A)	; &K0-212A; [01-10]
+    (=ks-x1001		. #x212A)	; &I-K0-212A; [01-10]
     (<-fullwidth
      ((name		  . "HORIZONTAL BAR")
       (=ucs		  . #x2015)	; ―
       ))
-    (=gb2312		. #x212A)	; &K0-212A; [01-10]
-    (=ks-x1001		. #x212A)	; &I-K0-212A; [01-10]
-    (=ucs@gb		. #x2015)	; &K0-212A;
-    (=ucs@ks		. #x2015)	; &K0-212A;
     ))
 (define-char
   '((name		. "DOUBLE VERTICAL LINE")
@@ -237,23 +275,30 @@
      ((name		  . "DOUBLE VERTICAL LINE")
       (=ucs		  . #x2016)	; ‖
       ))
+    (=ucs@gb		. #x2016)	; &J90-2142;
+    (=ucs@cns		. #x2016)	; &J90-2142;
+    (=ucs@jis		. #x2016)	; &J90-2142;
+    (=jis-x0208		. #x2142)	; &J90-2142; [01-34]
+    (=gb2312		. #x212C)	; &I-G0-212C; [01-12]
+    (=cns11643-1	. #x225D)	; &I-C1-225D; [02-61]
+    (=jis-x0213-1	. #x2142)	; &I-JX1-2142; [01-34]
     (<-fullwidth
      ((name		  . "DOUBLE VERTICAL LINE")
       (=ucs		  . #x2016)	; ‖
       ))
-    (=jis-x0208		. #x2142)	; &J90-2142; [01-34]
-    (=gb2312		. #x212C)	; &I-G0-212C; [01-12]
-    (=cns11643-1	. #x225D)	; &I-C1-225D; [02-61]
-    (=ucs@gb		. #x2016)	; &J90-2142;
-    (=ucs@cns		. #x2016)	; &J90-2142;
-    (=ucs@jis		. #x2016)	; &J90-2142;
     ))
 (define-char
   '((name		. "DOUBLE LOW LINE")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x0020 #x0333)
+    (=>decomposition@compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      )
+     ((name		  . "COMBINING DOUBLE LOW LINE")
+      (=ucs		  . #x0333)	; ̳
+      ))
     (=ucs		. #x2017)	; ‗
     (hebrew-iso8859-8	. #xDF)	; &I-HEBREW-5F;
     ))
@@ -269,20 +314,21 @@
      ((name		  . "LEFT SINGLE QUOTATION MARK")
       (=ucs		  . #x2018)	; ‘
       ))
-    (<-fullwidth
-     ((name		  . "LEFT SINGLE QUOTATION MARK")
-      (=ucs		  . #x2018)	; ‘
-      ))
-    (=jis-x0208		. #x2146)	; &J90-2146; [01-38]
-    (=gb2312		. #x212E)	; &I-G0-212E; [01-14]
-    (=ks-x1001		. #x212E)	; &I-K0-212E; [01-14]
-    (=cns11643-1	. #x2164)	; &I-C1-2164; [01-68]
-    (=big5		. #xA1A5)	; &I-B-A1A5;
     (=ucs@gb		. #x2018)	; &J90-2146;
     (=ucs@cns		. #x2018)	; &J90-2146;
     (=ucs@jis		. #x2018)	; &J90-2146;
     (=ucs@ks		. #x2018)	; &J90-2146;
     (=ucs@big5		. #x2018)	; &J90-2146;
+    (=jis-x0208		. #x2146)	; &J90-2146; [01-38]
+    (=gb2312		. #x212E)	; &I-G0-212E; [01-14]
+    (=ks-x1001		. #x212E)	; &I-K0-212E; [01-14]
+    (=cns11643-1	. #x2164)	; &I-C1-2164; [01-68]
+    (=jis-x0213-1	. #x2146)	; &I-JX1-2146; [01-38]
+    (=big5		. #xA1A5)	; &I-B-A1A5;
+    (<-fullwidth
+     ((name		  . "LEFT SINGLE QUOTATION MARK")
+      (=ucs		  . #x2018)	; ‘
+      ))
     ))
 (define-char
   '((name		. "RIGHT SINGLE QUOTATION MARK")
@@ -296,20 +342,21 @@
      ((name		  . "RIGHT SINGLE QUOTATION MARK")
       (=ucs		  . #x2019)	; ’
       ))
-    (<-fullwidth
-     ((name		  . "RIGHT SINGLE QUOTATION MARK")
-      (=ucs		  . #x2019)	; ’
-      ))
-    (=jis-x0208		. #x2147)	; &J90-2147; [01-39]
-    (=gb2312		. #x212F)	; &I-G0-212F; [01-15]
-    (=ks-x1001		. #x212F)	; &I-K0-212F; [01-15]
-    (=cns11643-1	. #x2165)	; &I-C1-2165; [01-69]
-    (=big5		. #xA1A6)	; &I-B-A1A6;
     (=ucs@gb		. #x2019)	; &J90-2147;
     (=ucs@cns		. #x2019)	; &J90-2147;
     (=ucs@jis		. #x2019)	; &J90-2147;
     (=ucs@ks		. #x2019)	; &J90-2147;
     (=ucs@big5		. #x2019)	; &J90-2147;
+    (=jis-x0208		. #x2147)	; &J90-2147; [01-39]
+    (=gb2312		. #x212F)	; &I-G0-212F; [01-15]
+    (=ks-x1001		. #x212F)	; &I-K0-212F; [01-15]
+    (=cns11643-1	. #x2165)	; &I-C1-2165; [01-69]
+    (=jis-x0213-1	. #x2147)	; &I-JX1-2147; [01-39]
+    (=big5		. #xA1A6)	; &I-B-A1A6;
+    (<-fullwidth
+     ((name		  . "RIGHT SINGLE QUOTATION MARK")
+      (=ucs		  . #x2019)	; ’
+      ))
     ))
 (define-char
   '((name		. "SINGLE LOW-9 QUOTATION MARK")
@@ -337,20 +384,21 @@
      ((name		  . "LEFT DOUBLE QUOTATION MARK")
       (=ucs		  . #x201C)	; “
       ))
-    (<-fullwidth
-     ((name		  . "LEFT DOUBLE QUOTATION MARK")
-      (=ucs		  . #x201C)	; “
-      ))
-    (=jis-x0208		. #x2148)	; &J90-2148; [01-40]
-    (=gb2312		. #x2130)	; &I-G0-2130; [01-16]
-    (=ks-x1001		. #x2130)	; &I-K0-2130; [01-16]
-    (=cns11643-1	. #x2166)	; &I-C1-2166; [01-70]
-    (=big5		. #xA1A7)	; &I-B-A1A7;
     (=ucs@gb		. #x201C)	; &J90-2148;
     (=ucs@cns		. #x201C)	; &J90-2148;
     (=ucs@jis		. #x201C)	; &J90-2148;
     (=ucs@ks		. #x201C)	; &J90-2148;
     (=ucs@big5		. #x201C)	; &J90-2148;
+    (=jis-x0208		. #x2148)	; &J90-2148; [01-40]
+    (=gb2312		. #x2130)	; &I-G0-2130; [01-16]
+    (=ks-x1001		. #x2130)	; &I-K0-2130; [01-16]
+    (=cns11643-1	. #x2166)	; &I-C1-2166; [01-70]
+    (=jis-x0213-1	. #x2148)	; &I-JX1-2148; [01-40]
+    (=big5		. #xA1A7)	; &I-B-A1A7;
+    (<-fullwidth
+     ((name		  . "LEFT DOUBLE QUOTATION MARK")
+      (=ucs		  . #x201C)	; “
+      ))
     ))
 (define-char
   '((name		. "RIGHT DOUBLE QUOTATION MARK")
@@ -364,20 +412,21 @@
      ((name		  . "RIGHT DOUBLE QUOTATION MARK")
       (=ucs		  . #x201D)	; ”
       ))
-    (<-fullwidth
-     ((name		  . "RIGHT DOUBLE QUOTATION MARK")
-      (=ucs		  . #x201D)	; ”
-      ))
-    (=jis-x0208		. #x2149)	; &J90-2149; [01-41]
-    (=gb2312		. #x2131)	; &I-G0-2131; [01-17]
-    (=ks-x1001		. #x2131)	; &I-K0-2131; [01-17]
-    (=cns11643-1	. #x2167)	; &I-C1-2167; [01-71]
-    (=big5		. #xA1A8)	; &I-B-A1A8;
     (=ucs@gb		. #x201D)	; &J90-2149;
     (=ucs@cns		. #x201D)	; &J90-2149;
     (=ucs@jis		. #x201D)	; &J90-2149;
     (=ucs@ks		. #x201D)	; &J90-2149;
     (=ucs@big5		. #x201D)	; &J90-2149;
+    (=jis-x0208		. #x2149)	; &J90-2149; [01-41]
+    (=gb2312		. #x2131)	; &I-G0-2131; [01-17]
+    (=ks-x1001		. #x2131)	; &I-K0-2131; [01-17]
+    (=cns11643-1	. #x2167)	; &I-C1-2167; [01-71]
+    (=jis-x0213-1	. #x2149)	; &I-JX1-2149; [01-41]
+    (=big5		. #xA1A8)	; &I-B-A1A8;
+    (<-fullwidth
+     ((name		  . "RIGHT DOUBLE QUOTATION MARK")
+      (=ucs		  . #x201D)	; ”
+      ))
     ))
 (define-char
   '((name		. "DOUBLE LOW-9 QUOTATION MARK")
@@ -405,15 +454,16 @@
      ((name		  . "DAGGER")
       (=ucs		  . #x2020)	; †
       ))
+    (=ucs@jis		. #x2020)	; &J90-2277;
+    (=ucs@ks		. #x2020)	; &J90-2277;
+    (=jis-x0208@1983	. #x2277)	; &J90-2277; [02-87]
+    (=ks-x1001		. #x2253)	; &I-K0-2253; [02-51]
+    (=jis-x0208@1990	. #x2277)	; &I-J90-2277; [02-87]
+    (=jis-x0213-1	. #x2277)	; &I-JX1-2277; [02-87]
     (<-fullwidth
      ((name		  . "DAGGER")
       (=ucs		  . #x2020)	; †
       ))
-    (=jis-x0208@1983	. #x2277)	; &J90-2277; [02-87]
-    (=ks-x1001		. #x2253)	; &I-K0-2253; [02-51]
-    (=jis-x0208@1990	. #x2277)	; &I-J90-2277; [02-87]
-    (=ucs@jis		. #x2020)	; &J90-2277;
-    (=ucs@ks		. #x2020)	; &J90-2277;
     ))
 (define-char
   '((name		. "DOUBLE DAGGER")
@@ -427,15 +477,16 @@
      ((name		  . "DOUBLE DAGGER")
       (=ucs		  . #x2021)	; ‡
       ))
+    (=ucs@jis		. #x2021)	; &J90-2278;
+    (=ucs@ks		. #x2021)	; &J90-2278;
+    (=jis-x0208@1983	. #x2278)	; &J90-2278; [02-88]
+    (=ks-x1001		. #x2254)	; &I-K0-2254; [02-52]
+    (=jis-x0208@1990	. #x2278)	; &I-J90-2278; [02-88]
+    (=jis-x0213-1	. #x2278)	; &I-JX1-2278; [02-88]
     (<-fullwidth
      ((name		  . "DOUBLE DAGGER")
       (=ucs		  . #x2021)	; ‡
       ))
-    (=jis-x0208@1983	. #x2278)	; &J90-2278; [02-88]
-    (=ks-x1001		. #x2254)	; &I-K0-2254; [02-52]
-    (=jis-x0208@1990	. #x2278)	; &I-J90-2278; [02-88]
-    (=ucs@jis		. #x2021)	; &J90-2278;
-    (=ucs@ks		. #x2021)	; &J90-2278;
     ))
 (define-char
   '((name		. "BULLET")
@@ -449,12 +500,12 @@
      ((name		  . "BULLET")
       (=ucs		  . #x2022)	; •
       ))
+    (=ucs@jis/fw	. #x2022)	; &JX1-2340;
+    (=jis-x0213-1	. #x2340)	; &JX1-2340; [03-32]
     (<-fullwidth
      ((name		  . "BULLET")
       (=ucs		  . #x2022)	; •
       ))
-    (=jis-x0213-1-2000	. #x2340)	; &JX1-2340; [03-32]
-    (=ucs@jis/fw	. #x2022)	; &JX1-2340;
     ))
 (define-char
   '((name		. "TRIANGULAR BULLET")
@@ -468,15 +519,24 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x002E)
     (=ucs		. #x2024)	; ․
+    (<-compat
+     ((name		  . "FULL STOP")
+      (=ucs		  . #x002E)	; .
+      ))
     ))
 (define-char
   '((name		. "TWO DOT LEADER")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x002E #x002E)
+    (=>decomposition@compat
+     ((name		  . "FULL STOP")
+      (=ucs		  . #x002E)	; .
+      )
+     ((name		  . "FULL STOP")
+      (=ucs		  . #x002E)	; .
+      ))
     (=ucs		. #x2025)	; ‥
     ))
 (define-char
@@ -484,25 +544,35 @@
      ((name		  . "TWO DOT LEADER")
       (=ucs		  . #x2025)	; ‥
       ))
-    (<-fullwidth
-     ((name		  . "TWO DOT LEADER")
-      (=ucs		  . #x2025)	; ‥
-      ))
-    (=jis-x0208		. #x2145)	; &J90-2145; [01-37]
-    (=ks-x1001		. #x2125)	; &I-K0-2125; [01-05]
-    (=cns11643-1	. #x212D)	; &I-C1-212D; [01-13]
-    (=big5		. #xA14C)	; &I-B-A14C;
     (=ucs@cns		. #x2025)	; &J90-2145;
     (=ucs@jis		. #x2025)	; &J90-2145;
     (=ucs@ks		. #x2025)	; &J90-2145;
     (=ucs@big5		. #x2025)	; &J90-2145;
+    (=jis-x0208		. #x2145)	; &J90-2145; [01-37]
+    (=ks-x1001		. #x2125)	; &I-K0-2125; [01-05]
+    (=cns11643-1	. #x212D)	; &I-C1-212D; [01-13]
+    (=jis-x0213-1	. #x2145)	; &I-JX1-2145; [01-37]
+    (=big5		. #xA14C)	; &I-B-A14C;
+    (<-fullwidth
+     ((name		  . "TWO DOT LEADER")
+      (=ucs		  . #x2025)	; ‥
+      ))
     ))
 (define-char
   '((name		. "HORIZONTAL ELLIPSIS")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x002E #x002E #x002E)
+    (=>decomposition@compat
+     ((name		  . "FULL STOP")
+      (=ucs		  . #x002E)	; .
+      )
+     ((name		  . "FULL STOP")
+      (=ucs		  . #x002E)	; .
+      )
+     ((name		  . "FULL STOP")
+      (=ucs		  . #x002E)	; .
+      ))
     (=ucs		. #x2026)	; …
     ))
 (define-char
@@ -510,20 +580,21 @@
      ((name		  . "HORIZONTAL ELLIPSIS")
       (=ucs		  . #x2026)	; …
       ))
-    (<-fullwidth
-     ((name		  . "HORIZONTAL ELLIPSIS")
-      (=ucs		  . #x2026)	; …
-      ))
-    (=jis-x0208		. #x2144)	; &J90-2144; [01-36]
-    (=gb2312		. #x212D)	; &I-G0-212D; [01-13]
-    (=ks-x1001		. #x2126)	; &I-K0-2126; [01-06]
-    (=cns11643-1	. #x212C)	; &I-C1-212C; [01-12]
-    (=big5		. #xA14B)	; &I-B-A14B;
     (=ucs@gb		. #x2026)	; &J90-2144;
     (=ucs@cns		. #x2026)	; &J90-2144;
     (=ucs@jis		. #x2026)	; &J90-2144;
     (=ucs@ks		. #x2026)	; &J90-2144;
     (=ucs@big5		. #x2026)	; &J90-2144;
+    (=jis-x0208		. #x2144)	; &J90-2144; [01-36]
+    (=gb2312		. #x212D)	; &I-G0-212D; [01-13]
+    (=ks-x1001		. #x2126)	; &I-K0-2126; [01-06]
+    (=cns11643-1	. #x212C)	; &I-C1-212C; [01-12]
+    (=jis-x0213-1	. #x2144)	; &I-JX1-2144; [01-36]
+    (=big5		. #xA14B)	; &I-B-A14B;
+    (<-fullwidth
+     ((name		  . "HORIZONTAL ELLIPSIS")
+      (=ucs		  . #x2026)	; …
+      ))
     ))
 (define-char
   '((name		. "HYPHENATION POINT")
@@ -537,14 +608,14 @@
      ((name		  . "HYPHENATION POINT")
       (=ucs		  . #x2027)	; ‧
       ))
+    (=ucs@cns		. #x2027)	; &C1-2126;
+    (=ucs@big5		. #x2027)	; &C1-2126;
+    (=cns11643-1	. #x2126)	; &C1-2126; [01-06]
+    (=big5		. #xA145)	; &I-B-A145;
     (<-fullwidth
      ((name		  . "HYPHENATION POINT")
       (=ucs		  . #x2027)	; ‧
       ))
-    (=cns11643-1	. #x2126)	; &C1-2126; [01-06]
-    (=big5		. #xA145)	; &I-B-A145;
-    (=ucs@cns		. #x2027)	; &C1-2126;
-    (=ucs@big5		. #x2027)	; &C1-2126;
     ))
 (define-char
   '((name		. "LINE SEPARATOR")
@@ -600,8 +671,11 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	noBreak #x0020)
     (=ucs		. #x202F)	;  
+    (<-noBreak
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     ))
 (define-char
   '((name		. "PER MILLE SIGN")
@@ -615,17 +689,18 @@
      ((name		  . "PER MILLE SIGN")
       (=ucs		  . #x2030)	; ‰
       ))
-    (<-fullwidth
-     ((name		  . "PER MILLE SIGN")
-      (=ucs		  . #x2030)	; ‰
-      ))
+    (=ucs@gb		. #x2030)	; &J90-2273;
+    (=ucs@jis		. #x2030)	; &J90-2273;
+    (=ucs@ks		. #x2030)	; &J90-2273;
     (=gb2312		. #x216B)	; &J90-2273; [01-75]
     (=jis-x0208@1983	. #x2273)	; &I-J83-2273; [02-83]
     (=ks-x1001		. #x2236)	; &I-K0-2236; [02-22]
     (=jis-x0208@1990	. #x2273)	; &I-J90-2273; [02-83]
-    (=ucs@gb		. #x2030)	; &J90-2273;
-    (=ucs@jis		. #x2030)	; &J90-2273;
-    (=ucs@ks		. #x2030)	; &J90-2273;
+    (=jis-x0213-1	. #x2273)	; &I-JX1-2273; [02-83]
+    (<-fullwidth
+     ((name		  . "PER MILLE SIGN")
+      (=ucs		  . #x2030)	; ‰
+      ))
     ))
 (define-char
   '((name		. "PER TEN THOUSAND SIGN")
@@ -646,27 +721,34 @@
      ((name		  . "PRIME")
       (=ucs		  . #x2032)	; ′
       ))
-    (<-fullwidth
-     ((name		  . "PRIME")
-      (=ucs		  . #x2032)	; ′
-      ))
-    (=jis-x0208		. #x216C)	; &J90-216C; [01-76]
-    (=gb2312		. #x2164)	; &I-G0-2164; [01-68]
-    (=ks-x1001		. #x2147)	; &I-K0-2147; [01-39]
-    (=cns11643-1	. #x216B)	; &I-C1-216B; [01-75]
-    (=big5		. #xA1AC)	; &I-B-A1AC;
     (=ucs@gb		. #x2032)	; &J90-216C;
     (=ucs@cns		. #x2032)	; &J90-216C;
     (=ucs@jis		. #x2032)	; &J90-216C;
     (=ucs@ks		. #x2032)	; &J90-216C;
     (=ucs@big5		. #x2032)	; &J90-216C;
+    (=jis-x0208		. #x216C)	; &J90-216C; [01-76]
+    (=gb2312		. #x2164)	; &I-G0-2164; [01-68]
+    (=ks-x1001		. #x2147)	; &I-K0-2147; [01-39]
+    (=cns11643-1	. #x216B)	; &I-C1-216B; [01-75]
+    (=jis-x0213-1	. #x216C)	; &I-JX1-216C; [01-76]
+    (=big5		. #xA1AC)	; &I-B-A1AC;
+    (<-fullwidth
+     ((name		  . "PRIME")
+      (=ucs		  . #x2032)	; ′
+      ))
     ))
 (define-char
   '((name		. "DOUBLE PRIME")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	compat #x2032 #x2032)
+    (=>decomposition@compat
+     ((name		  . "PRIME")
+      (=ucs		  . #x2032)	; ′
+      )
+     ((name		  . "PRIME")
+      (=ucs		  . #x2032)	; ′
+      ))
     (=ucs		. #x2033)	; ″
     ))
 (define-char
@@ -674,23 +756,33 @@
      ((name		  . "DOUBLE PRIME")
       (=ucs		  . #x2033)	; ″
       ))
+    (=ucs@gb		. #x2033)	; &J90-216D;
+    (=ucs@jis		. #x2033)	; &J90-216D;
+    (=ucs@ks		. #x2033)	; &J90-216D;
+    (=jis-x0208		. #x216D)	; &J90-216D; [01-77]
+    (=gb2312		. #x2165)	; &I-G0-2165; [01-69]
+    (=ks-x1001		. #x2148)	; &I-K0-2148; [01-40]
+    (=jis-x0213-1	. #x216D)	; &I-JX1-216D; [01-77]
     (<-fullwidth
      ((name		  . "DOUBLE PRIME")
       (=ucs		  . #x2033)	; ″
       ))
-    (=jis-x0208		. #x216D)	; &J90-216D; [01-77]
-    (=gb2312		. #x2165)	; &I-G0-2165; [01-69]
-    (=ks-x1001		. #x2148)	; &I-K0-2148; [01-40]
-    (=ucs@gb		. #x2033)	; &J90-216D;
-    (=ucs@jis		. #x2033)	; &J90-216D;
-    (=ucs@ks		. #x2033)	; &J90-216D;
     ))
 (define-char
   '((name		. "TRIPLE PRIME")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	compat #x2032 #x2032 #x2032)
+    (=>decomposition@compat
+     ((name		  . "PRIME")
+      (=ucs		  . #x2032)	; ′
+      )
+     ((name		  . "PRIME")
+      (=ucs		  . #x2032)	; ′
+      )
+     ((name		  . "PRIME")
+      (=ucs		  . #x2032)	; ′
+      ))
     (=ucs		. #x2034)	; ‴
     ))
 (define-char
@@ -705,21 +797,27 @@
      ((name		  . "REVERSED PRIME")
       (=ucs		  . #x2035)	; ‵
       ))
+    (=ucs@cns		. #x2035)	; &C1-216A;
+    (=ucs@big5		. #x2035)	; &C1-216A;
+    (=cns11643-1	. #x216A)	; &C1-216A; [01-74]
+    (=big5		. #xA1AB)	; &I-B-A1AB;
     (<-fullwidth
      ((name		  . "REVERSED PRIME")
       (=ucs		  . #x2035)	; ‵
       ))
-    (=cns11643-1	. #x216A)	; &C1-216A; [01-74]
-    (=big5		. #xA1AB)	; &I-B-A1AB;
-    (=ucs@cns		. #x2035)	; &C1-216A;
-    (=ucs@big5		. #x2035)	; &C1-216A;
     ))
 (define-char
   '((name		. "REVERSED DOUBLE PRIME")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x2035 #x2035)
+    (=>decomposition@compat
+     ((name		  . "REVERSED PRIME")
+      (=ucs		  . #x2035)	; ‵
+      )
+     ((name		  . "REVERSED PRIME")
+      (=ucs		  . #x2035)	; ‵
+      ))
     (=ucs		. #x2036)	; ‶
     ))
 (define-char
@@ -727,7 +825,16 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x2035 #x2035 #x2035)
+    (=>decomposition@compat
+     ((name		  . "REVERSED PRIME")
+      (=ucs		  . #x2035)	; ‵
+      )
+     ((name		  . "REVERSED PRIME")
+      (=ucs		  . #x2035)	; ‵
+      )
+     ((name		  . "REVERSED PRIME")
+      (=ucs		  . #x2035)	; ‵
+      ))
     (=ucs		. #x2037)	; ‷
     ))
 (define-char
@@ -763,27 +870,34 @@
      ((name		  . "REFERENCE MARK")
       (=ucs		  . #x203B)	; ※
       ))
-    (<-fullwidth
-     ((name		  . "REFERENCE MARK")
-      (=ucs		  . #x203B)	; ※
-      ))
-    (=jis-x0208		. #x2228)	; &J90-2228; [02-08]
-    (=gb2312		. #x2179)	; &I-G0-2179; [01-89]
-    (=ks-x1001		. #x2158)	; &I-K0-2158; [01-56]
-    (=cns11643-1	. #x216F)	; &I-C1-216F; [01-79]
-    (=big5		. #xA1B0)	; &I-B-A1B0;
     (=ucs@gb		. #x203B)	; &J90-2228;
     (=ucs@cns		. #x203B)	; &J90-2228;
     (=ucs@jis		. #x203B)	; &J90-2228;
     (=ucs@ks		. #x203B)	; &J90-2228;
     (=ucs@big5		. #x203B)	; &J90-2228;
+    (=jis-x0208		. #x2228)	; &J90-2228; [02-08]
+    (=gb2312		. #x2179)	; &I-G0-2179; [01-89]
+    (=ks-x1001		. #x2158)	; &I-K0-2158; [01-56]
+    (=cns11643-1	. #x216F)	; &I-C1-216F; [01-79]
+    (=jis-x0213-1	. #x2228)	; &I-JX1-2228; [02-08]
+    (=big5		. #xA1B0)	; &I-B-A1B0;
+    (<-fullwidth
+     ((name		  . "REFERENCE MARK")
+      (=ucs		  . #x203B)	; ※
+      ))
     ))
 (define-char
   '((name		. "DOUBLE EXCLAMATION MARK")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x0021 #x0021)
+    (=>decomposition@compat
+     ((name		  . "EXCLAMATION MARK")
+      (=ucs		  . #x0021)	; !
+      )
+     ((name		  . "EXCLAMATION MARK")
+      (=ucs		  . #x0021)	; !
+      ))
     (=ucs		. #x203C)	; ‼
     ))
 (define-char
@@ -791,12 +905,12 @@
      ((name		  . "DOUBLE EXCLAMATION MARK")
       (=ucs		  . #x203C)	; ‼
       ))
+    (=ucs@jis		. #x203C)	; &JX1-286B;
+    (=jis-x0213-1	. #x286B)	; &JX1-286B; [08-75]
     (<-fullwidth
      ((name		  . "DOUBLE EXCLAMATION MARK")
       (=ucs		  . #x203C)	; ‼
       ))
-    (=jis-x0213-1-2000	. #x286B)	; &JX1-286B; [08-75]
-    (=ucs@jis		. #x203C)	; &JX1-286B;
     ))
 (define-char
   '((name		. "INTERROBANG")
@@ -810,28 +924,35 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x0020 #x0305)
+    (=>decomposition@compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      )
+     ((name		  . "COMBINING OVERLINE")
+      (=ucs		  . #x0305)	; ̅
+      ))
     (=ucs		. #x203E)	; ‾
     (latin-jisx0201	. #x7E)	; &I-LATINJ-7E;
     (hebrew-iso8859-8	. #xAF)	; &I-HEBREW-2F;
     ))
 (define-char
-  '((name		. "FULLWIDTH OVERLINE")
-    (<-denotational
-     ((name		  . "OVERLINE")
-      (=ucs		  . #x203E)	; ‾
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "OVERLINE")
       (=ucs		  . #x203E)	; ‾
       ))
+    (name		. "FULLWIDTH OVERLINE")
+    (=ucs@gb		. #xFFE3)	; &J90-2131;
+    (=ucs@jis		. #x203E)	; &J90-2131;
     (=jis-x0208		. #x2131)	; &J90-2131; [01-17]
     (=gb2312		. #x237E)	; &I-G0-237E; [03-94]
     (=ks-x1001		. #x237E)	; &I-K0-237E; [03-94]
     (=cns11643-1	. #x2223)	; &I-C1-2223; [02-03]
+    (=jis-x0213-1	. #x2131)	; &I-JX1-2131; [01-17]
     (=big5		. #xA1C2)	; &I-B-A1C2;
-    (=ucs@gb		. #xFFE3)	; &J90-2131;
-    (=ucs@jis		. #x203E)	; &J90-2131;
+    (<-fullwidth
+     ((name		  . "OVERLINE")
+      (=ucs		  . #x203E)	; ‾
+      ))
     ))
 (define-char
   '((name		. "UNDERTIE")
@@ -867,12 +988,12 @@
      ((name		  . "ASTERISM")
       (=ucs		  . #x2042)	; ⁂
       ))
+    (=ucs@jis		. #x2042)	; &JX1-2C7E;
+    (=jis-x0213-1	. #x2C7E)	; &JX1-2C7E; [12-94]
     (<-fullwidth
      ((name		  . "ASTERISM")
       (=ucs		  . #x2042)	; ⁂
       ))
-    (=jis-x0213-1-2000	. #x2C7E)	; &JX1-2C7E; [12-94]
-    (=ucs@jis		. #x2042)	; &JX1-2C7E;
     ))
 (define-char
   '((name		. "HYPHEN BULLET")
@@ -905,6 +1026,13 @@
 (define-char
   '((name		. "DOUBLE QUESTION MARK")
     (general-category	punctuation other) ; Informative Category
+    (=>decomposition@compat
+     ((name		  . "QUESTION MARK")
+      (=ucs		  . #x003F)	; ?
+      )
+     ((name		  . "QUESTION MARK")
+      (=ucs		  . #x003F)	; ?
+      ))
     (=ucs		. #x2047)	; ⁇
     ))
 (define-char
@@ -912,40 +1040,51 @@
      ((name		  . "DOUBLE QUESTION MARK")
       (=ucs		  . #x2047)	; ⁇
       ))
+    (=ucs@jis		. #x2047)	; &JX1-286C;
+    (=jis-x0213-1	. #x286C)	; &JX1-286C; [08-76]
     (<-fullwidth
      ((name		  . "DOUBLE QUESTION MARK")
       (=ucs		  . #x2047)	; ⁇
       ))
-    (=jis-x0213-1-2000	. #x286C)	; &JX1-286C; [08-76]
-    (=ucs@jis		. #x2047)	; &JX1-286C;
     ))
 (define-char
   '((name		. "QUESTION EXCLAMATION MARK")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x003F #x0021)
+    (=>decomposition@compat
+     ((name		  . "QUESTION MARK")
+      (=ucs		  . #x003F)	; ?
+      )
+     ((name		  . "EXCLAMATION MARK")
+      (=ucs		  . #x0021)	; !
+      ))
     (=ucs		. #x2048)	; ⁈
     ))
 (define-char
-  '((->decomposition	compat #xFF1F #xFF01)
-    (<-denotational
+  '((<-denotational
      ((name		  . "QUESTION EXCLAMATION MARK")
       (=ucs		  . #x2048)	; ⁈
       ))
+    (=ucs@jis		. #x2048)	; &JX1-286D;
+    (=jis-x0213-1	. #x286D)	; &JX1-286D; [08-77]
     (<-fullwidth
      ((name		  . "QUESTION EXCLAMATION MARK")
       (=ucs		  . #x2048)	; ⁈
       ))
-    (=jis-x0213-1-2000	. #x286D)	; &JX1-286D; [08-77]
-    (=ucs@jis		. #x2048)	; &JX1-286D;
     ))
 (define-char
   '((name		. "EXCLAMATION QUESTION MARK")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x0021 #x003F)
+    (=>decomposition@compat
+     ((name		  . "EXCLAMATION MARK")
+      (=ucs		  . #x0021)	; !
+      )
+     ((name		  . "QUESTION MARK")
+      (=ucs		  . #x003F)	; ?
+      ))
     (=ucs		. #x2049)	; ⁉
     ))
 (define-char
@@ -953,12 +1092,12 @@
      ((name		  . "EXCLAMATION QUESTION MARK")
       (=ucs		  . #x2049)	; ⁉
       ))
+    (=ucs@jis		. #x2049)	; &JX1-286E;
+    (=jis-x0213-1	. #x286E)	; &JX1-286E; [08-78]
     (<-fullwidth
      ((name		  . "EXCLAMATION QUESTION MARK")
       (=ucs		  . #x2049)	; ⁉
       ))
-    (=jis-x0213-1-2000	. #x286E)	; &JX1-286E; [08-78]
-    (=ucs@jis		. #x2049)	; &JX1-286E;
     ))
 (define-char
   '((name		. "TIRONIAN SIGN ET")
@@ -991,7 +1130,18 @@
 (define-char
   '((name		. "TWO ASTERISKS ALIGNED VERTICALLY")
     (=ucs		. #x2051)	; ⁑
-    (=jis-x0213-1-2000	. #x2C7D)	; &I-JX1-2C7D; [12-93]
+    ))
+(define-char
+  '((<-denotational
+     ((name		  . "TWO ASTERISKS ALIGNED VERTICALLY")
+      (=ucs		  . #x2051)	; ⁑
+      ))
+    (=ucs@jis		. #x2051)	; &JX1-2C7D;
+    (=jis-x0213-1	. #x2C7D)	; &JX1-2C7D; [12-93]
+    (<-fullwidth
+     ((name		  . "TWO ASTERISKS ALIGNED VERTICALLY")
+      (=ucs		  . #x2051)	; ⁑
+      ))
     ))
 (define-char
   '((name		. "INHIBIT SYMMETRIC SWAPPING")