(directory_files_internal): Set result list to nil

before retrying.

diff --git a/src/ChangeLog b/src/ChangeLog
index c5cd6b416286d23532d52ae9a0a7df7b8a8f31da..8dc06f2f31489098ff4b374e7417725bc5f38c49 100644 (file)
--- 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 f3f13534a876231db5bd9d99f468b78a928b7be9..ce2e5cb95b2c2086d47750b43d6451e8d4399594 100644 (file)
--- 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),