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
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