branch: externals/bug-hunter
commit 5075592046be1e0e5fc9e31899aac9e8da2741cc
Author: Artur Malabarba <[email protected]>
Commit: Artur Malabarba <[email protected]>
Inhibit readonly
---
bug-hunter.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/bug-hunter.el b/bug-hunter.el
index 37109f5..8095953 100644
--- a/bug-hunter.el
+++ b/bug-hunter.el
@@ -156,12 +156,13 @@ R is passed to `bug-hunter--report-print'."
"Create and prepare the \"*Bug-Hunter Report*\" buffer.
Also add some descriptions depending on ASSERTION."
(with-current-buffer (get-buffer-create "*Bug-Hunter Report*")
- (erase-buffer)
- (compilation-mode "Bug Hunt")
- (set (make-local-variable 'compilation-error-regexp-alist)
- '(comma))
- (pcase assertion
- (`interactive (insert (format bug-hunter--interactive-explanation (+ 2
steps)))))
+ (let ((inhibit-read-only t))
+ (erase-buffer)
+ (compilation-mode "Bug Hunt")
+ (set (make-local-variable 'compilation-error-regexp-alist)
+ '(comma))
+ (pcase assertion
+ (`interactive (insert (format bug-hunter--interactive-explanation (+ 2
steps))))))
(current-buffer)))
(defun bug-hunter--pretty-format (value padding)
