package-build--run-sandboxed: Protect package vcs directories

melpa · Sep 1, 2024 · 4ed6908 · 4ed6908
1 parent 3d49d8a
commit 4ed6908
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/package-build.el b/package-build.el
@@ -851,7 +851,9 @@ Signal an error if the command did not finish with exit code 0."
                                 (list "--ro-bind" dir dir)))
                          (append
                           package-build--sandbox-ro-binds
-                          package-build--sandbox-extra-ro-dirs))
+                          package-build--sandbox-extra-ro-dirs
+                          (list (expand-file-name ".git" default-directory)
+                                (expand-file-name ".hg" default-directory))))
                ,command ,@args)))))
 
 ;;; Worktree