¿Cómo puedo cerrar automáticamente los búferes cuando se elimina el archivo subyacente?

Dejo Emacs funcionando todo el día, y a menudo haré mucha manipulación del sistema de archivos en los archivos que están abiertos en los buffers de Emacs. Por ejemplo, podría cambiar a una rama diferente en Git que tenga una estructura de directorio muy diferente.

Desafortunadamente, esto me deja con un montón de buffers abiertos que Emacs ahora registra como buffers "modificados" que se refieren a archivos "nuevos". A menos que tenga cuidado de cerrarlos manualmente cada vez que hago esto, es fácil guardar reflexivamente esos búferes que luego resultan en archivos espurios, probablemente duplicados en mi proyecto. Ni siquiera puedo cerrar emacs sin responder la pregunta "guardar este búfer" para cada uno.

¿Hay alguna manera de cerrar automáticamente los búferes no modificados cuando desaparece el archivo subyacente? ¿Similar en espíritu a un global-auto-revert-modeque también maneja cuando un archivo se elimina por completo?

Creo que algo en este sentido podría funcionar:

(defun buffer-backed-by-file-p (buffer)
  (let ((backing-file (buffer-file-name buffer)))
    (if (buffer-modified-p buffer)
        t
      (if backing-file
          (file-exists-p (buffer-file-name buffer))
        t))))

(mapc 'kill-buffer (-remove 'buffer-backed-by-file-p (buffer-list)))

La buffer-backed-by-file-pfunción verifica si el archivo está respaldado por un archivo; de lo contrario, devuelve verdadero; de lo contrario, devuelve si existe el archivo de respaldo. Luego tomamos la lista de buffers, filtrando todo menos aquellos que deberían tener un archivo de respaldo, pero el archivo no existe, y luego los eliminamos.

Requiere dash.el para -remove, porque era demasiado vago para encontrar un incorporado para lograr lo mismo.

¡Espero que esto ayude!