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

avy.el (avy-action-yank): Add and bind to "y"

Browse Source 
Fixes #183
This commit is contained in:
Oleh Krehel 2017-03-26 20:57:33 +02:00
parent d609eb98bd
commit 0c30cdba9e
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

@ -134,6 +134,7 @@ If the commands isn't on the list, `avy-style' is used."
(?X . avy-action-kill-stay) (?X . avy-action-kill-stay)
(?m . avy-action-mark) (?m . avy-action-mark)
(?n . avy-action-copy) (?n . avy-action-copy)
(?y . avy-action-yank)
(?i . avy-action-ispell)) (?i . avy-action-ispell))
"List of actions for `avy-handler-default'. "List of actions for `avy-handler-default'.
@ -532,6 +533,11 @@ Set `avy-style' according to COMMMAND as well."
(select-window (cdr dat)) (select-window (cdr dat))
(goto-char (car dat)))) (goto-char (car dat))))
(defun avy-action-yank (pt)
"Yank sexp starting at PT at the current point."
(avy-action-copy pt)
(yank))
(defun avy-action-kill-move (pt) (defun avy-action-kill-move (pt)
"Kill sexp at PT and move there." "Kill sexp at PT and move there."
(goto-char pt) (goto-char pt)