Fix directory-files-and-attributes race

* src/dired.c (directory_files_internal): Fix race condition:
when some other process removed a file between the readdir and
the ensuing lstat, directory-files-and-attributes would return
a list containing nil.

diff --git a/src/dired.c b/src/dired.c
index 7bc4b83fd775f2af21199e80e9a463ad4f5e1793..58fa848e2e3c30c07eb6545709a9ca08c51a07e4 100644 (file)
--- a/src/dired.c
+++ b/src/dired.c
@@ -295,7 +295,8 @@ directory_files_internal (Lisp_Object directory, Lisp_Object full,
            {
              Lisp_Object fileattrs
                = file_attributes (fd, dp->d_name, directory, name, id_format);
-             list = Fcons (Fcons (finalname, fileattrs), list);
+             if (!NILP (fileattrs))
+               list = Fcons (Fcons (finalname, fileattrs), list);
            }
          else
            list = Fcons (finalname, list);