Include zero-width-space in string-normalize.

Closes PR 12683.
This commit is contained in:
Danny Yoo 2013-02-14 13:02:30 -07:00
parent f1b4c86519
commit 9ed78f2752
2 changed files with 6 additions and 2 deletions

View File

@ -922,7 +922,8 @@
normalize?))]
[else
(preferences:get 'framework:do-paste-normalization)]))
(define/public (string-normalize s) (string-normalize-nfkc s))
(define/public (string-normalize s)
(regexp-replace* #rx"\u200b" (string-normalize-nfkc s) ""))
(define/override (do-paste start time)
(dynamic-wind

View File

@ -383,7 +383,10 @@
}
@defmethod[(string-normalize [s string?]) string?]{
Normalizes @racket[s]. Defaults to @racket[string-normalize-nfkc].
Normalizes @racket[s]. Defaults to:
@racketblock[(regexp-replace* #rx"\u200b"
(string-normalize-nfkc s)
"")]
}
}