changeset 39291:f9c8c910fe9a

(Ffile_symlink_p): Fix last change.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 14 Sep 2001 11:20:57 +0000
parents c5853621fe9b
children 1fa1a0656384
files src/fileio.c
diffstat 1 files changed, 9 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/fileio.c	Fri Sep 14 11:20:16 2001 +0000
+++ b/src/fileio.c	Fri Sep 14 11:20:57 2001 +0000
@@ -3106,15 +3106,18 @@
       
       errno = 0;
       valsize = readlink (XSTRING (filename)->data, buf, bufsize);
-      if (valsize == -1
+      if (valsize == -1)
+	{
 #ifdef ERANGE
 	  /* HP-UX reports ERANGE if buffer is too small.  */
-	  && errno != ERANGE
+	  if (errno == ERANGE)
+	    valsize = bufsize;
+	  else
 #endif
-	  )
-	{
-	  xfree (buf);
-	  return Qnil;
+	    {
+	      xfree (buf);
+	      return Qnil;
+	    }
 	}
     }
   while (valsize >= bufsize);