[Top][All Lists]

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

[elpa] master 895906e 309/399: counsel.el (counsel-descbinds-function):

From: Oleh Krehel
Subject: [elpa] master 895906e 309/399: counsel.el (counsel-descbinds-function): Add
Date: Sat, 20 Jul 2019 14:57:46 -0400 (EDT)

branch: master
commit 895906e0a70d1191babae43fc26de3fbf8e88bf8
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-descbinds-function): Add
    Fixes #2091
    Fixes #1876
 counsel.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index 77fe0b7..df0777d 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1072,11 +1072,15 @@ See `describe-buffer-bindings' for further information."
         (forward-line 1)))
     (nreverse res)))
+(defcustom counsel-descbinds-function #'describe-function
+  "Function to call to describe a function passed as parameter."
+  :type 'function)
 (defun counsel-descbinds-action-describe (x)
   "Describe function of candidate X.
 See `describe-function' for further information."
   (let ((cmd (cddr x)))
-    (describe-function cmd)))
+    (funcall counsel-descbinds-function cmd)))
 (defun counsel-descbinds-action-exec (x)
   "Run candidate X.

reply via email to

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