(directory_files_internal): Set result list to nil

before retrying.

2 files changed, 9 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index c5cd6b41628..8dc06f2f314 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-16  Gerd Moellmann  <gerd@gnu.org>
+
+        * dired.c (directory_files_internal): Set result list to nil
+        before retrying.
+
 2001-02-15  Kenichi Handa  <handa@etl.go.jp>
 
         * ccl.c (ccl_driver) [CCL_ReadMultibyteChar2]: If SRC points an
diff --git a/src/dired.c b/src/dired.c
index f3f13534a87..ce2e5cb95b2 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -312,7 +312,10 @@ directory_files_internal (directory, full, match, nosort, attrs)
   specpdl_ptr = specpdl + count;
 
   if (retry_p)
-    goto retry;
+    {
+      list = Qnil;
+      goto retry;
+    }
 
   if (NILP (nosort))
     list = Fsort (Fnreverse (list),