diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-18 13:19:55 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-18 13:20:04 +0100 |
commit | ce63f9102545fa50abbe08a4083b332a9101c243 (patch) | |
tree | 82f332d6822cc27a7e5e4d405496694632a616d6 /lisp/international/characters.el | |
parent | 4f23dbaa67183097f2aba1b93ace3646466faca9 (diff) | |
download | emacs-ce63f9102545fa50abbe08a4083b332a9101c243.tar.gz |
Add textsec functions for verifying email addresses
* lisp/international/characters.el (bidi-control-characters):
Rename from glyphless--bidi-control-characters for use in textsec,
and add LRM/RLM/ALM.
(update-glyphless-char-display): Adjust the code.
* lisp/international/textsec.el (textsec-local-address-suspicious-p)
(textsec-name-suspicious-p, textsec-suspicious-nonspacing-p)
(textsec-email-suspicious-p): New functions.
Diffstat (limited to 'lisp/international/characters.el')
-rw-r--r-- | lisp/international/characters.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 3ff280f4802..ce23e995c11 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -1526,8 +1526,11 @@ Setup `char-width-table' appropriate for non-CJK language environment." ;; We can't use the \N{name} things here, because this file is used ;; too early in the build process. -(defvar glyphless--bidi-control-characters - '(#x202a ; ?\N{left-to-right embedding} +(defvar bidi-control-characters + '(#x200e ; ?\N{left-to-right mark} + #x200f ; ?\N{right-to-left mark} + #x061c ; ?\N{arabic letter mark} + #x202a ; ?\N{left-to-right embedding} #x202b ; ?\N{right-to-left embedding} #x202d ; ?\N{left-to-right override} #x202e ; ?\N{right-to-left override} @@ -1535,7 +1538,8 @@ Setup `char-width-table' appropriate for non-CJK language environment." #x2067 ; ?\N{right-to-left isolate} #x2068 ; ?\N{first strong isolate} #x202c ; ?\N{pop directional formatting} - #x2069)) ; ?\N{pop directional isolate}) + #x2069) ; ?\N{pop directional isolate} + "List of bidirectional control characters.") (defun update-glyphless-char-display (&optional variable value) "Make the setting of `glyphless-char-display-control' take effect. @@ -1582,8 +1586,7 @@ option `glyphless-char-display'." (or (aref char-acronym-table from) "UNK"))) (when (or (eq target 'format-control) - (memq from - glyphless--bidi-control-characters)) + (memq from bidi-control-characters)) (set-char-table-range glyphless-char-display from this-method))) (setq from (1+ from)))))) |