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

diff --git a/lisp/utf-2000/u02000-General-Punctuation.el b/lisp/utf-2000/u02000-General-Punctuation.el
index 78a7ace..522d80b 100644
--- a/lisp/utf-2000/u02000-General-Punctuation.el
+++ b/lisp/utf-2000/u02000-General-Punctuation.el
@@ -4,22 +4,22 @@
     (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")
@@ -1010,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