diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-19 14:42:39 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-19 14:42:39 +0100 |
| commit | b4336b2832cad22603f14f114d97abd95bdccc8c (patch) | |
| tree | 73c50e9fca59d88764529918b070df596e1b777d /lisp/international/textsec.el | |
| parent | d1648945fc4d665221eedc383618d5bb059d2ba3 (diff) | |
| download | emacs-b4336b2832cad22603f14f114d97abd95bdccc8c.tar.gz emacs-b4336b2832cad22603f14f114d97abd95bdccc8c.tar.bz2 emacs-b4336b2832cad22603f14f114d97abd95bdccc8c.zip | |
Make textsec-suspicious-nonspacing-p work on marks
* lisp/international/textsec.el (textsec-suspicious-nonspacing-p):
We're only interested in nonspacing marks, not control characters
in this test.
Diffstat (limited to 'lisp/international/textsec.el')
| -rw-r--r-- | lisp/international/textsec.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el index ebd67e42371..394da44e9ab 100644 --- a/lisp/international/textsec.el +++ b/lisp/international/textsec.el @@ -310,7 +310,7 @@ consecutive nonspacing characters." (lambda (char) (let ((nonspacing (memq (get-char-code-property char 'general-category) - '(Cf Cc Mn)))) + '(Mn Me)))) (when (and nonspacing (equal char prev)) (throw 'found "Two identical consecutive nonspacing characters")) |