¿Cómo obtengo una advertencia antes de matar un buffer temporal en Emacs?

Question

Más de una vez perdí mi trabajo al matar accidentalmente un buffer temporal en Emacs. ¿Puedo configurar Emacs para darme una advertencia cuando elimino un buffer no asociado con un archivo?

Answer 1

Realice una función que le preguntará si está seguro de cuándo se ha editado el búfer y si no está asociado a un archivo. A continuación, agregue esa función a la lista kill-buffer-query-functions.

En cuanto a la documentación para Buffer File Name que comprenden:

• un buffer no está de visita en un archivo si y sólo si la variable buffer-file-name es nula

Use esa información para escribir la función:

(defun maybe-kill-buffer() 
    (if (and (not buffer-file-name) 
      (buffer-modified-p)) 
     ;; buffer is not visiting a file 
     (y-or-n-p "This buffer is not visiting a file but has been edited. Kill it anyway? ") 
    t)) 

Y luego agregue la función al gancho así:

(add-to-list 'kill-buffer-query-functions 'maybe-kill-buffer) 

Answer 2

(defun maybe-kill-buffer() 
    (if (and (not buffer-file-name) 
      (buffer-modified-p)) 
     ;; buffer is not visiting a file 
     (y-or-n-p (format "Buffer %s has been edited. Kill it anyway? " 
         (buffer-name))) 
    t)) 

(add-to-list 'kill-buffer-query-functions 'maybe-kill-buffer)