emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/compat 6638a73cbd 10/14: Remove compat--internal-direct


From: ELPA Syncer
Subject: [elpa] externals/compat 6638a73cbd 10/14: Remove compat--internal-directory-files-recursively
Date: Tue, 3 Jan 2023 13:57:27 -0500 (EST)

branch: externals/compat
commit 6638a73cbdfc0e388afc1c2612dcb6613e736ed8
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]