[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Oleh Krehel
Subject: [elpa] master a9f9e41 189/399: Add counsel-descbinds-action-exec
Date: Sat, 20 Jul 2019 14:57:21 -0400 (EDT)

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
  '(("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."

reply via email to

[Prev in Thread] Current Thread [Next in Thread]