# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834966557 0
# Node ID 87c6c9287f45383983c2242973439a77bfdb1876
# Parent  b549210f6989ebf751554ef21cd569e2dc552bd7
(Fcall_process): Handle t or nil as STDERR_FILE.

diff -r b549210f6989 -r 87c6c9287f45 src/callproc.c
--- a/src/callproc.c	Sun Jun 16 18:47:08 1996 +0000
+++ b/src/callproc.c	Sun Jun 16 23:09:17 1996 +0000
@@ -245,8 +245,16 @@
       if (CONSP (buffer))
 	{
 	  if (CONSP (XCONS (buffer)->cdr))
-	    error_file = Fexpand_file_name (XCONS (XCONS (buffer)->cdr)->car,
-					    Qnil);
+	    {
+	      Lisp_Object file_for_stderr;
+	      stderr_file = XCONS (XCONS (buffer)->cdr)->car;
+
+	      if (NILP (stderr_file) || EQ (Qt, stderr_file))
+		error_file = stderr_file;
+	      else
+		error_file = Fexpand_file_name (stderr_file, Qnil);
+	    }
+
 	  buffer = XCONS (buffer)->car;
 	}