branch: externals/avy
commit 954774d6e915b61ce0f04cacf21204b564c9e44a
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
avy.el (avy-action-yank-line): Add and bind to "Y"
---
avy.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/avy.el b/avy.el
index 1184b1ac11..9303661943 100644
--- a/avy.el
+++ b/avy.el
@@ -192,6 +192,7 @@ If the commands isn't on the list, `avy-style' is used."
(?m . avy-action-mark)
(?n . avy-action-copy)
(?y . avy-action-yank)
+ (?Y . avy-action-yank-line)
(?i . avy-action-ispell)
(?z . avy-action-zap-to-char))
"List of actions for `avy-handler-default'.
@@ -713,6 +714,11 @@ Set `avy-style' according to COMMAND as well."
(yank)
t)
+(defun avy-action-yank-line (pt)
+ "Yank sexp starting at PT at the current point."
+ (let ((avy-command 'avy-goto-line))
+ (avy-action-yank pt)))
+
(defun avy-action-kill-move (pt)
"Kill sexp at PT and move there."
(goto-char pt)
