(<CJK RADICAL EYE>): Copied from u02E00-CJK-Radical-Supplement.el.

[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 88aed4b..522d80b 100644 (file)
--- a/lisp/utf-2000/u02000-General-Punctuation.el
+++ b/lisp/utf-2000/u02000-General-Punctuation.el
@@ -4,32 +4,28 @@
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
+    (=ucs              . #x2000)       ;  
     (->canonical
      ((name              . "EN SPACE")
       (=ucs              . #x2002)     ;  
       ))
-    (=ucs              . #x2000)       ;  
     ))
 (define-char
   '((name              . "EM QUAD")
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
+    (=ucs              . #x2001)       ;  
     (->canonical
      ((name              . "EM SPACE")
       (=ucs              . #x2003)     ;  
       ))
-    (=ucs              . #x2001)       ;  
     ))
 (define-char
   '((name              . "EN SPACE")
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
-    (<-canonical
-     ((name              . "EN QUAD")
-      (=ucs              . #x2000)     ;  
-      ))
     (<-compat
      ((name              . "SPACE")
       (=ucs              . #x0020)     ;
@@ -41,10 +37,6 @@
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
-    (<-canonical
-     ((name              . "EM QUAD")
-      (=ucs              . #x2001)     ;  
-      ))
     (<-compat
      ((name              . "SPACE")
       (=ucs              . #x0020)     ;
@@ -90,8 +82,7 @@
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
-    (=decomposition
-     noBreak
+    (<-noBreak
      ((name              . "SPACE")
       (=ucs              . #x0020)     ;
       ))
@@ -189,8 +180,7 @@
     (general-category  punctuation dash) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (=decomposition
-     noBreak
+    (<-noBreak
      ((name              . "HYPHEN")
       (=ucs              . #x2010)     ; ‐
       ))
@@ -670,8 +660,7 @@
     (general-category  separator space) ; Normative Category
     (bidi-category     . "WS")
     (mirrored          . nil)
-    (=decomposition
-     noBreak
+    (<-noBreak
      ((name              . "SPACE")
       (=ucs              . #x0020)     ;
       ))
@@ -1021,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