X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02000-General-Punctuation.el;h=522d80b64df7dd15a98aeb12abdc943db65f09fb;hb=19f5b2550288cfe9b0c1ede20970f589b4530cca;hp=06cf383ae13a81ffba6276ea2736bf58b8c5d919;hpb=ae86b69ddda5d603cc9588bf4f4c051e6b4fed71;p=chise%2Fxemacs-chise.git diff --git a/lisp/utf-2000/u02000-General-Punctuation.el b/lisp/utf-2000/u02000-General-Punctuation.el index 06cf383..522d80b 100644 --- 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) ; @@ -1018,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