Permalink
Browse files

* helm-ring.el (helm-c-source-kill-ring): Add a delete action.

  • Loading branch information...
1 parent c858ffd commit 7baca8f8a41ea2beec6ae69270557ad3b6f3422b @thierryvolpiatto thierryvolpiatto committed Nov 20, 2012
Showing with 5 additions and 1 deletion.
  1. +5 −1 helm-ring.el
View
@@ -61,7 +61,11 @@ If nil or zero, don't truncate candidate, show all."
(init . (lambda () (helm-attrset 'last-command last-command)))
(candidates . helm-c-kill-ring-candidates)
(filtered-candidate-transformer helm-c-kill-ring-transformer)
- (action . helm-c-kill-ring-action)
+ (action . (("Yank" . helm-c-kill-ring-action)
+ ("Delete" . (lambda (candidate)
+ (loop for cand in (helm-marked-candidates)
+ do (setq kill-ring
+ (delete cand kill-ring)))))))
(keymap . ,helm-kill-ring-map)
(last-command)
(migemo)

0 comments on commit 7baca8f

Please sign in to comment.