Re: doing an Occur in an Occur buffer

[Kevin Rodgers <ihs_4664@yahoo.com>]

Kevin Rodgers wrote:

> Dan Jacobson wrote:
> 
>> There should be some protection from doing an Occur in an Occur
>> buffer, trying to whittle down matches, instead blowing it away.
> 
> (defadvice occur (around occur-buffer-warning activate)
>  (if (and (interactive-p)
>        (equal (buffer-name) "*Occur*")
>        (yes-or-no-p "Running `occur' in the *Occur* buffer will lose \
> its contents; proceed anyway?" ))
>      ad-do-it))

Oops, that should be


   (if (or (not (interactive-p))
	  (not (equal (buffer-name) "*Occur*"))
	  (yes-or-no-p "Running `occur' in the *Occur* buffer will lose \
its contents; proceed anyway?" ))

-- 
Kevin Rodgers