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-teleport): Adjust for avy-goto-line

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

9
avy.el
View File

@ -676,12 +676,19 @@ Set `avy-style' according to COMMMAND as well."
(kill-region pt (point)) (kill-region pt (point))
(just-one-space)) (just-one-space))
(message "Killed: %s" (current-kill 0)) (message "Killed: %s" (current-kill 0))
(select-window
(cdr
(ring-ref avy-ring 0)))
t) t)
(defun avy-action-teleport (pt) (defun avy-action-teleport (pt)
"Kill sexp starting on PT and yank into the current location." "Kill sexp starting on PT and yank into the current location."
(avy-action-kill-stay pt) (avy-action-kill-stay pt)
(yank)) (select-window
(cdr
(ring-ref avy-ring 0)))
(yank)
t)
(declare-function flyspell-correct-word-before-point "flyspell") (declare-function flyspell-correct-word-before-point "flyspell")