diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-08-24 03:14:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-08-24 03:14:32 +0000 |
| commit | ad5d378d42b6a89d3bde980a41bde862f507647b (patch) | |
| tree | 308067031ee92e7b210a152d2048d1402e091fd8 /src/callproc.c | |
| parent | 37491b3a4c6adcfdab3ddc49cfe19e42db61a998 (diff) | |
| download | emacs-ad5d378d42b6a89d3bde980a41bde862f507647b.tar.gz | |
(Fcall_process): Remove /: from program name.
Diffstat (limited to 'src/callproc.c')
| -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) */) emacs_close (filefd); report_file_error ("Searching for program", Fcons (args[0], Qnil)); } + + /* If program file name starts with /: for quoting a magic name, + discard that. */ + if (SBYTES (path) > 2 && SREF (path, 0) == '/' + && SREF (path, 1) == ':') + path = Fsubstring (path, make_number (2), Qnil); + new_argv[0] = SDATA (path); if (nargs > 4) { |