[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/bug-hunter 02ba202 23/95: Don't use shell-command
From: |
Stefan Monnier |
Subject: |
[elpa] externals/bug-hunter 02ba202 23/95: Don't use shell-command |
Date: |
Fri, 27 Nov 2020 22:06:50 -0500 (EST) |
branch: externals/bug-hunter
commit 02ba20244868780758ad0ab8f5a766e412876d98
Author: Artur Malabarba <bruce.connor.am@gmail.com>
Commit: Artur Malabarba <bruce.connor.am@gmail.com>
Don't use shell-command
---
bug-hunter.el | 27 ++++++++++++++++-----------
1 file changed, 16 insertions(+), 11 deletions(-)
diff --git a/bug-hunter.el b/bug-hunter.el
index 1de4795..fc0e857 100644
--- a/bug-hunter.el
+++ b/bug-hunter.el
@@ -96,21 +96,26 @@
"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)
+ invocation-directory)))
+ (file-name (make-temp-file "bug-hunter")))
+ (unwind-protect
+ (progn
+ (with-temp-file file-name
+ (let ((print-length nil)
+ (print-level nil))
+ (print (list 'prin1 form) (current-buffer)))
+ (buffer-string))
+ (shell-command
+ (concat (shell-quote-argument exec)
+ " -Q --batch -l "
+ (shell-quote-argument file-name))
+ out-buf))
+ (delete-file file-name))
(with-current-buffer out-buf
(goto-char (point-max))
(forward-sexp -1)
(prog1 (read (current-buffer))
- ;; (kill-buffer (current-buffer))
- ))))
+ (kill-buffer (current-buffer))))))
(defun bug-hunter--run-and-test (forms assertion)
"Execute FORMS in the background and test ASSERTION.
- [elpa] externals/bug-hunter 288985a 02/95: Add bug-hunter.el, (continued)
- [elpa] externals/bug-hunter 288985a 02/95: Add bug-hunter.el, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter eef7a91 04/95: Indent and return value, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter e9aeb70 06/95: Add travis, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter c4d2cb9 08/95: Test from 24.1, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter 8889fa7 09/95: Fix readme, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter a5abf31 11/95: Add version, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter c19b16b 14/95: Req seq, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter 95440af 18/95: Progress reports, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter e86102c 05/95: define tests, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter 79b11d8 19/95: Add autoloads, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter 02ba202 23/95: Don't use shell-command,
Stefan Monnier <=
- [elpa] externals/bug-hunter 935b87c 25/95: Actually do a bisection, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter c7103b8 27/95: Fix test, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter a1364ba 28/95: Add a test, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter a3c30df 30/95: Require cl in test, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter df45b34 29/95: Update README.md, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter 2caf570 15/95: Fix tests, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter 45bbc36 20/95: Readme link, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter 9be6176 21/95: Readme, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter 7594b29 22/95: Readme, Stefan Monnier, 2020/11/27
- [elpa] externals/bug-hunter 813d20b 07/95: Fix commands, Stefan Monnier, 2020/11/27