Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3b639868
Commit
3b639868
authored
Mar 18, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fstart_process): GCPRO some things.
parent
5458f7f1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
10 deletions
+15
-10
src/process.c
src/process.c
+15
-10
No files found.
src/process.c
View file @
3b639868
...
...
@@ -1024,24 +1024,29 @@ Remaining arguments are strings to give program as arguments.")
#else
/* not VMS */
new_argv
=
(
unsigned
char
**
)
alloca
((
nargs
-
1
)
*
sizeof
(
char
*
));
for
(
i
=
3
;
i
<
nargs
;
i
++
)
{
tem
=
args
[
i
];
CHECK_STRING
(
tem
,
i
);
new_argv
[
i
-
2
]
=
XSTRING
(
tem
)
->
data
;
}
new_argv
[
i
-
2
]
=
0
;
new_argv
[
0
]
=
XSTRING
(
program
)
->
data
;
/* If program file name is not absolute, search our path for it */
if
(
new_argv
[
0
]
[
0
]
!=
'/'
)
if
(
XSTRING
(
program
)
->
data
[
0
]
!=
'/'
)
{
struct
gcpro
gcpro1
,
gcpro2
,
gcpro3
,
gcpro4
;
tem
=
Qnil
;
GCPRO4
(
name
,
program
,
buffer
,
current_dir
);
openp
(
Vexec_path
,
program
,
EXEC_SUFFIXES
,
&
tem
,
1
);
UNGCPRO
;
if
(
NILP
(
tem
))
report_file_error
(
"Searching for program"
,
Fcons
(
program
,
Qnil
));
new_argv
[
0
]
=
XSTRING
(
tem
)
->
data
;
}
else
new_argv
[
0
]
=
XSTRING
(
program
)
->
data
;
for
(
i
=
3
;
i
<
nargs
;
i
++
)
{
tem
=
args
[
i
];
CHECK_STRING
(
tem
,
i
);
new_argv
[
i
-
2
]
=
XSTRING
(
tem
)
->
data
;
}
new_argv
[
i
-
2
]
=
0
;
#endif
/* not VMS */
proc
=
make_process
(
name
);
...
...
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