branch: externals/jit-spell
commit 6b960c04037be4b372f6520657fc09d870214edd
Author: Augusto Stoffel <arstof...@gmail.com>
Commit: Augusto Stoffel <arstof...@gmail.com>

    Fix completion predicate
---
 jit-spell.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/jit-spell.el b/jit-spell.el
index 87d61df153..4e65f8eb56 100644
--- a/jit-spell.el
+++ b/jit-spell.el
@@ -502,11 +502,16 @@ again moves to the next misspelling."
   (jit-spell--unfontify))
 
 ;; Don't litter M-x
-(put 'jit-spell--context-menu 'completion-predicate #'ignore)
+(dolist (sym '(jit-spell--context-menu
+               jit-spell-correct-word--next))
+  (put sym 'completion-predicate #'ignore))
+
 (dolist (sym '(jit-spell-change-dictionary
                jit-spell-correct-word
                jit-spell-accept-word))
-  (put sym 'completion-predicate (lambda (&rest _) jit-spell-mode)))
+  (put sym 'completion-predicate (lambda (_ buffer)
+                                   (buffer-local-value 'jit-spell-mode
+                                                       buffer))))
 
 (provide 'jit-spell)
 

Reply via email to