branch: externals/dtache
commit 561f67d075eb21de41a869f78e88bc015a3402fa
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
Make remove entry delete session log
---
dtache.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/dtache.el b/dtache.el
index 0d63aa3901..35eb7c6a1e 100644
--- a/dtache.el
+++ b/dtache.el
@@ -954,7 +954,10 @@ Optionally make the path LOCAL to host."
(dtache--db-update-sessions))
(defun dtache--db-remove-entry (session)
- "Remove SESSION from `dtache--sessions' and update database."
+ "Remove SESSION from `dtache--sessions', delete log and update database."
+ (let ((log (dtache--session-file session 'log)))
+ (when (file-exists-p log)
+ (delete-file log)))
(setq dtache--sessions
(assq-delete-all (dtache--session-id session) dtache--sessions ))
(dtache--db-update-sessions))
