Fixed hilariously dangerous bug (issue #5)

9 years ago · 2c58d68c81
parent ba2f7f4c86
commit 2c58d68c81
1 changed files with 2 additions and 1 deletions
--- 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