emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/jit-spell 6b960c0403 3/3: Fix completion predicate


From: ELPA Syncer
Subject: [elpa] externals/jit-spell 6b960c0403 3/3: Fix completion predicate
Date: Sat, 4 Mar 2023 16:58:02 -0500 (EST)

branch: externals/jit-spell
commit 6b960c04037be4b372f6520657fc09d870214edd
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@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

[Prev in Thread] Current Thread [Next in Thread]