Como posso fechar automaticamente os buffers quando o arquivo subjacente é excluído?

Deixo o Emacs em execução o dia todo e, muitas vezes, fará muita manipulação do sistema de arquivos em arquivos abertos nos buffers do Emacs. Por exemplo, eu posso mudar para uma ramificação diferente no Git que tenha uma estrutura de diretórios muito diferente.

Infelizmente, isso me deixa com um monte de buffers abertos que o Emacs agora registra como buffers "modificados", referindo-se a arquivos "novos". A menos que eu tenha o cuidado de fechá-los manualmente toda vez que fizer isso, é fácil salvar reflexivamente os buffers, o que resulta em arquivos espúrios e provavelmente duplicados no meu projeto. Não consigo nem fechar o emacs sem responder à pergunta "salvar este buffer" de cada um.

Existe uma maneira de fechar automaticamente os buffers não modificados quando o arquivo subjacente desaparecer? Similar em espírito a um global-auto-revert-modeque também lida quando um arquivo é removido completamente?

Eu acho que algo nesse sentido poderia 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)))

A buffer-backed-by-file-pfunção verifica se o arquivo é apoiado por um arquivo - se não, retorna true, caso contrário, retorna se o arquivo de backup existe. Em seguida, pegamos a lista de buffers, filtrando qualquer coisa, exceto aqueles que deveriam ter um arquivo de backup, mas o arquivo não existe, e os matamos.

Requer dash.el para -remove, porque eu estava com preguiça de encontrar um built-in para conseguir a mesma coisa.

Espero que isto ajude!