#49 Check the last letter of the preceding word for adoc-flyspell-ignore

bbatsov · Feb 8, 2024 · 7f51cc8 · 7f51cc8
1 parent d757c1f
commit 7f51cc8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/adoc-mode.el b/adoc-mode.el
@@ -3794,7 +3794,9 @@ Turning on Adoc mode runs the normal hook `adoc-mode-hook'."
   "Function for `flyspell-mode-predicate' property of `adoc-mode'.
 Returns t if word at point should be checked, nil otherwise."
   (font-lock-ensure (line-beginning-position) (line-end-position))
-  (null (get-text-property (point) 'adoc-flyspell-ignore)))
+  (null (get-text-property
+         (1- (point)) ;; preceding word is checked, so 1- should do no harm
+         'adoc-flyspell-ignore)))
 
 (put 'adoc-mode 'flyspell-mode-predicate 'adoc-flyspell-p)