diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-20 13:37:26 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-20 13:37:33 +0100 |
| commit | 10fbbddddd67aaeecf6d2c36bd171282012c5a46 (patch) | |
| tree | fbc5c7e44e21e7bccf70a66354afadb85b562736 | |
| parent | ec5c723844a56d43c7c82aa9a2eecf1ffca86c0b (diff) | |
| download | emacs-10fbbddddd67aaeecf6d2c36bd171282012c5a46.tar.gz emacs-10fbbddddd67aaeecf6d2c36bd171282012c5a46.tar.bz2 emacs-10fbbddddd67aaeecf6d2c36bd171282012c5a46.zip | |
Improve the textsec-domain-suspicious-p warning message
* lisp/international/textsec.el (textsec-domain-suspicious-p):
Improve warning message.
| -rw-r--r-- | lisp/international/textsec.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el index db13839e90e..09337548de4 100644 --- a/lisp/international/textsec.el +++ b/lisp/international/textsec.el @@ -245,8 +245,11 @@ or use certain other unusual mixtures of characters." (lambda (char) (when (eq (elt idna-mapping-table char) t) (throw 'found - (format "Disallowed character: `%s' (#x%x, %s)" - (bidi-string-strip-control-characters (string char)) + (format "Disallowed character%s (#x%x, %s)" + (if (eq (get-char-code-property char 'general-category) + 'Cf) + "" + (concat ": " (string char))) char (get-char-code-property char 'name))))) domain) |