# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1030158872 0
# Node ID 101eb25eab6ddc1cf7e9b3d83ef0fa39bdc3738c
# Parent  0ba62d75345e31344b0fd3cea8103a7976099789
(Fcall_process): Remove /: from program name.

diff -r 0ba62d75345e -r 101eb25eab6d src/callproc.c
--- a/src/callproc.c	Sat Aug 24 03:00:29 2002 +0000
+++ b/src/callproc.c	Sat Aug 24 03:14:32 2002 +0000
@@ -389,6 +389,13 @@
       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)
     {