# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1107013826 0
# Node ID 1ffd5f5591a2d1b0c40fd0d73fa4c06fa616e172
# Parent  3ee04791024fc11fc0fb46dd08fc64cb4997c753
(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.

diff -r 3ee04791024f -r 1ffd5f5591a2 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sat Jan 29 14:05:34 2005 +0000
+++ b/lisp/progmodes/compile.el	Sat Jan 29 15:50:26 2005 +0000
@@ -985,8 +985,9 @@
 	  (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 @@
 	  ;; 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))