(U-00026634): Use `->subsumptive'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / u02000-General-Punctuation.el

diff --git a/lisp/utf-2000/u02000-General-Punctuation.el b/lisp/utf-2000/u02000-General-Punctuation.el
index 7363159..522d80b 100644 (file)
--- 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)     ; ‾
@@ -905,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
@@ -924,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)     ; ⁈
       ))
@@ -945,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