utils: Add #:keep-permissions? parameter to 'copy-recursively'.

* guix/build/utils.scm (copy-recursively): Add #:keep-permissions? and
honor it.
* doc/guix.texi (Build Utilities): Adjust accordingly.

1 files changed, 3 insertions, 2 deletions

diff --git a/doc/guix.texi b/doc/guix.texi
index 84e5691cf1..19c43211f8 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -7779,12 +7779,13 @@ Make @var{file} writable for its owner.
 
 @deffn {Scheme Procedure} copy-recursively @var{source} @var{destination} @
   [#:log (current-output-port)] [#:follow-symlinks? #f] @
-  [#:copy-file copy-file] [#:keep-mtime? #f]
+  [#:copy-file copy-file] [#:keep-mtime? #f] [#:keep-permissions? #t]
 Copy @var{source} directory to @var{destination}.  Follow symlinks if
 @var{follow-symlinks?}  is true; otherwise, just preserve them.  Call
 @var{copy-file} to copy regular files.  When @var{keep-mtime?} is true,
 keep the modification time of the files in @var{source} on those of
-@var{destination}.  Write verbose output to the @var{log} port.
+@var{destination}.  When @var{keep-permissions?} is true, preserve file
+permissions.  Write verbose output to the @var{log} port.
 @end deffn
 
 @deffn {Scheme Procedure} delete-file-recursively @var{dir} @