From 76846b315db4183c4aeae6fd7be5223290700010 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 16 Feb 2001 09:55:39 +0000 Subject: [PATCH] (directory_files_internal): Set result list to nil before retrying. --- src/ChangeLog | 5 +++++ src/dired.c | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * dired.c (directory_files_internal): Set result list to nil + before retrying. + 2001-02-15 Kenichi Handa * 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), -- 2.39.5