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

avy.el (avy-action-ispell): Adjust for avy-goto-line

Browse Source 
Fixes #191
This commit is contained in:
Oleh Krehel 2017-12-10 20:04:37 +01:00
parent 78392e670e
commit 7f83bbc645
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
avy.el
View File

@ -696,14 +696,20 @@ Set `avy-style' according to COMMMAND as well."
"Auto correct word at PT."
(save-excursion
(goto-char pt)
(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)))))))
(cond
((eq avy-command 'avy-goto-line)
(ispell-region
(line-beginning-position)
(line-end-position)))
((bound-and-true-p flyspell-mode)
(flyspell-correct-word-before-point))
((looking-at-p "\\b")
(ispell-word))
(t
(progn
(backward-word)
(when (looking-at-p "\\b")
(ispell-word)))))))
(defun avy--process (candidates overlay-fn)
"Select one of CANDIDATES using `avy-read'.