Re: doing an Occur in an Occur buffer

[Kevin Rodgers]

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