(Ffile_symlink_p): If result starts with a `/'

and contains a `:', prepend `/:'.

diff --git a/src/fileio.c b/src/fileio.c
index 1d3da63ba5cc3d4e48f0cded82b9c12fc176e07d..b731916f43890a443818d9c0b44f48febc48486d 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3022,6 +3022,8 @@ Otherwise returns nil.")
       return Qnil;
     }
   val = make_string (buf, valsize);
+  if (buf[0] == '/' && index (buf, ':'))
+    val = concat2 (build_string ("/:"), val);
   xfree (buf);
   val = DECODE_FILE (val);
   return val;