Avoid syscall in dir-locals--all-files

* lisp/files.el (dir-locals--all-files):
Omit an unnecessary call to file-directory-p.

1 files changed, 1 insertions, 4 deletions

diff --git a/lisp/files.el b/lisp/files.el
index b258067a503..cca4455027c 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4786,10 +4786,7 @@ those in the first."
                      (list file-2 file-1)))
         (when (and f
                    (file-readable-p f)
-                   ;; FIXME: Aren't file-regular-p and
-                   ;; file-directory-p mutually exclusive?
-                   (file-regular-p f)
-                   (not (file-directory-p f)))
+                   (file-regular-p f))
           (push f out)))
       out)))