diff options
| author | Richard M. Stallman | 2002-08-24 03:14:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-08-24 03:14:32 +0000 |
| commit | 8ee8f447ce806ee96763752c351216a0661599d8 (patch) | |
| tree | 8c0eaa8c9f67b5c5844621e4492c90b4e202748e /src | |
| parent | 7dc2cc987c5eeda596aa4bbd90f7fb339276ab38 (diff) | |
| download | emacs-8ee8f447ce806ee96763752c351216a0661599d8.tar.gz emacs-8ee8f447ce806ee96763752c351216a0661599d8.zip | |
(Fcall_process): Remove /: from program name.
Diffstat (limited to 'src')
| -rw-r--r-- | src/callproc.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/callproc.c b/src/callproc.c index 5476be06537..d1e62de0705 100644 --- a/src/callproc.c +++ b/src/callproc.c | |||
| @@ -389,6 +389,13 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */) | |||
| 389 | emacs_close (filefd); | 389 | emacs_close (filefd); |
| 390 | report_file_error ("Searching for program", Fcons (args[0], Qnil)); | 390 | report_file_error ("Searching for program", Fcons (args[0], Qnil)); |
| 391 | } | 391 | } |
| 392 | |||
| 393 | /* If program file name starts with /: for quoting a magic name, | ||
| 394 | discard that. */ | ||
| 395 | if (SBYTES (path) > 2 && SREF (path, 0) == '/' | ||
| 396 | && SREF (path, 1) == ':') | ||
| 397 | path = Fsubstring (path, make_number (2), Qnil); | ||
| 398 | |||
| 392 | new_argv[0] = SDATA (path); | 399 | new_argv[0] = SDATA (path); |
| 393 | if (nargs > 4) | 400 | if (nargs > 4) |
| 394 | { | 401 | { |