Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
45be8a1e
Commit
45be8a1e
authored
Jun 16, 1996
by
Richard M. Stallman
Browse files
(Fcall_process): Handle t or nil as STDERR_FILE.
parent
2c9d345f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
2 deletions
+10
-2
src/callproc.c
src/callproc.c
+10
-2
No files found.
src/callproc.c
View file @
45be8a1e
...
...
@@ -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
;
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment