diff --git a/collects/framework/private/text.rkt b/collects/framework/private/text.rkt index 0d2bf7d87c..b273d0de1a 100644 --- a/collects/framework/private/text.rkt +++ b/collects/framework/private/text.rkt @@ -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 diff --git a/collects/scribblings/framework/text.scrbl b/collects/scribblings/framework/text.scrbl index 3235228ef3..6a912e6f6e 100644 --- a/collects/scribblings/framework/text.scrbl +++ b/collects/scribblings/framework/text.scrbl @@ -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) + "")] } }