¿Cómo recibo una advertencia antes de cerrar un búfer temporal en Emacs?

Question

Más de una vez perdí trabajo al cerrar accidentalmente un buffer temporal en Emacs.¿Puedo configurar Emacs para que me dé una advertencia cuando elimino un búfer no asociado con un archivo?

Answer 1

Cree una función que le pregunte si está seguro cuando el búfer haya sido editado y no esté asociado con un archivo.Luego agregue esa función a la lista. kill-buffer-query-functions.

Mirando la documentación para Nombre del archivo de búfer tú entiendes:

• un buffer no visita un archivo si y solo si la variable buffer-file-name es nulo

Utilice 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)