From: Philip Kaludercic <philipk@posteo.net>
Date: Wed, 16 Nov 2022 09:46:43 +0000 (+0100)
Subject: Ensure 'package-vc-prepare-patch' runs in the right directory
X-Git-Tag: emacs-29.0.90~1616^2~59
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db28ba29ddad0deda8aee3513d2652e95fc15342;p=emacs.git

Ensure 'package-vc-prepare-patch' runs in the right directory

* lisp/emacs-lisp/package-vc.el (package-vc-prepare-patch): Bind
'default-directory'.p
---

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 7edecddaa1e..84c4dda6f4a 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