Re: isearch and M-x occur questions(several)

[Javier Oviedo]

I just tried this and it is quite nice!! Thanks.

--
=======
Javier
"Javier Oviedo" <email_joviedo@yahoo.com> wrote in message
news:b8jbgi$41a$1@tilde.itg.ti.com...
> I like that idea quite a bit. I will test it out. Thanks.
>
> --
> =======
> Javier
> "Johan Bockgård" <bojohan+news@dd.chalmers.se> wrote in message
> yoijbrytf5j7.fsf@helm.dd.chalmers.se">news:yoijbrytf5j7.fsf@helm.dd.chalmers.se...
> > kai.grossjohann@gmx.net (Kai Großjohann) writes:
> >
> > > Another useful thing might be to bind a key in isearch-mode-map that
> > > runs occur with the right options.
> >
> > I like that.
> >
> > (defun isearch-occur ()
> >   "Run `occur' with current isearch string."
> >   (interactive)
> >   (let ((case-fold-search isearch-case-fold-search)
> > (search-string (if isearch-regexp
> >    isearch-string
> > (regexp-quote isearch-string))))
> >     (occur search-string)))
> >
> > (define-key isearch-mode-map [(control o)] 'isearch-occur)
> >
> >
> > --
> > Johan Bockgård
>
>