From 3bceb736b5b523ceae5e09ef5a27fbe1633e682c Mon Sep 17 00:00:00 2001 From: PJ Weisberg Date: Sun, 28 Aug 2011 17:21:43 -0400 Subject: [PATCH] * packages/load-dir/load-dir.el (load-dir-one): Avoid infinite recursion. --- ChangeLog | 5 +++++ packages/load-dir/load-dir.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index ac7bc9ad2..36ece0f10 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-08-28 PJ Weisberg (tiny change) + + * packages/load-dir/load-dir.el (load-dir-one): Avoid infinite + recursion. + 2011-05-31 Teodor Zlatanov * packages/uni-confusables-0.1/confusables.txt: Unicode UTS-39 diff --git a/packages/load-dir/load-dir.el b/packages/load-dir/load-dir.el index f757071db..08d375972 100644 --- 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)))))) -- 2.39.2