ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-15 22:13:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy.el (avy-flyspell-correct-function): Add

Browse Source 
Fixes #273
This commit is contained in:
Yanghao Xie 2019-05-14 18:47:20 +08:00 committed by Oleh Krehel
parent 0e59474430
commit 8686845ed9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
avy.el
View File

@ -748,6 +748,11 @@ Set `avy-style' according to COMMMAND as well."
(declare-function flyspell-correct-word-before-point "flyspell") (declare-function flyspell-correct-word-before-point "flyspell")
(defcustom avy-flyspell-correct-function #'flyspell-correct-word-before-point
"Function called to correct word by `avy-action-ispell' when
`flyspell-mode' is enabled."
:type 'function)
(defun avy-action-ispell (pt) (defun avy-action-ispell (pt)
"Auto correct word at PT." "Auto correct word at PT."
(save-excursion (save-excursion
@ -758,7 +763,7 @@ Set `avy-style' according to COMMMAND as well."
(line-beginning-position) (line-beginning-position)
(line-end-position))) (line-end-position)))
((bound-and-true-p flyspell-mode) ((bound-and-true-p flyspell-mode)
(flyspell-correct-word-before-point)) (funcall avy-flyspell-correct-function))
((looking-at-p "\\b") ((looking-at-p "\\b")
(ispell-word)) (ispell-word))
(t (t