Use flyspell if its minor mode is active

Fixes #160 Fixes #161
10 years ago · 20ecb9bed6
parent b522bfe320
commit 20ecb9bed6
1 changed files with 8 additions and 6 deletions
--- 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'.