Re: elisp-index-search on current word

[Thierry Volpiatto <thierry.volpiatto@gmail.com>]

Xah <xahlee@gmail.com> writes:

> On Oct 8, 7:21 am, Andy Stewart <lazycat.mana...@gmail.com> wrote:
>> Kevin Rodgers <kevin.d.rodg...@gmail.com> writes:
>> >Xahwrote:
>> >> when i do elisp-index-search, is there a way to make the default
>> >> choice the symbol the cursor is on?
>>
>> > (defadvice elisp-index-search (before interactive-default activate)
>> >   "Provide the symbol at point as the default when reading TOPIC interactively."
>> >   (interactive (list (read-string "Topic: " nil nil (thing-at-point 'symbol)))))
>>
>> (defun elisp-index-search+ ()
>>   "Look up TOPIC in the indices of the Emacs Lisp Reference Manual."
>>   (interactive)
>>   (let (topic)
>>     (setq topic (read-string (concat "Subject to look up: ") nil nil (symbol-name (symbol-at-point))))
>>     (funcall 'switch-to-buffer-other-window nil)
>>     (info "elisp")
>>     (Info-index topic)))
>
> Thierry wrote:
> ,----
> | (defun tv-get-index-at-point ()
> |   (interactive)
> |   (let ((expr (thing-at-point 'sexp)))
> |     (elisp-index-search expr)))
> `----
>
> among the 3 suggestions, it seems only Thierry's version works for me.
>
> is there a reason why it shouldn't prompt for current symbol?
No you can have a prompt, (use <arrow down> to display thing-at-point)

,----
| (defun tv-get-index-at-point (expr)
|   (interactive
|    (list (read-from-minibuffer "Search: "
|                                nil
|                                nil
|                                nil
|                                nil
|                                (thing-at-point 'sexp))))
|   (elisp-index-search expr))
`----


-- 
A + Thierry Volpiatto
Location: Saint-Cyr-Sur-Mer - France