From 2c58d68c81ecca4140bf179f19ed153ec804b65a Mon Sep 17 00:00:00 2001 From: Joe Rabinoff Date: Mon, 3 Apr 2017 03:51:32 -0400 Subject: [PATCH] Fixed hilariously dangerous bug (issue #5) --- poporg.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/poporg.el b/poporg.el index 0ca92de..409951f 100644 --- a/poporg.el +++ b/poporg.el @@ -695,12 +695,13 @@ buffer instead." (defun poporg-kill-buffer-routine () "Cleanup an edit buffer whenever killed." ;; Delete the temporary file - (ignore-errors (set-buffer-modified-p nil) (delete-file (buffer-file-name))) (let ((entry (assq (current-buffer) poporg-data))) (when entry (let* ((overlay (cadr entry)) (buffer (overlay-buffer overlay))) (when buffer + (ignore-errors (set-buffer-modified-p nil) + (delete-file (buffer-file-name))) (delete-overlay overlay) (setq poporg-data (delq entry poporg-data)) (unless poporg-data