From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 Sep 1999 20:18:23 +0000 (+0000)
Subject: Always run compilation subprocesses with pipes.
X-Git-Tag: 20090517-FFI~4455
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=06f8cd12fd7cc9c0a91b009b6860e70c80b11b23;p=mit-scheme.git

Always run compilation subprocesses with pipes.
---

diff --git a/v7/src/edwin/compile.scm b/v7/src/edwin/compile.scm
index 03c91a336..2a900a180 100644
--- a/v7/src/edwin/compile.scm
+++ b/v7/src/edwin/compile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: compile.scm,v 1.12 1999/05/13 02:08:26 cph Exp $
+;;; $Id: compile.scm,v 1.13 1999/09/14 20:18:23 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology
 ;;;
@@ -88,9 +88,8 @@ with output going to the buffer *compilation*."
     (disable-group-undo! (buffer-group buffer))
     (set-buffer-default-directory! buffer directory)
     (set-buffer-major-mode! buffer (ref-mode-object fundamental))
-    (define-variable-local-value! buffer
-	(ref-variable-object mode-line-process)
-      '(": %s"))
+    (local-set-variable! mode-line-process '(": %s") buffer)
+    (local-set-variable! process-connection-type #f buffer)
     (let ((mark (mark-left-inserting-copy (buffer-start buffer))))
       (let ((window (get-buffer-window buffer)))
 	(if window