Include zero-width-space in string-normalize.
Closes PR 12683.
This commit is contained in:
parent
f1b4c86519
commit
9ed78f2752
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
"")]
|
||||
}
|
||||
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user