From xemacs-m  Fri Apr  4 12:39:19 1997
Received: from firewall.ptechinc.com (smtp-gate.ptechinc.com [199.232.99.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA16813
	for <xemacs-beta@xemacs.org>; Fri, 4 Apr 1997 12:39:18 -0600 (CST)
Received: from thunder (thunder [192.9.200.112]) by firewall.ptechinc.com (8.7.6/8.7.3) with SMTP id NAA13880 for <xemacs-beta@xemacs.org>; Fri, 4 Apr 1997 13:41:11 -0500
Sender: hayden@firewall.ptechinc.com
Message-ID: <334548F4.5B09@tiac.net>
Date: Fri, 04 Apr 1997 13:31:16 -0500
From: Hayden Schultz <haydens@tiac.net>
X-Mailer: Mozilla 2.0 (X11; I; SunOS 5.5 sun4m)
MIME-Version: 1.0
To: xemacs-beta@xemacs.org
Subject: patch to process.el
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

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

