Allow suspicious names with some forms of bidi controls

* lisp/international/textsec.el (textsec-name-suspicious-p): Allow
names with bidi-find-overridden-directionality.

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))))