From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 25 Feb 2000 15:42:23 +0000 (+0000)
Subject: (Ffile_symlink_p): If result starts with a `/'
X-Git-Tag: emacs-pretest-21.0.90~4879
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69ac18912e1ccb67686f3d40ff1932d3f3efd2f1;p=emacs.git

(Ffile_symlink_p): If result starts with a `/'
and contains a `:', prepend `/:'.
---

diff --git a/src/fileio.c b/src/fileio.c
index 1d3da63ba5c..b731916f438 100644
--- 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;