[elpa] master a9f9e41 189/399: Add counsel-descbinds-action-exec

[Oleh Krehel]

branch: master
commit a9f9e41d2528600eca85cc4351cbf395b6b03262
Author: mn1281 <mn1281@computer>
Commit: Oleh Krehel <address@hidden>

    Add counsel-descbinds-action-exec
    
    Fixes #2024
---
 counsel.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index ce9cfbd..ee45386 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1027,7 +1027,8 @@ Usable with `ivy-resume', `ivy-next-line-and-call' and
 (ivy-set-actions
  'counsel-descbinds
  '(("d" counsel-descbinds-action-find "definition")
-   ("I" counsel-descbinds-action-info "info")))
+   ("I" counsel-descbinds-action-info "info")
+   ("x" counsel-descbinds-action-exec "execute")))
 
 (defvar counsel-descbinds-history nil
   "History for `counsel-descbinds'.")
@@ -1074,6 +1075,12 @@ See `describe-function' for further information."
   (let ((cmd (cddr x)))
     (describe-function cmd)))
 
+(defun counsel-descbinds-action-exec (x)
+  "Run candidate X.
+See `execute-extended-command' for further information."
+  (let ((cmd (cddr x)))
+    (command-execute cmd 'record)))
+
 (defun counsel-descbinds-action-find (x)
   "Find symbol definition of candidate X.
 See `counsel--find-symbol' for further information."