How to protect a buffer from being deleted by accident?

How to protect a buffer from being deleted by accident?

[Adalbert Perbandt]

Hi there,

At my site we're using clearcase mode (clearcase.el) for a long time
with very few problems. Some time ago one of our users deleted the
buffer "*clearcase*" inadvertently.

Now I'd like to provide a simple mechanism which disallows for
deletion of this buffer. I think, it would not be too complex to
implement this but I don't know any simple method to get it
done. Maybe there is a posibility to mark a specific buffer as
"undeletable" or so.

Any hints are welcome.

Regards,

Adalbert Perbandt.

Re: How to protect a buffer from being deleted by accident?

[Phillip Lord]

>>>>> "Adalbert" == Adalbert Perbandt <adalbert.perbandt@infineon.com> writes:

  Adalbert> Hi there,

  Adalbert> At my site we're using clearcase mode (clearcase.el) for a
  Adalbert> long time with very few problems. Some time ago one of our
  Adalbert> users deleted the buffer "*clearcase*" inadvertently.

  Adalbert> Now I'd like to provide a simple mechanism which disallows
  Adalbert> for deletion of this buffer. I think, it would not be too
  Adalbert> complex to implement this but I don't know any simple
  Adalbert> method to get it done. Maybe there is a posibility to mark
  Adalbert> a specific buffer as "undeletable" or so.

  Adalbert> Any hints are welcome.


There is a kill buffer hook, and also a variable called
"kill-buffer-query-functions". You could put something in there. 

So it would go something like

  
(defun clearcase-query-function()
  (interactive)
  (y-or-n-p "Really kill this buffer"))
        


(add-hook 'clearcase-mode-hook
          (lambda()
            (interactive)
            (make-local-variable 'kill-buffer-query-functions)
            (add-to-list 'kill-buffer-query-functions
                         'clearcase-query-function)))

I don't have a copy of clearcase.el around, so I don't know if
clearcase-mode-hook is right or not. There should be something similar
though. 

Cheers

Phil

Re: How to protect a buffer from being deleted by accident?

[Colin Marquardt]

Adalbert Perbandt <adalbert.perbandt@infineon.com> writes:

> At my site we're using clearcase mode (clearcase.el) for a long time
> with very few problems. Some time ago one of our users deleted the
> buffer "*clearcase*" inadvertently.

This happens to me too, from time to time, but I see no adverse
effects. Maybe getting a newer version helps?

Cheers,
  Colin

Re: How to protect a buffer from being deleted by accident?

[Jesper Harder]

Adalbert Perbandt <adalbert.perbandt@infineon.com> writes:

> Now I'd like to provide a simple mechanism which disallows for
> deletion of this buffer. I think, it would not be too complex to
> implement this but I don't know any simple method to get it
> done. Maybe there is a posibility to mark a specific buffer as
> "undeletable" or so.

There is 'protbuf.el'
<ftp://ftp.splode.com/pub/users/friedman/emacs-lisp/protbuf.el>

;;; Commentary:

;; This package allows you to make it harder to kill buffers accidentally,
;; e.g. by being too trigger happy selecting items in the buffer menu.
;; protect-process-buffer-from-kill-mode is perhaps the more useful of the
;; two, making it harder to accidentally kill shell buffers without
;; terminating the process in them first.

Re: How to protect a buffer from being deleted by accident?

[Tom Capey]

* Adalbert Perbandt <adalbert.perbandt@infineon.com> writes:

> Hi there,
> At my site we're using clearcase mode (clearcase.el) for a long time
> with very few problems. Some time ago one of our users deleted the
> buffer "*clearcase*" inadvertently.

> Now I'd like to provide a simple mechanism which disallows for
> deletion of this buffer. I think, it would not be too complex to
> implement this but I don't know any simple method to get it
> done. Maybe there is a posibility to mark a specific buffer as
> "undeletable" or so.


(require 'emacs-lock)

`toggle-emacs-lock'

  or within code somewhere

(let ((buffer (get-buffer "*clearcase*")))
  (when buffer
    (set-buffer buffer)
    (setq emacs-lock-from-exiting nil)))

    something along those lines.


/Tom
-- 
"...and so, as the plastic duck of destiny has been sunk by the loofah
of fate, and Old Father Time has gone wrinkly in the bath water of
eternity, it must be time to pick out the short hairs of hope from the
plug hole of infinity."                                       -- Humph

Re: How to protect a buffer from being deleted by accident?

[Jeffery B. Rancier]

Adalbert Perbandt <adalbert.perbandt@infineon.com> writes:

> Hi there,
> 
> At my site we're using clearcase mode (clearcase.el) for a long time
> with very few problems. Some time ago one of our users deleted the
> buffer "*clearcase*" inadvertently.
> 
> Now I'd like to provide a simple mechanism which disallows for
> deletion of this buffer. I think, it would not be too complex to
> implement this but I don't know any simple method to get it
> done. Maybe there is a posibility to mark a specific buffer as
> "undeletable" or so.
> 
> Any hints are welcome.
> 
> Regards,
> 
> Adalbert Perbandt.

Have you looked at protbuf.el?  
http://www.splode.com/~friedman/software/emacs-lisp/src/protbuf.el

Jeff

Re: How to protect a buffer from being deleted by accident?

[Adalbert Perbandt]

Hi there,

thanks a lot for all the valuable hints!

In between I got informed about the location where I could download
recent versions of the clearcase-mode package. I did so and looked
into the most recent code. Now the problem with the *clearcase* buffer
is gone and the much more sensible *cleartool* buffer got a space as
first character added so it is no longer visible in the buffer
list. Obviously the author also saw good reasons to change this.

Thanks,

Adalbert.