[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 75aa14d 17/19: Fix thing-at-point in describe-function and
From: |
Oleh Krehel |
Subject: |
[elpa] master 75aa14d 17/19: Fix thing-at-point in describe-function and -variable |
Date: |
Thu, 16 Apr 2015 12:18:14 +0000 |
branch: master
commit 75aa14d736de018875bc7f859c019f01286021ef
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
Fix thing-at-point in describe-function and -variable
* counsel.el (counsel-describe-variable): Update.
(counsel-describe-function): Update.
---
counsel.el | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/counsel.el b/counsel.el
index 24e9d6d..4c720f2 100644
--- a/counsel.el
+++ b/counsel.el
@@ -45,6 +45,7 @@
(interactive
(let ((v (variable-at-point))
(enable-recursive-minibuffers t)
+ (preselect (thing-at-point 'symbol))
val)
(setq val (ivy-read
(if (symbolp v)
@@ -57,7 +58,8 @@
(when (or (get vv 'variable-documentation)
(and (boundp vv) (not (keywordp vv))))
(push (symbol-name vv) cands))))
- cands)))
+ cands)
+ nil nil preselect))
(list (if (equal val "")
v
(intern val)))))
@@ -68,6 +70,7 @@
(interactive
(let ((fn (function-called-at-point))
(enable-recursive-minibuffers t)
+ (preselect (thing-at-point 'symbol))
val)
(setq val (ivy-read (if fn
(format "Describe function (default %s): " fn)
@@ -77,7 +80,8 @@
(lambda (x)
(when (fboundp x)
(push (symbol-name x) cands))))
- cands)))
+ cands)
+ nil nil preselect))
(list (if (equal val "")
fn (intern val)))))
(describe-function function))
- [elpa] master f72a860 11/19: counsel.el: Fixup prefixes, (continued)
- [elpa] master f72a860 11/19: counsel.el: Fixup prefixes, Oleh Krehel, 2015/04/16
- [elpa] master 841d59b 01/19: "C-s" should forward to "C-n" etc, Oleh Krehel, 2015/04/16
- [elpa] master 609577e 12/19: Fix invalid package header line, Oleh Krehel, 2015/04/16
- [elpa] master e816884 03/19: Default ARG to 1 for arrows, Oleh Krehel, 2015/04/16
- [elpa] master a8a1f65 02/19: Add numeric arguments to arrows, Oleh Krehel, 2015/04/16
- [elpa] master 0477214 08/19: Fix `ivy-backward-delete-char-function', Oleh Krehel, 2015/04/16
- [elpa] master 6dd1068 04/19: swiper.el (swiper-query-replace): Enable recursive minibuffers, Oleh Krehel, 2015/04/16
- [elpa] master 3b78e0e 18/19: swiper.el: Bump version, Oleh Krehel, 2015/04/16
- [elpa] master 22139ae 19/19: Merge commit '3b78e0e503f4763f8a2d77eeacfc91213ec5532e' from swiper, Oleh Krehel, 2015/04/16
- [elpa] master c59752b 16/19: Update sorting order, make sure that perfect match is selected, Oleh Krehel, 2015/04/16
- [elpa] master 75aa14d 17/19: Fix thing-at-point in describe-function and -variable,
Oleh Krehel <=
- [elpa] master 6a098c6 15/19: Add ivy-mode, Oleh Krehel, 2015/04/16
- [elpa] master 592b692 07/19: Add defcustom for ivy-backward-delete-char, Oleh Krehel, 2015/04/16
- [elpa] master 048f479 13/19: Add four more commands, Oleh Krehel, 2015/04/16
- [elpa] master be452cc 14/19: swiper.el (swiper-font-lock-ensure): Exclude org-agenda-mode, Oleh Krehel, 2015/04/16
- [elpa] master ba0590f 09/19: counsel.el: Update comments, Oleh Krehel, 2015/04/16