Saya tidak berpikir ada mekanisme bawaan untuk ini, jadi Anda mungkin perlu memutar sendiri.
Tidak memiliki jawaban langsung, tetapi saya memiliki sesuatu yang serupa di konfigurasi saya: Saya tidak ingin diminta konfirmasi ketika membunuh file yang cocok dengan apa yang ada di disk. Untuk memeriksa ini saya sedang menjalankan diff dan kemudian memindai output - Anda mungkin dapat melakukan sesuatu yang serupa untuk use case Anda.
(defun my/matches-file-p ()
"Return t if the current buffer is identical to its associated file."
(autoload 'diff-no-select "diff")
(when buffer-file-name
(diff-no-select buffer-file-name (current-buffer) nil 'noasync)
(with-current-buffer "*Diff*"
(search-forward-regexp "^Diff finished \(no differences\)\." (point-max) 'noerror))))
(defun my/kill-buffer ()
"Kill the current buffer.
Don't prompt for confirmation if the buffer is unmodified or matches its file."
(interactive)
(when (my/matches-file-p)
(set-buffer-modified-p nil))
(kill-buffer))
Melihat lebih banyak pada kasing otomatis. Sepertinya prompt itu berasal after-find-file
, yang melihat cap waktu ( file-newer-than-file-p
). Saya tidak melihat cara mudah untuk menyesuaikan atau menyarankan perilaku ini. Mungkin Anda bisa menyarankan after-find-file
untuk membandingkan file dengan file simpan otomatisnya dan atur warn
argumen ke nil jika semuanya cocok.