(compilation-start): Bind buffer-read-only to nil before

invoking call-process.  Reset buffer's modified flag after
fontifying it in the no-async branch.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 601eb03946e..7b401da794e 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -985,8 +985,9 @@ Returns the compilation buffer created."
           (setq mode-line-process ":run")
           (force-mode-line-update)
           (sit-for 0)                   ; Force redisplay
-          (let ((status (call-process shell-file-name nil outbuf nil "-c"
-                                      command)))
+          (let* ((buffer-read-only nil) ; call-process needs to modify outbuf
+                 (status (call-process shell-file-name nil outbuf nil "-c"
+                                       command)))
             (cond ((numberp status)
                    (compilation-handle-exit 'exit status
                                             (if (zerop status)
@@ -1003,6 +1004,7 @@ exited abnormally with code %d\n"
           ;; fontified, so fontify it now.
           (let ((font-lock-verbose nil)) ; shut up font-lock messages
             (font-lock-fontify-buffer))
+          (set-buffer-modified-p nil)
           (message "Executing `%s'...done" command)))
       ;; Now finally cd to where the shell started make/grep/...
       (setq default-directory thisdir))