[elpa] externals/site-lisp e2dca35d81 2/2: Allow traversing directories recursively

[ELPA Syncer]

branch: externals/site-lisp
commit e2dca35d81743fa2b89c020f491274b6357ac7fb
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Allow traversing directories recursively
---
 site-lisp.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/site-lisp.el b/site-lisp.el
index 2b5ed37049..f7a0dec0a4 100644
--- a/site-lisp.el
+++ b/site-lisp.el
@@ -56,6 +56,10 @@
   "List of sub-directory names to traverse for code."
   :type '(repeat string))
 
+(defcustom site-lisp-collect-recursivly nil
+  "Non-nil means that all files should be recursively scraped."
+  :type 'boolean)
+
 (defmacro site-lisp-generate-autoloads (dir file)
   "Generate autoloads for DIR as appropriate for the current version.
 The result should be stored in FILE."
@@ -85,7 +89,9 @@ of the list."
                       site-lisp-fixed-subdirectories)
               (site-lisp-prepare dir)
             (add-to-list 'load-path dir)
-            (site-lisp-generate-autoloads dir autoload-file))))
+            (site-lisp-generate-autoloads dir autoload-file)
+            (when site-lisp-collect-recursivly
+              (site-lisp-prepare dir)))))
       (byte-recompile-directory dir)
       (load autoload-file nil t))))