On Sat, 26 Apr 2003, Johan [iso-8859-1] Bockgård wrote:

> kai.grossjohann@gmx.net (Kai Großjohann) writes:
...
> 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)

I like it too.   I didn't know of occur.   Thanks!

Dave
-- 
 Dave Forrest    (434)924-3954w(111B) (804)642-0662h (804)695-2026p
 drf5n@virginia.edu             http://mug.sys.virginia.edu/~drf5n/