From 8d48d92324089ff3ea97e5a2d51e8061e601e62b Mon Sep 17 00:00:00 2001 From: Igor Shymko Date: Mon, 29 Aug 2016 23:58:12 +0300 Subject: [PATCH] preview file cleanup --- markdown-preview-mode.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/markdown-preview-mode.el b/markdown-preview-mode.el index 4c1a1a6..7c3cccf 100644 --- a/markdown-preview-mode.el +++ b/markdown-preview-mode.el @@ -170,7 +170,11 @@ (defun markdown-preview--stop () "Stop `markdown-preview' mode." (remove-hook 'after-save-hook 'markdown-preview--send-preview t) - (markdown-preview--stop-idle-timer)) + (markdown-preview--stop-idle-timer) + (let ((preview-file (concat (file-name-directory (buffer-file-name)) markdown-preview-file-name))) + (if (file-exists-p preview-file) + (delete-file preview-file))) + ) ;;;###autoload (defun markdown-preview-open-browser ()