From xemacs-m  Fri Apr  4 12:57:37 1997
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA16951
	for <xemacs-beta@xemacs.org>; Fri, 4 Apr 1997 12:57:36 -0600 (CST)
Received: from kiki.icd.teradyne.com (kiki.icd.teradyne.com [131.101.1.30]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id OAA24197; Fri, 4 Apr 1997 14:00:56 -0500 (EST)
Received: from spacely.icd.teradyne.com (spacely.icd.teradyne.com [131.101.10.9]) by kiki.icd.teradyne.com (8.7.1/8.7.1) with SMTP id NAA05443; Fri, 4 Apr 1997 13:54:05 -0500 (EST)
Received: from spacely by spacely.icd.teradyne.com (SMI-8.6/SMI-SVR4)
	id NAA23160; Fri, 4 Apr 1997 13:57:35 -0500
Message-Id: <199704041857.NAA23160@spacely.icd.teradyne.com>
X-Mailer: exmh version 2.0gamma 1/27/96
To: Hayden Schultz <haydens@tiac.net>
cc: xemacs-beta@xemacs.org
Subject: Re: patch to process.el 
In-reply-to: haydens's message of Fri, 04 Apr 1997 13:31:16 -0500.
	     <334548F4.5B09@tiac.net> 
reply-to: acs@acm.org
X-Attribution: Vin
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Fri, 04 Apr 1997 13:57:35 -0500
From: Vinnie Shelton  <shelton@icd.teradyne.com>


This patch has already been posted AND it's on the patch page. Currently
there are only 2 patches there, but as of tonight/tomorrow, I'm going to put
up the rest of the approved patches.  Do yourself a favor, and check the
patch page first:

http://www.xemacs.org/xemacs-19.15-patches/patch-page.html

You'll also be helping other XEmacs users by making sure the patches work.

Thanks,
  vin

> Here's a very simple patch to process.el. There's a bug in
> shell-command causing the optional output-buffer arg to be ignored.
> 
> 	Hayden
> 
> 
> 
> *** process.el	Fri Apr  4 13:26:39 1997
> --- process.el~	Sun Feb  2 00:06:08 1997
> ***************
> *** 142,148 ****
>     (interactive (list (read-shell-command "Shell command: ")
>   		     current-prefix-arg))
>     (if (and output-buffer
> ! 	   (or (bufferp output-buffer)  (stringp output-buffer)))
>         (progn (barf-if-buffer-read-only)
>   	     (push-mark)
>   	     ;; We do not use -f for csh; we will not support broken use of
> --- 142,148 ----
>     (interactive (list (read-shell-command "Shell command: ")
>   		     current-prefix-arg))
>     (if (and output-buffer
> ! 	   (not (or (bufferp output-buffer)  (stringp output-buffer))))
>         (progn (barf-if-buffer-read-only)
>   	     (push-mark)
>   	     ;; We do not use -f for csh; we will not support broken use of
> 


