(compilation-setup): Don't set buffer-read-only if MINOR is non-nil.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index d90fe77fe2833c5fc9f911ed805d7debb32fa4a7..5179e2e9b2cfb4d543a53b68cdc87183bf86ce3f 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1186,7 +1186,8 @@ If nil, use the beginning of buffer.")
   "Prepare the buffer for the compilation parsing commands to work.
 Optional argument MINOR indicates this is called from
 `compilation-minor-mode'."
-  (setq buffer-read-only t)
+  (unless minor
+    (setq buffer-read-only t))
   (make-local-variable 'compilation-current-error)
   (make-local-variable 'compilation-messages-start)
   (make-local-variable 'compilation-error-screen-columns)