diff options
Diffstat (limited to 'lisp/international/textsec.el')
| -rw-r--r-- | lisp/international/textsec.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el index e6a04d93de5..ad3b59c3154 100644 --- a/lisp/international/textsec.el +++ b/lisp/international/textsec.el @@ -299,13 +299,17 @@ other unusual mixtures of characters." ((not (equal name (ucs-normalize-NFC-string name))) (format "`%s' is not in normalized format `%s'" name (ucs-normalize-NFC-string name))) - ((seq-find (lambda (char) - (and (member char bidi-control-characters) - (not (member char - '( ?\N{left-to-right mark} - ?\N{right-to-left mark} - ?\N{arabic letter mark}))))) - name) + ((and (seq-find (lambda (char) + (and (member char bidi-control-characters) + (not (member char + '( ?\N{left-to-right mark} + ?\N{right-to-left mark} + ?\N{arabic letter mark}))))) + name) + ;; We have bidirectional formatting characters, but check + ;; whether they affect LTR characters. If not, it's not + ;; suspicious. + (bidi-find-overridden-directionality 0 (length name) name)) (format "The string contains bidirectional control characters")) ((textsec-suspicious-nonspacing-p name)))) |