Commit 5f8b46c9 authored by Jason Blevins's avatar Jason Blevins

Close open buffer when deleting file

parent 957a53b7
......@@ -1394,6 +1394,8 @@ proceeding."
(when filename
(when (y-or-n-p
(concat "Delete file " (file-name-nondirectory filename) "? "))
(let ((buffer (get-file-buffer filename)))
(when buffer (kill-buffer buffer)))
(delete-file filename)
(delq filename deft-current-files)
(delq filename deft-all-files)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment