diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-02-25 15:42:23 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-02-25 15:42:23 +0000 |
| commit | 69ac18912e1ccb67686f3d40ff1932d3f3efd2f1 (patch) | |
| tree | fd43089de97a77a99b5d44e4e619cbd524f70ebf /src/fileio.c | |
| parent | 719eaeb1b62f89d6d4efbe6bc60a10377053982e (diff) | |
| download | emacs-69ac18912e1ccb67686f3d40ff1932d3f3efd2f1.tar.gz | |
(Ffile_symlink_p): If result starts with a `/'
and contains a `:', prepend `/:'.
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 2 |
1 files changed, 2 insertions, 0 deletions
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; |