[elpa] externals/bug-hunter 2afa228 39/95: Letbind server-name to avoid conflicts

[Stefan Monnier]

branch: externals/bug-hunter
commit 2afa228210be046f96e735d23ecadc052ed80134
Author: Artur Malabarba <bruce.connor.am@gmail.com>
Commit: Artur Malabarba <bruce.connor.am@gmail.com>

    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 ()