[elpa] externals/bug-hunter 5075592 71/95: Inhibit readonly

[Stefan Monnier]

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

    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)