Consolidate common path transformation code.

* process.h (remove_slash_colon): New function.
* callproc.c (encode_current_directory, call_process):
* process.c (Fstart_process): Use it.

1 files changed, 2 insertions, 5 deletions

diff --git a/src/process.c b/src/process.c
index 9015383b8b5..166bf851a8e 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1517,11 +1517,8 @@ usage: (start-process NAME BUFFER PROGRAM &rest PROGRAM-ARGS)  */)
           tem = program;
         }
 
-      /* If program file name starts with /: for quoting a magic name,
-         discard that.  */
-      if (SBYTES (tem) > 2 && SREF (tem, 0) == '/'
-          && SREF (tem, 1) == ':')
-        tem = Fsubstring (tem, make_number (2), Qnil);
+      /* Remove "/:" from TEM.  */
+      tem = remove_slash_colon (tem);
 
       {
         Lisp_Object arg_encoding = Qnil;