(Ffile_symlink_p): If readlink returns ERANGE, take

that to mean that the buffer is too small.

diff --git a/src/ChangeLog b/src/ChangeLog
index d1741c8a7ce70b243607818bb61d5ba189a6274e..c053a1530d17cd431c6905582a48fb62135537c8 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2001-09-13  Gerd Moellmann  <gerd@gnu.org>
 
+       * fileio.c (Ffile_symlink_p): If readlink returns ERANGE, take
+       that to mean that the buffer is too small.
+
        * xdisp.c (reseat_1): Set IT's multibyte_p flag according to the
        current buffer's multibyteness when discarding the iterator's
        stack.

diff --git a/src/fileio.c b/src/fileio.c
index 1a90e511322fabf235188527542a58264bb1eb9d..eba2ac0bbaf756f95cf430a7ac9430ad8ff4d6cf 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3096,22 +3096,29 @@ Otherwise returns nil.")
 
   filename = ENCODE_FILE (filename);
 
-  bufsize = 100;
-  while (1)
+  bufsize = 50;
+  buf = NULL;
+  do
     {
-      buf = (char *) xmalloc (bufsize);
+      bufsize *= 2;
+      buf = (char *) xrealloc (buf, bufsize);
       bzero (buf, bufsize);
+      
+      errno = 0;
       valsize = readlink (XSTRING (filename)->data, buf, bufsize);
-      if (valsize < bufsize) break;
-      /* Buffer was not long enough */
-      xfree (buf);
-      bufsize *= 2;
-    }
-  if (valsize == -1)
-    {
-      xfree (buf);
-      return Qnil;
+      if (valsize == -1
+#ifdef ERANGE
+         /* HP-UX reports ERANGE if buffer is too small.  */
+         && errno != ERANGE
+#endif
+         )
+       {
+         xfree (buf);
+         return Qnil;
+       }
     }
+  while (valsize >= bufsize);
+  
   val = make_string (buf, valsize);
   if (buf[0] == '/' && index (buf, ':'))
     val = concat2 (build_string ("/:"), val);