avy.el (avy-action-teleport): Add and bind to "t"

Fixes #207

1 files changed, 6 insertions, 0 deletions

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)