Mercurial > emacs
diff lisp/progmodes/compile.el @ 732:a8d94735277e
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Tue, 30 Jun 1992 13:54:21 +0000 |
parents | 540b047ece4d |
children | b39d858a0b19 |
line wrap: on
line diff
--- 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)