From 8ee8f447ce806ee96763752c351216a0661599d8 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 24 Aug 2002 03:14:32 +0000
Subject: [PATCH] (Fcall_process): Remove /: from program name.

---
 src/callproc.c | 7 +++++++
 1 file changed, 7 insertions(+)

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)
     {
-- 
2.39.5