Re: elisp-index-search on current word

[Kevin Rodgers]

Richard Riley wrote:
> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>
> > 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))
> > `----
>
> Would it be possible to have the thing at point displayed like most
> defaults when you call the function? e.g If you hit search in most
> editors one would normally see the word at point or region preselected
> in the "search" field.

Try moving (thing-at-point 'sexp) from the DEFAULT argument to the
INITIAL-CONTENTS argument, for either read-string or
read-from-minibuffer.  Note that the doc string for both functions says
the INITIAL-CONTENTS argument is deprecated.

--
Kevin Rodgers
Denver, Colorado, USA