From 45be8a1e5840794452706606ee5db9a657c7c84a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 16 Jun 1996 23:09:17 +0000 Subject: [PATCH] (Fcall_process): Handle t or nil as STDERR_FILE. --- src/callproc.c | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/callproc.c b/src/callproc.c index 4d84c98edb7..3e79b6064f5 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -245,8 +245,16 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") 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; } -- 2.39.5