From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 16 Feb 2001 09:55:39 +0000 (+0000)
Subject: (directory_files_internal): Set result list to nil
X-Git-Tag: emacs-pretest-21.0.99~371
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76846b315db4183c4aeae6fd7be5223290700010;p=emacs.git

(directory_files_internal): Set result list to nil
before retrying.
---

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),