branch: externals/compat
commit 6638a73cbdfc0e388afc1c2612dcb6613e736ed8
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Remove compat--internal-directory-files-recursively
---
compat-25.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/compat-25.el b/compat-25.el
index 92d3e8ec3b..997eb119bb 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -295,7 +295,6 @@ subdirectory is to be descended into).
If FOLLOW-SYMLINKS is non-nil, symbolic links that point to
directories are followed. Note that this can lead to infinite
recursion."
- :realname compat--internal-directory-files-recursively
(let* ((result nil)
(files nil)
(dir (directory-file-name dir))
@@ -319,11 +318,11 @@ recursion."
(let ((sub-files
(if (eq predicate t)
(condition-case nil
- (compat--internal-directory-files-recursively
+ (directory-files-recursively
full-file regexp include-directories
predicate follow-symlinks)
(file-error nil))
- (compat--internal-directory-files-recursively
+ (directory-files-recursively
full-file regexp include-directories
predicate follow-symlinks))))
(setq result (nconc result sub-files))))
