diff options
Diffstat (limited to 'src/callproc.c')
| -rw-r--r-- | src/callproc.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/callproc.c b/src/callproc.c index 8ce80022e9a..09d0ca5b42c 100644 --- a/src/callproc.c +++ b/src/callproc.c | |||
| @@ -349,7 +349,7 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */) | |||
| 349 | 349 | ||
| 350 | display_p = INTERACTIVE && nargs >= 4 && !NILP (args[3]); | 350 | display_p = INTERACTIVE && nargs >= 4 && !NILP (args[3]); |
| 351 | 351 | ||
| 352 | filefd = emacs_open (SDATA (infile), O_RDONLY, 0); | 352 | filefd = emacs_open (SSDATA (infile), O_RDONLY, 0); |
| 353 | if (filefd < 0) | 353 | if (filefd < 0) |
| 354 | { | 354 | { |
| 355 | infile = DECODE_FILE (infile); | 355 | infile = DECODE_FILE (infile); |
| @@ -465,11 +465,11 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */) | |||
| 465 | else if (STRINGP (error_file)) | 465 | else if (STRINGP (error_file)) |
| 466 | { | 466 | { |
| 467 | #ifdef DOS_NT | 467 | #ifdef DOS_NT |
| 468 | fd_error = emacs_open (SDATA (error_file), | 468 | fd_error = emacs_open (SSDATA (error_file), |
| 469 | O_WRONLY | O_TRUNC | O_CREAT | O_TEXT, | 469 | O_WRONLY | O_TRUNC | O_CREAT | O_TEXT, |
| 470 | S_IREAD | S_IWRITE); | 470 | S_IREAD | S_IWRITE); |
| 471 | #else /* not DOS_NT */ | 471 | #else /* not DOS_NT */ |
| 472 | fd_error = creat (SDATA (error_file), 0666); | 472 | fd_error = creat (SSDATA (error_file), 0666); |
| 473 | #endif /* not DOS_NT */ | 473 | #endif /* not DOS_NT */ |
| 474 | } | 474 | } |
| 475 | 475 | ||
| @@ -1079,7 +1079,7 @@ child_setup (int in, int out, int err, register char **new_argv, int set_pgrp, L | |||
| 1079 | CONSP (tem) && STRINGP (XCAR (tem)); | 1079 | CONSP (tem) && STRINGP (XCAR (tem)); |
| 1080 | tem = XCDR (tem)) | 1080 | tem = XCDR (tem)) |
| 1081 | { | 1081 | { |
| 1082 | if (strncmp (SDATA (XCAR (tem)), "DISPLAY", 7) == 0 | 1082 | if (strncmp (SSDATA (XCAR (tem)), "DISPLAY", 7) == 0 |
| 1083 | && (SDATA (XCAR (tem)) [7] == '\0' | 1083 | && (SDATA (XCAR (tem)) [7] == '\0' |
| 1084 | || SDATA (XCAR (tem)) [7] == '=')) | 1084 | || SDATA (XCAR (tem)) [7] == '=')) |
| 1085 | /* DISPLAY is specified in process-environment. */ | 1085 | /* DISPLAY is specified in process-environment. */ |
| @@ -1111,10 +1111,10 @@ child_setup (int in, int out, int err, register char **new_argv, int set_pgrp, L | |||
| 1111 | 1111 | ||
| 1112 | if (STRINGP (display)) | 1112 | if (STRINGP (display)) |
| 1113 | { | 1113 | { |
| 1114 | int vlen = strlen ("DISPLAY=") + strlen (SDATA (display)) + 1; | 1114 | int vlen = strlen ("DISPLAY=") + strlen (SSDATA (display)) + 1; |
| 1115 | char *vdata = (char *) alloca (vlen); | 1115 | char *vdata = (char *) alloca (vlen); |
| 1116 | strcpy (vdata, "DISPLAY="); | 1116 | strcpy (vdata, "DISPLAY="); |
| 1117 | strcat (vdata, SDATA (display)); | 1117 | strcat (vdata, SSDATA (display)); |
| 1118 | new_env = add_env (env, new_env, vdata); | 1118 | new_env = add_env (env, new_env, vdata); |
| 1119 | } | 1119 | } |
| 1120 | 1120 | ||
| @@ -1122,7 +1122,7 @@ child_setup (int in, int out, int err, register char **new_argv, int set_pgrp, L | |||
| 1122 | for (tem = Vprocess_environment; | 1122 | for (tem = Vprocess_environment; |
| 1123 | CONSP (tem) && STRINGP (XCAR (tem)); | 1123 | CONSP (tem) && STRINGP (XCAR (tem)); |
| 1124 | tem = XCDR (tem)) | 1124 | tem = XCDR (tem)) |
| 1125 | new_env = add_env (env, new_env, SDATA (XCAR (tem))); | 1125 | new_env = add_env (env, new_env, SSDATA (XCAR (tem))); |
| 1126 | 1126 | ||
| 1127 | *new_env = 0; | 1127 | *new_env = 0; |
| 1128 | 1128 | ||
| @@ -1340,13 +1340,13 @@ If optional parameter ENV is a list, then search this list instead of | |||
| 1340 | CHECK_STRING (variable); | 1340 | CHECK_STRING (variable); |
| 1341 | if (CONSP (env)) | 1341 | if (CONSP (env)) |
| 1342 | { | 1342 | { |
| 1343 | if (getenv_internal_1 (SDATA (variable), SBYTES (variable), | 1343 | if (getenv_internal_1 (SSDATA (variable), SBYTES (variable), |
| 1344 | &value, &valuelen, env)) | 1344 | &value, &valuelen, env)) |
| 1345 | return value ? make_string (value, valuelen) : Qt; | 1345 | return value ? make_string (value, valuelen) : Qt; |
| 1346 | else | 1346 | else |
| 1347 | return Qnil; | 1347 | return Qnil; |
| 1348 | } | 1348 | } |
| 1349 | else if (getenv_internal (SDATA (variable), SBYTES (variable), | 1349 | else if (getenv_internal (SSDATA (variable), SBYTES (variable), |
| 1350 | &value, &valuelen, env)) | 1350 | &value, &valuelen, env)) |
| 1351 | return make_string (value, valuelen); | 1351 | return make_string (value, valuelen); |
| 1352 | else | 1352 | else |
| @@ -1459,13 +1459,13 @@ init_callproc (void) | |||
| 1459 | #endif | 1459 | #endif |
| 1460 | { | 1460 | { |
| 1461 | tempdir = Fdirectory_file_name (Vexec_directory); | 1461 | tempdir = Fdirectory_file_name (Vexec_directory); |
| 1462 | if (access (SDATA (tempdir), 0) < 0) | 1462 | if (access (SSDATA (tempdir), 0) < 0) |
| 1463 | dir_warning ("Warning: arch-dependent data dir (%s) does not exist.\n", | 1463 | dir_warning ("Warning: arch-dependent data dir (%s) does not exist.\n", |
| 1464 | Vexec_directory); | 1464 | Vexec_directory); |
| 1465 | } | 1465 | } |
| 1466 | 1466 | ||
| 1467 | tempdir = Fdirectory_file_name (Vdata_directory); | 1467 | tempdir = Fdirectory_file_name (Vdata_directory); |
| 1468 | if (access (SDATA (tempdir), 0) < 0) | 1468 | if (access (SSDATA (tempdir), 0) < 0) |
| 1469 | dir_warning ("Warning: arch-independent data dir (%s) does not exist.\n", | 1469 | dir_warning ("Warning: arch-independent data dir (%s) does not exist.\n", |
| 1470 | Vdata_directory); | 1470 | Vdata_directory); |
| 1471 | 1471 | ||