branch: externals/bug-hunter
commit f9780b8f8326231d9c00314d75d57d6c79a47c19
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Style fixes
---
bug-hunter.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/bug-hunter.el b/bug-hunter.el
index bd3f771..67806c9 100644
--- a/bug-hunter.el
+++ b/bug-hunter.el
@@ -72,7 +72,7 @@
(require 'seq)
(require 'cl-lib)
-(defvar bug-hunter--assertion-reminder
+(defconst bug-hunter--assertion-reminder
"Remember, the assertion must be an expression that returns
non-nil in your current (problematic) Emacs state, AND that
returns nil on a clean Emacs instance."
@@ -290,7 +290,6 @@ ASSERTION's return value.
If ASSERTION is nil, n is the position of the first form to
signal an error and value is (bug-caught . ERROR-SIGNALED)."
(let ((bug-hunter--i 0)
- (bug-hunter--estimate (ceiling (log (length forms) 2)))
(bug-hunter--current-head nil))
(condition-case-unless-debug nil
(apply #'bug-hunter--bisect assertion nil (bug-hunter--split forms))
@@ -320,7 +319,8 @@ are signaled and the assertion is not triggered after all
EXPRs
are evaluated."
(pop-to-buffer (bug-hunter--init-report-buffer))
(let ((expressions (unless (eq (car-safe rich-forms) 'bug-caught)
- (mapcar #'car rich-forms))))
+ (mapcar #'car rich-forms)))
+ (bug-hunter--estimate (ceiling (log (length rich-forms) 2))))
(cond
((not expressions)
(apply #'bug-hunter--report-error (cdr rich-forms))
@@ -395,7 +395,7 @@ Wraps them in a progn if necessary."
(defun bug-hunter-file (file &optional assertion)
"Bisect FILE while testing ASSERTION.
All sexps in FILE are read and passed to `bug-hunter-hunt' as a
-list. See `bug-hunter-hunt' for how to use assertion."
+list. See `bug-hunter-hunt' for how to use ASSERTION."
(interactive
(list
(read-file-name "File to bisect: "
@@ -411,7 +411,7 @@ list. See `bug-hunter-hunt' for how to use assertion."
"Test ASSERTION throughout `user-init-file'.
All sexps inside `user-init-file' are read and passed to
`bug-hunter-hunt' as a list. See `bug-hunter-hunt' for how to use
-assertion."
+ASSERTION."
(interactive (list (bug-hunter--read-from-minibuffer)))
(bug-hunter-file user-init-file assertion))
