From 10bc312a6250c4b4e7882ac393966653e58e6cf2 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 31 Mar 2016 03:18:03 -0400 Subject: [PATCH] defuns-file: handle modified buffers on :mv and :rm --- core/defuns/defuns-file.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/core/defuns/defuns-file.el b/core/defuns/defuns-file.el index aecd2f289..6a5ae275b 100644 --- a/core/defuns/defuns-file.el +++ b/core/defuns/defuns-file.el @@ -15,6 +15,7 @@ (when (file-exists-p file) (delete-file file t))) (narf/org-attachments))) + (set-buffer-modified-p nil) (delete-file filename) (kill-this-buffer) (unless (narf/real-buffer-p) @@ -33,7 +34,8 @@ provided." (let ((dir (f-dirname path)) (fullpath (f-full path)) (is-auto t)) - (when (and bang (not (file-exists-p dir))) (f-mkdir dir)) + (when (and bang (not (file-exists-p dir))) + (f-mkdir dir)) (if (file-exists-p dir) (if (file-exists-p fullpath) (error "File already exists: %s" path) @@ -61,6 +63,8 @@ provided." (when (file-exists-p file) (rename-file file (f-expand (f-filename old-path) (f-dirname new-path)) t))) (narf/org-attachments))) + (when (buffer-modified-p) + (save-buffer)) (rename-file old-path new-path 1) (rename-buffer (f-filename new-path)) (set-visited-file-name new-path)