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

4f331ded · Richard M. Stallman · 08dedea6 · 4f331ded
Commit 4f331ded authored Oct 19, 2004 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/progmodes/compile.el lisp/progmodes/compile.el +2 -1

No files found.
--- 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)