ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 13:33:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy.el (avy-action-zap-to-char): Add and bind to "z"

Browse Source 
Fixes #234
This commit is contained in:
Oleh Krehel 2018-03-22 21:33:23 +01:00
parent 34d3531a3c
commit 2d613eb050
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

@ -182,7 +182,8 @@ If the commands isn't on the list, `avy-style' is used."
(?m . avy-action-mark)
(?n . avy-action-copy)
(?y . avy-action-yank)
(?i . avy-action-ispell))
(?i . avy-action-ispell)
(?z . avy-action-zap-to-char))
"List of actions for `avy-handler-default'.
Each item is (KEY . ACTION). When KEY not on `avy-keys' is
@ -687,6 +688,12 @@ Set `avy-style' according to COMMMAND as well."
(ring-ref avy-ring 0)))
t)
(defun avy-action-zap-to-char (pt)
"Kill from point up to PT."
(if (> pt (point))
(kill-region (point) (1+ pt))
(kill-region pt (1+ (point)))))
(defun avy-action-teleport (pt)
"Kill sexp starting on PT and yank into the current location."
(avy-action-kill-stay pt)