* packages/load-dir/load-dir.el (load-dir-one): Avoid infinite recursion.

[gnu-emacs-elpa] / packages / load-dir / load-dir.el

diff --git a/packages/load-dir/load-dir.el b/packages/load-dir/load-dir.el
index f757071dbd29c8b89a0798419f6590e8635f8013..08d375972ef2bbf93be256f680efd35a90745672 100644 (file)
--- a/packages/load-dir/load-dir.el
+++ b/packages/load-dir/load-dir.el
@@ -121,7 +121,7 @@ Recurses into subdirectories if `load-dir-recursive' is t."
           (add-to-list 'load-dir-loaded f))))
 
     (when load-dir-recursive
-      (dolist (f (directory-files dir t))
+      (dolist (f (directory-files dir t directory-files-no-dot-files-regexp))
         (when (file-directory-p f)
           (load-dir-one f))))))