Re: How to search current word under cursor?

[Andreas Politz]

cfelton wrote:
> How do you extend this to the occur function?  I have a key binding mapped to
> the occur function, and I would like the word at the cursor (compete word
> foo_bar, not just foo) to be the default search when invoked?
>
> Thanks 
>
>
> bastien-3 wrote:
> > Jijun MA <jjmmma@gmail.com> writes:
> >
> > > I want search this buffer of current word under cursor, how can I do
> > > it?
> > C-s C-w
> >
> > --
> > Bastien

occur takes the first item in `regexp-history' as default value.
This list can be manipulated.

(defun occur-symbol-at-point ()
  (interactive)
  (let ((sym (thing-at-point 'symbol)))
    (if sym
        (push (regexp-quote sym) regexp-history)) ;regexp-history defvared in 
replace.el
      (call-interactively 'occur)))


-ap