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

[drf5n]

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/