Mercurial > hg > xemacs-beta

comparison src/callproc.c @ 274:ca9a9ec9c1c1 r21-0b35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b35
author cvs
date Mon, 13 Aug 2007 10:29:42 +0200
parents c5d627a313b1
children 6330739388db
comparison
equal deleted inserted replaced
273:411aac7253ef 274:ca9a9ec9c1c1
879 ** DOS formatted name into a UNIX format. Then 879 ** DOS formatted name into a UNIX format. Then
880 ** create a LISP object. 880 ** create a LISP object.
881 */ 881 */
882 if (sh) 882 if (sh)
883 { 883 {
884 #if 0 /* This breaks everything -kkm */
884 tem = (char *) alloca (strlen (sh) + 1); 885 tem = (char *) alloca (strlen (sh) + 1);
885 dostounix_filename (strcpy (tem, sh)); 886 dostounix_filename (strcpy (tem, sh));
886 Vshell_file_name = build_string (tem); 887 Vshell_file_name = build_string (tem);
888 #else
889 Vshell_file_name = build_string (sh);
890 #endif
887 } 891 }
888 /* 892 /*
889 ** Odd, no COMSPEC, so let's default to our 893 ** Odd, no COMSPEC, so let's default to our
890 ** best guess for NT. 894 ** best guess for NT.
891 */ 895 */
892 else 896 else
893 { 897 {
894 Vshell_file_name = build_string ("/WINNT/system32/cmd.exe"); 898 Vshell_file_name = build_string ("\\WINNT\\system32\\cmd.exe");
895 } 899 }
896 } 900 }
897 #else /* not WINDOWSNT */ 901 #else /* not WINDOWSNT */
898 sh = (char *) egetenv ("SHELL"); 902 sh = (char *) egetenv ("SHELL");
899 Vshell_file_name = build_string (sh ? sh : "/bin/sh"); 903 Vshell_file_name = build_string (sh ? sh : "/bin/sh");