Mercurial > hg > xemacs-beta

comparison src/callproc.c @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 1ccc32a20af4
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
329 /* child_setup must clobber environ in systems with true vfork. 329 /* child_setup must clobber environ in systems with true vfork.
330 Protect it from permanent change. */ 330 Protect it from permanent change. */
331 REGISTER char **save_environ = environ; 331 REGISTER char **save_environ = environ;
332 REGISTER int fd1 = fd[1]; 332 REGISTER int fd1 = fd[1];
333 int fd_error = fd1; 333 int fd_error = fd1;
334 char **env;
335
336 env = environ;
337 334
338 /* Record that we're about to create a synchronous process. */ 335 /* Record that we're about to create a synchronous process. */
339 synch_process_alive = 1; 336 synch_process_alive = 1;
340 337
341 /* These vars record information from process termination. 338 /* These vars record information from process termination.
450 return Qnil; 447 return Qnil;
451 } 448 }
452 449
453 { 450 {
454 int nread; 451 int nread;
455 int first = 1;
456 int total_read = 0; 452 int total_read = 0;
457 Lisp_Object instream; 453 Lisp_Object instream;
458 struct gcpro ngcpro1; 454 struct gcpro ngcpro1;
459 455
460 /* Enable sending signal if user quits below. */ 456 /* Enable sending signal if user quits below. */
534 bufptr = (char *) alloca (bufsize); 530 bufptr = (char *) alloca (bufsize);
535 } 531 }
536 532
537 if (!NILP (display) && INTERACTIVE) 533 if (!NILP (display) && INTERACTIVE)
538 { 534 {
539 first = 0;
540 redisplay (); 535 redisplay ();
541 } 536 }
542 } 537 }
543 give_up: 538 give_up:
544 Lstream_close (XLSTREAM (instream)); 539 Lstream_close (XLSTREAM (instream));