Mercurial > hg > xemacs-beta

comparison src/process-unix.c @ 377:d883f39b8495 r21-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b4
author cvs
date Mon, 13 Aug 2007 11:05:42 +0200
parents a300bb07d72d
children 8626e4521993
comparison
equal deleted inserted replaced
376:e2295b4d9f2e 377:d883f39b8495
733 733
734 inchannel = outchannel = forkin = forkout = -1; 734 inchannel = outchannel = forkin = forkout = -1;
735 735
736 /* Nothing below here GCs so our string pointers shouldn't move. */ 736 /* Nothing below here GCs so our string pointers shouldn't move. */
737 new_argv = alloca_array (char *, nargv + 2); 737 new_argv = alloca_array (char *, nargv + 2);
738 new_argv[0] = (char *) XSTRING_DATA (program); 738 GET_C_STRING_FILENAME_DATA_ALLOCA (program, new_argv[0]);
739 for (i = 0; i < nargv; i++) 739 for (i = 0; i < nargv; i++)
740 { 740 {
741 Lisp_Object tem = argv[i]; 741 Lisp_Object tem = argv[i];
742 CHECK_STRING (tem); 742 CHECK_STRING (tem);
743 new_argv[i + 1] = (char *) XSTRING_DATA (tem); 743 new_argv[i + 1] = (char *) XSTRING_DATA (tem);
744 } 744 }
745 new_argv[i + 1] = 0; 745 new_argv[i + 1] = 0;
746 current_dir = (char *) XSTRING_DATA (cur_dir); 746 GET_C_STRING_FILENAME_DATA_ALLOCA (cur_dir, current_dir);
747 747
748 #ifdef HAVE_PTYS 748 #ifdef HAVE_PTYS
749 if (!NILP (Vprocess_connection_type)) 749 if (!NILP (Vprocess_connection_type))
750 { 750 {
751 /* find a new pty, open the master side, return the opened 751 /* find a new pty, open the master side, return the opened