[elpa] master f899a22 08/90: Add info lookup binding to counsel-describe-map

[Oleh Krehel]

branch: master
commit f899a2232e216d74047fb8fc0f1c307c9bd3f251
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>

    Add info lookup binding to counsel-describe-map
    
    * counsel.el (counsel-describe-map): Bind C-, to
    counsel--info-lookup-symbol.
    (counsel--info-lookup-symbol): New command.  Just sets the ivy action to
    counsel-info-lookup-symbol.
---
 counsel.el |   11 +++++++++--
 1 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/counsel.el b/counsel.el
index 400684c..0a4b1eb 100644
--- a/counsel.el
+++ b/counsel.el
@@ -42,13 +42,20 @@
 
 (defvar counsel-describe-map
   (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "C-.") 'counsel-find-symbol)
+    (define-key map (kbd "C-.") #'counsel-find-symbol)
+    (define-key map (kbd "C-,") #'counsel--info-lookup-symbol)
     map))
 
 (defun counsel-find-symbol ()
   "Jump to the definition of the current symbol."
   (interactive)
-  (ivy-set-action 'counsel--find-symbol)
+  (ivy-set-action #'counsel--find-symbol)
+  (ivy-done))
+
+(defun counsel--info-lookup-symbol ()
+  "Lookup the current symbol in the info docs."
+  (interactive)
+  (ivy-set-action #'counsel-info-lookup-symbol)
   (ivy-done))
 
 (defun counsel--find-symbol (x)