branch: externals/bug-hunter
commit 2afa228210be046f96e735d23ecadc052ed80134
Author: Artur Malabarba <[email protected]>
Commit: Artur Malabarba <[email protected]>
Letbind server-name to avoid conflicts
---
bug-hunter.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/bug-hunter.el b/bug-hunter.el
index 58d19ff..1e6ac02 100644
--- a/bug-hunter.el
+++ b/bug-hunter.el
@@ -135,9 +135,11 @@
See `bug-hunter' for a description on the ASSERTION."
(bug-hunter--run-form
`(condition-case er
- (progn ,@forms
- (run-hooks 'after-init-hook)
- ,assertion)
+ (let ((server-name (make-temp-file "bug-hunter-temp-server-file")))
+ (delete-file server-name)
+ ,@forms
+ (run-hooks 'after-init-hook)
+ ,assertion)
(error (cons 'bug-caught er)))))
(defun bug-hunter--init-report-buffer ()
