[elpa] externals/bug-hunter 813d20b 07/95: Fix commands

[Stefan Monnier]

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

    Fix commands
---
 bug-hunter.el | 30 +++++++++++++++++++++++++-----
 1 file changed, 25 insertions(+), 5 deletions(-)

diff --git a/bug-hunter.el b/bug-hunter.el
index fada2f9..961f66d 100644
--- a/bug-hunter.el
+++ b/bug-hunter.el
@@ -57,14 +57,34 @@
   (bug-hunter--report-print "")
   (apply #'user-error r))
 
+(defun bug-hunter--run-form (form)
+  "Run FUNCTION with \"emacs -Q\" and return the result."
+  (let ((out-buf (generate-new-buffer "*Bug-Hunter Command*"))
+        (exec (file-truename (expand-file-name invocation-name
+                                               invocation-directory))))
+    (shell-command
+     (concat (shell-quote-argument exec)
+             " -Q -batch --eval "
+             (shell-quote-argument
+              (with-temp-buffer
+                (print (list 'prin1 form) (current-buffer))
+                (buffer-string))))
+     out-buf)
+    (with-current-buffer out-buf
+      (goto-char (point-max))
+      (forward-sexp -1)
+      (prog1 (read (current-buffer))
+        ;; (kill-buffer (current-buffer))
+        ))))
+
 (defun bug-hunter--run-and-test (forms assertion)
   "Execute FORMS in the background and test ASSERTION.
 See `bug-hunter' for a description on the ASSERTION."
-  (async-sandbox
-   `(lambda () (condition-case er
-              (progn ,@forms
-                     ,assertion)
-            (error (cons 'error er))))))
+  (bug-hunter--run-form
+   `(condition-case er
+        (progn ,@forms
+               ,assertion)
+      (error (cons 'error er)))))
 
 (defun bug-hunter--init-report-buffer ()
   (or (get-buffer "*Bug-Hunter Report*")