From kevinr@airedale Fri Oct 18 07:50:16 1996 X-VM-v5-Data: ([nil nil nil nil nil nil nil nil nil] [nil "Fri" "18" "October" "1996" "07:50:11" "-0600" "Kevin Rodgers" "kevinr@airedale" nil nil "Re: standard input in *compile* buffers" "^From:" nil nil "10" nil "standard input in *compile* buffers" nil nil nil] nil) Return-Path: Received: from ihs.com by airedale.ihsyp (SMI-8.6/SMI-SVR4) id HAA03501; Fri, 18 Oct 1996 07:50:15 -0600 Received: from airedale.ihsyp (airedale.ihs.com) by ihs.com (4.1/SMI-4.1) id AA02413; Fri, 18 Oct 96 07:50:04 MDT Received: by airedale.ihsyp (SMI-8.6/SMI-SVR4) id HAA03498; Fri, 18 Oct 1996 07:50:11 -0600 Message-Id: <199610181350.HAA03498@airedale.ihsyp> Reply-To: kevin.rodgers@ihs.com X-Newsreader: TIN [version 1.2 PL2] Content-Length: 2296 From: kevinr@airedale (Kevin Rodgers) Organization: IHS Electronic Systems Development To: GNU Emacs bug reports Cc: kb@cs.umb.edu (K. Berry) Subject: Re: standard input in *compile* buffers Newsgroups: gnu.emacs.bug Date: Fri, 18 Oct 1996 07:50:11 -0600 In article <199610122106.AA05911@terminus.cs.umb.edu> kb@cs.umb.edu (K. Berry) wrote: >Since it's not possible to actually type input in *compile* buffers, >could input be redirected from /dev/null so programs aren't fooled? >Naturally, it would be even nicer to actually be able to interact in the >buffer. In that case, the redirection could be optional. Here's a slightly improved version of the patch I submitted, which makes the redirection optional (controlled by the new variable compile- disable-input) as Karl suggested. Its default value makes compile behave the same whether the platform supports asynchronous processes or not. With my first patch, I had wondered whether `process-send-eof' should not be called until after the compilation process' sentinel, filter, and marker were set; but it seems to work fine just as it is. Fri Oct 18 07:29:27 1996 Kevin Rodgers * compile.el (compile-disable-input): Define. (compile-internal): If compile-disable-input is non-nil, send an EOF to the compilation process. *** lisp/compile.el.orig Fri Apr 26 13:44:02 1996 --- lisp/compile.el Thu Oct 17 13:50:32 1996 *************** *** 358,363 **** --- 358,369 ---- (cons msg code))) (cons msg code))))))) + (defvar compile-disable-input t + "*If non-nil, redirect input for compilation processes from `/dev/null'. + + This only affects platforms that support asynchronous processes (see + start-process); synchronous compilation processes never accept input.") + (defun compile-internal (command error-message &optional name-of-mode parser regexp-alist name-function) *************** *** 445,450 **** --- 451,458 ---- (proc (start-process-shell-command (downcase mode-name) outbuf command))) + (if compile-disable-input + (process-send-eof proc)) (set-process-sentinel proc 'compilation-sentinel) (set-process-filter proc 'compilation-filter) (set-marker (process-mark proc) (point) outbuf) -- Kevin Rodgers Project Engineer Information Handling Services Electronic Systems Development 15 Inverness Way East, M/S A201 GO BUFFS! Englewood CO 80112-5776 USA 1+ (303) 397-2807[voice]/754-3975[fax]