From 5617588f56536ea69074d0e8dc0a80a82b0a3ca8 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 1 Apr 1995 04:46:15 +0000
Subject: [PATCH] (Fdirectory_files): Fix bug in IS_ANY_SEP usage introduced in
 Oct 30 change.

---
 src/dired.c | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/src/dired.c b/src/dired.c
index d012eaaa14..39c64d2839 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -113,7 +113,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
      Lisp_Object dirname, full, match, nosort;
 {
   DIR *d;
-  int length;
+  int dirnamelen;
   Lisp_Object list, name, dirfilename;
   Lisp_Object handler;
   struct re_pattern_buffer *bufp;
@@ -174,7 +174,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
     report_file_error ("Opening directory", Fcons (dirname, Qnil));
 
   list = Qnil;
-  length = XSTRING (dirname)->size;
+  dirnamelen = XSTRING (dirname)->size;
 
   /* Loop reading blocks */
   while (1)
@@ -191,23 +191,24 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
 	    {
 	      if (!NILP (full))
 		{
-		  int index = XSTRING (dirname)->size;
-		  int total = len + index;
+		  int afterdirindex = dirnamelen;
+		  int total = len + dirnamelen;
+		  int needsep = 0;
+
+		  /* Decide whether we need to add a directory separator.  */
 #ifndef VMS
-		  if (length == 0
-		      || !IS_ANY_SEP (XSTRING (dirname)->data[length - 1]))
-		    total++;
+		  if (dirnamelen == 0
+		      || !IS_ANY_SEP (XSTRING (dirname)->data[dirnamelen - 1]))
+		    needsep = 1;
 #endif /* VMS */
 
-		  name = make_uninit_string (total);
+		  name = make_uninit_string (total + needsep);
 		  bcopy (XSTRING (dirname)->data, XSTRING (name)->data,
-			 index);
-#ifndef VMS
-		  if (length == 0
-		      || IS_ANY_SEP (XSTRING (dirname)->data[length - 1]))
-		    XSTRING (name)->data[index++] = DIRECTORY_SEP;
-#endif /* VMS */
-		  bcopy (dp->d_name, XSTRING (name)->data + index, len);
+			 dirnamelen);
+		  if (needsep)
+		    XSTRING (name)->data[afterdirindex++] = DIRECTORY_SEP;
+		  bcopy (dp->d_name,
+			 XSTRING (name)->data + afterdirindex, len);
 		}
 	      else
 		name = make_string (dp->d_name, len);
-- 
2.20.1