master db28ba29dd 40/42: Ensure 'package-vc-prepare-patch' runs in the right directory

[Philip Kaludercic]

branch: master
commit db28ba29ddad0deda8aee3513d2652e95fc15342
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Ensure 'package-vc-prepare-patch' runs in the right directory
    
    * lisp/emacs-lisp/package-vc.el (package-vc-prepare-patch): Bind
    'default-directory'.p
---
 lisp/emacs-lisp/package-vc.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 7edecddaa1..84c4dda6f4 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -780,8 +780,9 @@ marked revisions, use those."
          (and (not vc-prepare-patches-separately)
               (read-string "Subject: " "[PATCH] " nil nil t))
          (vc-prepare-patch-prompt-revisions)))
-  (vc-prepare-patch (package-maintainers pkg-desc t)
-                    subject revisions))
+  (let ((default-directory (package-desc-dir pkg-desc)))
+    (vc-prepare-patch (package-maintainers pkg-desc t)
+                      subject revisions)))
 
 (provide 'package-vc)
 ;;; package-vc.el ends here