Mercurial > hg > xemacs-beta

comparison src/callproc.c @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents cca96a509cfe
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
141 static Lisp_Object fork_error; 141 static Lisp_Object fork_error;
142 #if 0 /* UNUSED */ 142 #if 0 /* UNUSED */
143 static void 143 static void
144 report_fork_error (char *string, Lisp_Object data) 144 report_fork_error (char *string, Lisp_Object data)
145 { 145 {
146 Lisp_Object errstring = build_string (strerror (errno)); 146 Lisp_Object errstring = lisp_strerror (errno);
147
148 /* System error messages are capitalized. Downcase the initial. */
149 set_string_char (XSTRING (errstring), 0,
150 DOWNCASE (current_buffer,
151 string_char (XSTRING (errstring), 0)));
152 147
153 fork_error = Fcons (build_string (string), Fcons (errstring, data)); 148 fork_error = Fcons (build_string (string), Fcons (errstring, data));
154 149
155 /* terminate this branch of the fork, without closing stdin/out/etc. */ 150 /* terminate this branch of the fork, without closing stdin/out/etc. */
156 _exit (1); 151 _exit (1);
451 { 446 {
452 close (filefd); 447 close (filefd);
453 close (fd[0]); 448 close (fd[0]);
454 if (fd1 >= 0) 449 if (fd1 >= 0)
455 close (fd1); 450 close (fd1);
456 report_file_error ("Cannot open", error_file); 451 report_file_error ("Cannot open", Fcons(error_file, Qnil));
457 } 452 }
458 453
459 fork_error = Qnil; 454 fork_error = Qnil;
460 #ifdef WINDOWSNT 455 #ifdef WINDOWSNT
461 pid = child_setup (filefd, fd1, fd_error, new_argv, current_dir); 456 pid = child_setup (filefd, fd1, fd_error, new_argv, current_dir);