branch: master
commit 87e196ab7a84c38be25780d2f209b01b57de5f82
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
counsel.el (counsel-yank-pop-action-remove): Add and bind to "d"
---
counsel.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/counsel.el b/counsel.el
index aaf754b..ea66e5c 100644
--- a/counsel.el
+++ b/counsel.el
@@ -2417,6 +2417,10 @@ Additional Actions:
(insert (substring-no-properties s))
(setq ivy-completion-end (point))))
+(defun counsel-yank-pop-action-remove (s)
+ "Remove S from the kill ring."
+ (setq kill-ring (delete s kill-ring)))
+
;;;###autoload
(defun counsel-yank-pop ()
"Ivy replacement for `yank-pop'."
@@ -2442,6 +2446,10 @@ Additional Actions:
:action 'counsel-yank-pop-action
:caller 'counsel-yank-pop))))
+(ivy-set-actions
+ 'counsel-yank-pop
+ '(("d" counsel-yank-pop-action-remove "delete")))
+
;;** `counsel-imenu'
(defvar imenu-auto-rescan)
(defvar imenu-auto-rescan-maxout)
