Re: elisp-index-search on current word

[Kevin Rodgers]

Xah wrote:
> On Oct 8, 7:49 pm, Kevin Rodgers <kevin.d.rodg...@gmail.com> wrote:
> > What happens when you call my version or Andy's version?
>
> it didn't prompt the symbol under cursor. I tried up arrow but i
> didn't try down arrow; should've.

Yes, <down> would have worked.

> I filed a bug report on this issue. I think it should prompt the
> symbol under cursor like most other lookup commands such as describe-
> function, where the current symbol is shown inside the prompt text.

Ah, to get the conventional prompt:

(defadvice elisp-index-search (before interactive-default activate)
  "Provide the symbol at point as the default when reading TOPIC 
interactively."
  (interactive (let ((symbol-at-point (thing-at-point 'symbol)))
                 (list (read-string (if symbol-at-point
                                        (format "Topic (%s): " symbol-at-point)
                                      (format "Topic: "))
                                    nil nil symbol-at-point)))))

--
Kevin Rodgers
Denver, Colorado, USA