# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 951493343 0
# Node ID a36c3e02f43b6eedcca056d33a4b0e40aaf2ed57
# Parent  1322db65a230dbb67973a63f751eab3d4b0bbd09
(Ffile_symlink_p): If result starts with a `/'
and contains a `:', prepend `/:'.

diff -r 1322db65a230 -r a36c3e02f43b src/fileio.c
--- a/src/fileio.c	Fri Feb 25 15:41:43 2000 +0000
+++ b/src/fileio.c	Fri Feb 25 15:42:23 2000 +0000
@@ -3022,6 +3022,8 @@
       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;