branch: master
commit f899a2232e216d74047fb8fc0f1c307c9bd3f251
Author: Tassilo Horn <t...@gnu.org>
Commit: Tassilo Horn <t...@gnu.org>
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)
