[elpa] externals/compat 48112917f3 3/5: Ensure directory-files-recursively can call itself

[ELPA Syncer]

branch: externals/compat
commit 48112917f3d48fb31f53fd05be006e15747bac5a
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>

    Ensure directory-files-recursively can call itself
---
 compat-25.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compat-25.el b/compat-25.el
index f87cc5adc4..d7297b38fa 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -291,6 +291,7 @@ 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--directory-files-recursively
   (let* ((result nil)
          (files nil)
          (dir (directory-file-name dir))
@@ -314,11 +315,11 @@ recursion."
                 (let ((sub-files
                        (if (eq predicate t)
                            (condition-case nil
-                               (directory-files-recursively
+                               (compat--directory-files-recursively
                                 full-file regexp include-directories
                                 predicate follow-symlinks)
                              (file-error nil))
-                         (directory-files-recursively
+                         (compat--directory-files-recursively
                           full-file regexp include-directories
                           predicate follow-symlinks))))
                   (setq result (nconc result sub-files))))