X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02000-General-Punctuation.el;h=522d80b64df7dd15a98aeb12abdc943db65f09fb;hb=7c5ae1565aa681c528ea0e3a47ac4b15d11a1eb4;hp=d8fa776811137f87fccdadce1668558a77fe7401;hpb=8120bce1d16ee1dd7f1c8fe5a05a365af507867a;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u02000-General-Punctuation.el b/lisp/utf-2000/u02000-General-Punctuation.el
index d8fa776..522d80b 100644
--- a/lisp/utf-2000/u02000-General-Punctuation.el
+++ b/lisp/utf-2000/u02000-General-Punctuation.el
@@ -4,23 +4,32 @@
     (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)
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x2002)	;  
     ))
 (define-char
@@ -28,7 +37,10 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x2003)	;  
     (=cns11643-1	. #x256D)	; &I-C1-256D; [05-77]
     ))
@@ -37,7 +49,10 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x2004)	;  
     ))
 (define-char
@@ -45,7 +60,10 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x2005)	;  
     ))
 (define-char
@@ -53,7 +71,10 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x2006)	;  
     ))
 (define-char
@@ -61,7 +82,10 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	noBreak #x0020)
+    (<-noBreak
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x2007)	;  
     ))
 (define-char
@@ -69,7 +93,10 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x2008)	;  
     ))
 (define-char
@@ -77,7 +104,10 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x2009)	;  
     ))
 (define-char
@@ -85,7 +115,10 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	compat #x0020)
+    (<-compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x200A)	;  
     ))
 (define-char
@@ -147,7 +180,10 @@
     (general-category	punctuation dash) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	noBreak #x2010)
+    (<-noBreak
+     ((name		  . "HYPHEN")
+      (=ucs		  . #x2010)	; ‐
+      ))
     (=ucs		. #x2011)	; ‑
     ))
 (define-char
@@ -253,7 +289,13 @@
     (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;
     ))
@@ -468,7 +510,10 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x002E)
+    (<-compat
+     ((name		  . "FULL STOP")
+      (=ucs		  . #x002E)	; .
+      ))
     (=ucs		. #x2024)	; ․
     ))
 (define-char
@@ -476,7 +521,13 @@
     (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
@@ -502,7 +553,16 @@
     (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
@@ -600,7 +660,10 @@
     (general-category	separator space) ; Normative Category
     (bidi-category	. "WS")
     (mirrored		. nil)
-    (->decomposition	noBreak #x0020)
+    (<-noBreak
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      ))
     (=ucs		. #x202F)	;  
     ))
 (define-char
@@ -666,7 +729,13 @@
     (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
@@ -690,7 +759,16 @@
     (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
@@ -719,7 +797,13 @@
     (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 +811,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
@@ -783,7 +876,13 @@
     (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
@@ -810,17 +909,23 @@
     (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
+  '((<-denotational
      ((name		  . "OVERLINE")
       (=ucs		  . #x203E)	; ‾
       ))
+    (name		. "FULLWIDTH OVERLINE")
     (<-fullwidth
      ((name		  . "OVERLINE")
       (=ucs		  . #x203E)	; ‾
@@ -830,6 +935,7 @@
     (=ks-x1001		. #x237E)	; &I-K0-237E; [03-94]
     (=cns11643-1	. #x2223)	; &I-C1-2223; [02-03]
     (=big5		. #xA1C2)	; &I-B-A1C2;
+    (=ucs@gb		. #xFFE3)	; &J90-2131;
     (=ucs@jis		. #x203E)	; &J90-2131;
     ))
 (define-char
@@ -904,6 +1010,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
@@ -923,12 +1036,17 @@
     (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)	; ⁈
       ))
@@ -944,7 +1062,13 @@
     (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