Mercurial > hg > xemacs-beta

comparison src/vmsproc.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
396 396
397 if (STRINGP (current_buffer->directory)) 397 if (STRINGP (current_buffer->directory))
398 chdir (XSTRING_DATA (current_buffer->directory)); 398 chdir (XSTRING_DATA (current_buffer->directory));
399 } 399 }
400 400
401 DEFUN ("call-process-internal", Fcall_process_internal, 401 DEFUN ("call-process-internal", Fcall_process_internal, 1, MANY, 0, /*
402 Scall_process_internal, 1, MANY, 0 /*
403 Call PROGRAM synchronously in a separate process. 402 Call PROGRAM synchronously in a separate process.
404 Program's input comes from file INFILE (nil means null device, `NLA0:'). 403 Program's input comes from file INFILE (nil means null device, `NLA0:').
405 Insert output in BUFFER before point; t means current buffer; 404 Insert output in BUFFER before point; t means current buffer;
406 nil for BUFFER means discard it; 0 means discard and don't wait. 405 nil for BUFFER means discard it; 0 means discard and don't wait.
407 Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted. 406 Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted.
408 Remaining arguments are strings passed as command arguments to PROGRAM. 407 Remaining arguments are strings passed as command arguments to PROGRAM.
409 This function waits for PROGRAM to terminate, unless BUFFER is 0; 408 This function waits for PROGRAM to terminate, unless BUFFER is 0;
410 if you quit, the process is killed. 409 if you quit, the process is killed.
411 */ ) 410 */
412 (nargs, args) 411 (int nargs, Lisp_Object *args))
413 int nargs;
414 Lisp_Object *args;
415 { 412 {
416 /* This function can GC */ 413 /* This function can GC */
417 Lisp_Object display, buffer, path; 414 Lisp_Object display, buffer, path;
418 char oldDir[512]; 415 char oldDir[512];
419 int inchannel, outchannel; 416 int inchannel, outchannel;
760 } 757 }
761 758
762 void 759 void
763 syms_of_vmsproc (void) 760 syms_of_vmsproc (void)
764 { 761 {
765 defsubr (&Scall_process_internal); 762 DEFSUBR (Fcall_process_internal);
766 } 763 }
767 764
768 void 765 void
769 init_vmsproc (void) 766 init_vmsproc (void)
770 { 767 {