diff options
author | Eli Zaretskii <eliz@gnu.org> | 2022-01-19 10:57:03 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2022-01-19 10:57:03 +0200 |
commit | 596d0bda6da8b8c9092bc3778738912c7bdfc544 (patch) | |
tree | 4e0281d622ce3c7ea6fe3feed9a23ae79594246a /lisp | |
parent | 46dcb07e98730a58c40ee14cac6c653806343e47 (diff) | |
download | emacs-596d0bda6da8b8c9092bc3778738912c7bdfc544.tar.gz emacs-596d0bda6da8b8c9092bc3778738912c7bdfc544.tar.bz2 emacs-596d0bda6da8b8c9092bc3778738912c7bdfc544.zip |
Minor improvement in textsec diagnostics
* lisp/international/textsec.el (textsec-suspicious-nonspacing-p):
Clarify wording of the strings returned to explain the suspicious
use of nonspacing characters.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/international/textsec.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el index c1be5364a9a..524052d49d7 100644 --- a/lisp/international/textsec.el +++ b/lisp/international/textsec.el @@ -304,13 +304,13 @@ consecutive nonspacing characters." '(Cf Cc Mn)))) (when (and nonspacing (equal char prev)) - (throw 'found "Two identical nonspacing characters in a row")) + (throw 'found "Two identical consecutive nonspacing characters")) (setq nonspace-count (if nonspacing (1+ nonspace-count) 0)) (when (> nonspace-count 4) (throw 'found - "Excessive number of nonspacing characters in a row")) + "Too many consecutive nonspacing characters")) (setq prev char))) string) nil))) |