emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

scratch/package-vc-fixes 18ee1e728a 48/48: Ensure 'package-vc-prepare-pa


From: Philip Kaludercic
Subject: scratch/package-vc-fixes 18ee1e728a 48/48: Ensure 'package-vc-prepare-patch' runs in the right directory
Date: Wed, 16 Nov 2022 04:50:11 -0500 (EST)

branch: scratch/package-vc-fixes
commit 18ee1e728a5e9523224b261c4183c6d1a9447ebb
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 bf5865adb6..dec89cf5d9 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -763,8 +763,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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]