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): Add and bind to "t"

Browse Source 
Fixes #207
This commit is contained in:
Oleh Krehel 2017-07-02 11:37:00 +02:00
parent f2bedeeb58
commit 228ed97d07
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
avy.el
View File

@ -132,6 +132,7 @@ If the commands isn't on the list, `avy-style' is used."
(defcustom avy-dispatch-alist (defcustom avy-dispatch-alist
'((?x . avy-action-kill-move) '((?x . avy-action-kill-move)
(?X . avy-action-kill-stay) (?X . avy-action-kill-stay)
(?t . avy-action-teleport)
(?m . avy-action-mark) (?m . avy-action-mark)
(?n . avy-action-copy) (?n . avy-action-copy)
(?y . avy-action-yank) (?y . avy-action-yank)
@ -561,6 +562,11 @@ Set `avy-style' according to COMMMAND as well."
(just-one-space)) (just-one-space))
(message "Killed: %s" (current-kill 0))) (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") (declare-function flyspell-correct-word-before-point "flyspell")
(defun avy-action-ispell (pt) (defun avy-action-ispell (pt)