branch: master
commit 20ecb9bed63abcef28e1f36c72515380306c49c3
Author: MadAnd <[email protected]>
Commit: Oleh Krehel <[email protected]>
Use flyspell if its minor mode is active
Fixes #160
Fixes #161
---
avy.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/avy.el b/avy.el
index e076e1c..28700f1 100644
--- a/avy.el
+++ b/avy.el
@@ -540,12 +540,14 @@ Set `avy-style' according to COMMMAND as well."
"Auto correct word at PT."
(save-excursion
(goto-char pt)
- (if (looking-at-p "\\b")
- (ispell-word)
- (progn
- (backward-word)
- (when (looking-at-p "\\b")
- (ispell-word))))))
+ (if (bound-and-true-p flyspell-mode)
+ (flyspell-correct-word-before-point)
+ (if (looking-at-p "\\b")
+ (ispell-word)
+ (progn
+ (backward-word)
+ (when (looking-at-p "\\b")
+ (ispell-word)))))))
(defun avy--process (candidates overlay-fn)
"Select one of CANDIDATES using `avy-read'.