diff lisp/progmodes/compile.el @ 732:a8d94735277e

*** empty log message ***

--- a/lisp/progmodes/compile.el	Tue Jun 30 13:49:39 1992 +0000
+++ b/lisp/progmodes/compile.el	Tue Jun 30 13:54:21 1992 +0000
@@ -272,6 +272,7 @@
       (set-buffer outbuf)
       (compilation-mode)
       (buffer-disable-undo (current-buffer))
+      (setq buffer-read-only t)
       (set (make-local-variable 'compilation-parse-errors-function) parser)
       (set (make-local-variable 'compilation-error-message) error-message)
       (set (make-local-variable 'compilation-error-regexp-alist) regexp-alist)
@@ -343,6 +344,7 @@
 		   ;; Write something in the compilation buffer
 		   ;; and hack its mode line.
 		   (set-buffer buffer)
+		   (setq buffer-read-only nil)
 		   (setq omax (point-max)
 			 opoint (point))
 		   (goto-char omax)
@@ -360,7 +362,8 @@
 		   ;; will stay around until M-x list-processes.
 		   (delete-process proc))
 	       ;; Force mode line redisplay soon.
-	       (set-buffer-modified-p (buffer-modified-p)))
+	       (set-buffer-modified-p (buffer-modified-p))
+	       (setq buffer-read-only t))
 	     (if (and opoint (< opoint omax))
 		 (goto-char opoint))
 	     (set-buffer obuf)