# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 982317311 0
# Node ID 809b31e54e1377976c6987b9ee01ce047b05ce6e
# Parent  595ee2f062cfc08a7a92e5ccf2ef73c86a8c5136
(directory_files_internal): Set result list to nil
before retrying.

diff -r 595ee2f062cf -r 809b31e54e13 src/dired.c
--- a/src/dired.c	Thu Feb 15 21:08:24 2001 +0000
+++ b/src/dired.c	Fri Feb 16 09:55:11 2001 +0000
@@ -312,7 +312,10 @@
   specpdl_ptr = specpdl + count;
 
   if (retry_p)
-    goto retry;
+    {
+      list = Qnil;
+      goto retry;
+    }
 
   if (NILP (nosort))
     list = Fsort (Fnreverse (list),