Mercurial > emacs
comparison src/callproc.c @ 22940:3cfe86230c87
(Fcall_process): Check type of process cmd args earlier on.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 08 Aug 1998 01:03:27 +0000 |
| parents | 19ed63955546 |
| children | 0e2635f13ea9 |
comparison
equal
deleted
inserted
replaced
| 22939:572895549f80 | 22940:3cfe86230c87 |
|---|---|
| 242 | 242 |
| 243 /* If arguments are supplied, we may have to encode them. */ | 243 /* If arguments are supplied, we may have to encode them. */ |
| 244 if (nargs >= 5) | 244 if (nargs >= 5) |
| 245 { | 245 { |
| 246 int must_encode = 0; | 246 int must_encode = 0; |
| 247 | |
| 248 for (i = 4; i < nargs; i++) | |
| 249 CHECK_STRING (args[i], i); | |
| 247 | 250 |
| 248 for (i = 4; i < nargs; i++) | 251 for (i = 4; i < nargs; i++) |
| 249 if (STRING_MULTIBYTE (args[i])) | 252 if (STRING_MULTIBYTE (args[i])) |
| 250 must_encode = 1; | 253 must_encode = 1; |
| 251 | 254 |
| 398 } | 401 } |
| 399 new_argv[0] = XSTRING (path)->data; | 402 new_argv[0] = XSTRING (path)->data; |
| 400 if (nargs > 4) | 403 if (nargs > 4) |
| 401 { | 404 { |
| 402 register int i; | 405 register int i; |
| 403 | |
| 404 for (i = 4; i < nargs; i++) CHECK_STRING (args[i], i); | |
| 405 | 406 |
| 406 if (! CODING_REQUIRE_ENCODING (&argument_coding)) | 407 if (! CODING_REQUIRE_ENCODING (&argument_coding)) |
| 407 { | 408 { |
| 408 for (i = 4; i < nargs; i++) | 409 for (i = 4; i < nargs; i++) |
| 409 new_argv[i - 3] = XSTRING (args[i])->data; | 410 new_argv[i - 3] = XSTRING (args[i])->data; |