Mercurial > hg > xemacs-beta

comparison src/callproc.c @ 365:30d2cfa1092a r21-1-12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-12
author cvs
date Mon, 13 Aug 2007 11:00:12 +0200
parents 972bbb6d6ca2
children a4f53d9b3154
comparison
equal deleted inserted replaced
364:63c3368d1275 365:30d2cfa1092a
370 ); 370 );
371 } 371 }
372 372
373 if (fd_error < 0) 373 if (fd_error < 0)
374 { 374 {
375 int save_errno = errno;
375 close (filefd); 376 close (filefd);
376 close (fd[0]); 377 close (fd[0]);
377 if (fd1 >= 0) 378 if (fd1 >= 0)
378 close (fd1); 379 close (fd1);
380 errno = save_errno;
379 report_file_error ("Cannot open", Fcons(error_file, Qnil)); 381 report_file_error ("Cannot open", Fcons(error_file, Qnil));
380 } 382 }
381 383
382 fork_error = Qnil; 384 fork_error = Qnil;
383 #ifdef WINDOWSNT 385 #ifdef WINDOWSNT
436 signal_error (Qfile_error, fork_error); 438 signal_error (Qfile_error, fork_error);
437 439
438 #ifndef WINDOWSNT 440 #ifndef WINDOWSNT
439 if (pid < 0) 441 if (pid < 0)
440 { 442 {
443 int save_errno = errno;
441 if (fd[0] >= 0) 444 if (fd[0] >= 0)
442 close (fd[0]); 445 close (fd[0]);
446 errno = save_errno;
443 report_file_error ("Doing fork", Qnil); 447 report_file_error ("Doing fork", Qnil);
444 } 448 }
445 #endif 449 #endif
446 450
447 if (INTP (buffer)) 451 if (INTP (buffer))