Mercurial > hg > xemacs-beta

comparison src/callproc.c @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents 131b0175ea99
children 4be1180a9e89
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
200 200
201 CHECK_STRING (args[0]); 201 CHECK_STRING (args[0]);
202 202
203 error_file = Qt; 203 error_file = Qt;
204 204
205 #ifdef NO_SUBPROCESSES 205 #if defined (NO_SUBPROCESSES)
206 /* Without asynchronous processes we cannot have BUFFER == 0. */ 206 /* Without asynchronous processes we cannot have BUFFER == 0. */
207 if (nargs >= 3 && !INTP (args[2])) 207 if (nargs >= 3 && !INTP (args[2]))
208 error ("Operating system cannot handle asynchronous subprocesses"); 208 error ("Operating system cannot handle asynchronous subprocesses");
209 #endif /* NO_SUBPROCESSES */ 209 #endif /* NO_SUBPROCESSES */
210 210
499 499
500 if (INTP (buffer)) 500 if (INTP (buffer))
501 { 501 {
502 if (fd[0] >= 0) 502 if (fd[0] >= 0)
503 close (fd[0]); 503 close (fd[0]);
504 #ifdef NO_SUBPROCESSES 504 #if defined (NO_SUBPROCESSES)
505 /* If Emacs has been built with asynchronous subprocess support, 505 /* If Emacs has been built with asynchronous subprocess support,
506 we don't need to do this, I think because it will then have 506 we don't need to do this, I think because it will then have
507 the facilities for handling SIGCHLD. */ 507 the facilities for handling SIGCHLD. */
508 wait_without_blocking (); 508 wait_without_blocking ();
509 #endif /* NO_SUBPROCESSES */ 509 #endif /* NO_SUBPROCESSES */
657 #ifdef SET_EMACS_PRIORITY 657 #ifdef SET_EMACS_PRIORITY
658 if (emacs_priority != 0) 658 if (emacs_priority != 0)
659 nice (- emacs_priority); 659 nice (- emacs_priority);
660 #endif 660 #endif
661 661
662 #ifndef NO_SUBPROCESSES 662 #if !defined (NO_SUBPROCESSES)
663 /* Close Emacs's descriptors that this process should not have. */ 663 /* Close Emacs's descriptors that this process should not have. */
664 close_process_descs (); 664 close_process_descs ();
665 #endif /* not NO_SUBPROCESSES */ 665 #endif /* not NO_SUBPROCESSES */
666 close_load_descs (); 666 close_load_descs ();
667 667
869 { 869 {
870 Lisp_Object entry = XCAR (scan); 870 Lisp_Object entry = XCAR (scan);
871 871
872 if (STRINGP (entry) 872 if (STRINGP (entry)
873 && XSTRING_LENGTH (entry) > varlen 873 && XSTRING_LENGTH (entry) > varlen
874 && string_byte (XSTRING (entry), varlen) == '=' 874 && XSTRING_BYTE (entry, varlen) == '='
875 #ifdef WINDOWSNT 875 #ifdef WINDOWSNT
876 /* NT environment variables are case insensitive. */ 876 /* NT environment variables are case insensitive. */
877 && ! memicmp (XSTRING_DATA (entry), var, varlen) 877 && ! memicmp (XSTRING_DATA (entry), var, varlen)
878 #else /* not WINDOWSNT */ 878 #else /* not WINDOWSNT */
879 && ! memcmp (XSTRING_DATA (entry), var, varlen) 879 && ! memcmp (XSTRING_DATA (entry), var, varlen)