summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2022-01-19 10:57:03 +0200
committerEli Zaretskii <eliz@gnu.org>2022-01-19 10:57:03 +0200
commit596d0bda6da8b8c9092bc3778738912c7bdfc544 (patch)
tree4e0281d622ce3c7ea6fe3feed9a23ae79594246a /lisp
parent46dcb07e98730a58c40ee14cac6c653806343e47 (diff)
downloademacs-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.el4
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)))