procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix problems found by --enable-gcc-warnings

Browse source 
* src/process.c (create_process, Fmake_pipe_process)
(Fmake_network_process): Omit unused locals.
This commit is contained in:
Paul Eggert 2015-04-10 19:36:29 -07:00
parent 68a74dd12a
commit e3ee455d29
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/process.c
View file

@ -1220,8 +1220,8 @@ list of keywords. */)
if (NILP (key) && SERIALCONN_P (process))
return list2 (Fplist_get (contact, QCport),
Fplist_get (contact, QCspeed));
/* FIXME: Return a meaningful value (e.g. the child ends of pipe),
if pipe process is useful for other purposes than receiving
/* FIXME: Return a meaningful value (e.g., the child end of the pipe)
if the pipe process is useful for purposes other than receiving
stderr. */
if (NILP (key) && PIPECONN_P (process))
return Qt;
@ -1751,7 +1751,7 @@ static void
create_process (Lisp_Object process, char **new_argv, Lisp_Object current_dir)
{
struct Lisp_Process *p = XPROCESS (process);
int inchannel, outchannel, errchannel = -1;
int inchannel, outchannel;
pid_t pid;
int vfork_errno;
int forkin, forkout, forkerr = -1;
@ -1798,7 +1798,6 @@ create_process (Lisp_Object process, char **new_argv, Lisp_Object current_dir)
struct Lisp_Process *pp = XPROCESS (p->stderrproc);
forkerr = pp->open_fd[SUBPROCESS_STDOUT];
errchannel = pp->open_fd[READ_FROM_SUBPROCESS];
/* Close unnecessary file descriptors. */
close_process_fd (&pp->open_fd[WRITE_TO_SUBPROCESS]);
@ -2128,7 +2127,7 @@ usage: (make-pipe-process &rest ARGS) */)
struct Lisp_Process *p;
struct gcpro gcpro1;
Lisp_Object name, buffer;
Lisp_Object tem, val;
Lisp_Object tem;
ptrdiff_t specpdl_count;
int inchannel, outchannel;
@ -2203,7 +2202,7 @@ usage: (make-pipe-process &rest ARGS) */)
{
/* Setup coding systems for communicating with the network stream. */
struct gcpro gcpro1;
/* Qt denotes we have not yet called Ffind_operation_coding_system. */
Lisp_Object coding_systems = Qt;
Lisp_Object val;