[elpa] master 228ed97 039/110: avy.el (avy-action-teleport): Add and bind to "t"

[Oleh Krehel]

branch: master
commit 228ed97d07d51e369eb6ad27bf408c5b3218a23b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    avy.el (avy-action-teleport): Add and bind to "t"
    
    Fixes #207
---
 avy.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/avy.el b/avy.el
index 9c53ef4..bd469e9 100644
--- a/avy.el
+++ b/avy.el
@@ -132,6 +132,7 @@ If the commands isn't on the list, `avy-style' is used."
 (defcustom avy-dispatch-alist
   '((?x . avy-action-kill-move)
     (?X . avy-action-kill-stay)
+    (?t . avy-action-teleport)
     (?m . avy-action-mark)
     (?n . avy-action-copy)
     (?y . avy-action-yank)
@@ -561,6 +562,11 @@ Set `avy-style' according to COMMMAND as well."
    (just-one-space))
   (message "Killed: %s" (current-kill 0)))
 
+(defun avy-action-teleport (pt)
+  "Kill sexp starting on PT and yank into the current location."
+  (avy-action-kill-stay pt)
+  (yank))
+
 (declare-function flyspell-correct-word-before-point "flyspell")
 
 (defun avy-action-ispell (pt)