Do a deep-copy when installing a package from a local package

* lisp/emacs-lisp/package.el (package-unpack, package-dir-info):
Call 'directory-files-recursively' with appropriate arguments.

(Bug#78017)

1 files changed, 2 insertions, 3 deletions

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index a255778af64..66f6b795a5e 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1007,8 +1007,7 @@ untar into a directory named DIR; otherwise, signal an error."
       ('dir
        (make-directory pkg-dir t)
        (let ((file-list
-              (directory-files
-               default-directory 'full "\\`[^.].*\\.el\\'" 'nosort)))
+              (directory-files-recursively default-directory "" nil)))
          (dolist (source-file file-list)
            (let ((target-el-file
                   (expand-file-name (file-name-nondirectory source-file) pkg-dir)))
@@ -1252,7 +1251,7 @@ The return result is a `package-desc'."
         (with-temp-buffer
           (insert-file-contents desc-file)
           (package--read-pkg-desc 'dir))
-      (let ((files (directory-files default-directory t "\\.el\\'" t))
+      (let ((files (directory-files-recursively default-directory "\\.el\\'"))
             info)
         (while files
           (with-temp-buffer