branch: master
commit 88f4508b492c68d20efd13adf967d0e869380d30
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
ivy.el (ivy-kill-word): Add and bind to "M-d"
Fixes #94
---
ivy.el | 7 +++++++
1 files changed, 7 insertions(+), 0 deletions(-)
diff --git a/ivy.el b/ivy.el
index 0b38f2d..b4b620a 100644
--- a/ivy.el
+++ b/ivy.el
@@ -108,6 +108,7 @@ Only \"./\" and \"../\" apply here. They appear in reverse
order."
(define-key map (kbd "DEL") 'ivy-backward-delete-char)
(define-key map (kbd "M-DEL") 'ivy-backward-kill-word)
(define-key map (kbd "C-d") 'ivy-delete-char)
+ (define-key map (kbd "M-d") 'ivy-kill-word)
(define-key map (kbd "M-<") 'ivy-beginning-of-buffer)
(define-key map (kbd "M->") 'ivy-end-of-buffer)
(define-key map (kbd "<left>") 'ivy-beginning-of-buffer)
@@ -488,6 +489,12 @@ On error (read-only), call `ivy-on-del-error-function'."
(unless (= (point) (line-end-position))
(delete-char arg)))
+(defun ivy-kill-word (arg)
+ "Forward to `kill-word' ARG."
+ (interactive "p")
+ (unless (= (point) (line-end-position))
+ (kill-word arg)))
+
(defun ivy-backward-kill-word ()
"Forward to `backward-kill-word'."
(interactive)
