[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Eli Zaretskii]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.344 
emacs/lisp/progmodes/compile.el:1.345
*** emacs/lisp/progmodes/compile.el:1.344       Mon Dec 27 16:09:37 2004
--- emacs/lisp/progmodes/compile.el     Sat Jan 29 15:50:26 2005
***************
*** 985,992 ****
          (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)))
            (cond ((numberp status)
                   (compilation-handle-exit 'exit status
                                            (if (zerop status)
--- 985,993 ----
          (setq mode-line-process ":run")
          (force-mode-line-update)
          (sit-for 0)                   ; Force redisplay
!         (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,1008 ****
--- 1004,1010 ----
          ;; 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))