branch: master
commit 228ed97d07d51e369eb6ad27bf408c5b3218a23b
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
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)
