Mercurial > hg > xemacs-beta
diff src/process.c @ 173:8eaf7971accc r20-3b13
Import from CVS: tag r20-3b13
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:49:09 +0200 |
parents | 15872534500d |
children | 2d532a89d707 |
line wrap: on
line diff
--- a/src/process.c Mon Aug 13 09:47:55 2007 +0200 +++ b/src/process.c Mon Aug 13 09:49:09 2007 +0200 @@ -216,7 +216,7 @@ ((markobj) (proc->instream)); ((markobj) (proc->outstream)); ((markobj) (proc->filedesc_stream)); - return (proc->status_symbol); + return proc->status_symbol; } static void @@ -359,7 +359,7 @@ int network_connection_p (Lisp_Object process) { - return (GC_CONSP (XPROCESS (process)->pid)); + return GC_CONSP (XPROCESS (process)->pid); } #endif @@ -374,7 +374,7 @@ */ (obj)) { - return ((PROCESSP (obj)) ? Qt : Qnil); + return PROCESSP (obj) ? Qt : Qnil; } DEFUN ("process-list", Fprocess_list, 0, 0, 0, /* @@ -393,7 +393,7 @@ Lisp_Object tail; if (GC_PROCESSP (name)) - return (name); + return name; if (!gc_in_progress) /* this only gets called during GC when emacs is going away as a result @@ -405,7 +405,7 @@ Lisp_Object proc = XCAR (tail); QUIT; if (!NILP (Fequal (name, XPROCESS (proc)->name))) - return (XCAR (tail)); + return XCAR (tail); } return Qnil; } @@ -503,10 +503,10 @@ pid = XPROCESS (proc)->pid; if (network_connection_p (proc)) - /* return (Qnil); */ - return (Fcons (Fcar (pid), Fcdr (pid))); + /* return Qnil; */ + return Fcons (Fcar (pid), Fcdr (pid)); else - return (pid); + return pid; } DEFUN ("process-name", Fprocess_name, 1, 1, 0, /* @@ -584,7 +584,7 @@ XSETPROCESS (val, p); Vprocess_list = Fcons (val, Vprocess_list); - return (val); + return val; } #ifdef HAVE_PTYS @@ -1303,7 +1303,7 @@ get_internet_address (Lisp_Object host, struct sockaddr_in *address, Error_behavior errb) { - struct hostent *host_info_ptr; + struct hostent *host_info_ptr = NULL; #ifdef TRY_AGAIN int count = 0; #endif @@ -1647,7 +1647,7 @@ if (vs) { if (!vs->iosb[0]) - return(0); /* Really weird if it does this */ + return 0; /* Really weird if it does this */ if (!(vs->iosb[0] & 1)) return -1; /* I/O error */ } @@ -1705,7 +1705,7 @@ #ifdef VMS start_vms_process_read (vs); #endif - return (nchars); + return nchars; } /* If no filter, write into buffer if it isn't dead. */ @@ -1796,7 +1796,7 @@ #ifdef VMS start_vms_process_read (vs); #endif - return (nchars); + return nchars; } /* Sending data to subprocess */ @@ -2031,7 +2031,7 @@ send_process (proc, Fcurrent_buffer (), 0, st, en - st); - return (Qnil); + return Qnil; } DEFUN ("process-send-string", Fprocess_send_string, 2, 4, 0, /* @@ -2056,7 +2056,7 @@ len = bto - bfr; send_process (proc, string, 0, bfr, len); - return (Qnil); + return Qnil; } #ifdef MULE @@ -2207,11 +2207,11 @@ { if (signum >= 0 && signum < NSIG) #ifndef VMS - return ((CONST char *) sys_siglist[signum]); + return (CONST char *) sys_siglist[signum]; #else - return ((CONST char *) sys_errlist[signum]); + return (CONST char *) sys_errlist[signum]; #endif - return ((CONST char *) GETTEXT ("unknown signal")); + return (CONST char *) GETTEXT ("unknown signal"); } /* Compute the Lisp form of the process status from @@ -2700,7 +2700,7 @@ else if (EQ (status, Qexit)) status = Qclosed; } - return (status); + return status; } DEFUN ("process-exit-status", Fprocess_exit_status, 1, 1, 0, /* @@ -2710,7 +2710,7 @@ (proc)) { CHECK_PROCESS (proc); - return (make_int (XPROCESS (proc)->exit_code)); + return make_int (XPROCESS (proc)->exit_code); } @@ -3316,7 +3316,7 @@ tem = XPROCESS (proc)->kill_without_query; XPROCESS (proc)->kill_without_query = NILP (require_query_p); - return (tem ? Qnil : Qt); + return tem ? Qnil : Qt; } DEFUN ("process-kill-without-query-p", Fprocess_kill_without_query_p, 1, 1, 0, /* @@ -3325,7 +3325,7 @@ (proc)) { CHECK_PROCESS (proc); - return (XPROCESS (proc)->kill_without_query ? Qt : Qnil); + return XPROCESS (proc)->kill_without_query ? Qt : Qnil; }