diff options
| author | Philip Kaludercic | 2022-11-16 10:46:43 +0100 |
|---|---|---|
| committer | Philip Kaludercic | 2022-11-17 20:55:04 +0100 |
| commit | db28ba29ddad0deda8aee3513d2652e95fc15342 (patch) | |
| tree | 95fc50ed1c357a50217f40b1b67b862648f62e2a | |
| parent | 0b77909cac1ef6705dfb1d4aed0d64ccc55864cf (diff) | |
| download | emacs-db28ba29ddad0deda8aee3513d2652e95fc15342.tar.gz emacs-db28ba29ddad0deda8aee3513d2652e95fc15342.zip | |
Ensure 'package-vc-prepare-patch' runs in the right directory
* lisp/emacs-lisp/package-vc.el (package-vc-prepare-patch): Bind
'default-directory'.p
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 5 |
1 files changed, 3 insertions, 2 deletions
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." | |||
| 780 | (and (not vc-prepare-patches-separately) | 780 | (and (not vc-prepare-patches-separately) |
| 781 | (read-string "Subject: " "[PATCH] " nil nil t)) | 781 | (read-string "Subject: " "[PATCH] " nil nil t)) |
| 782 | (vc-prepare-patch-prompt-revisions))) | 782 | (vc-prepare-patch-prompt-revisions))) |
| 783 | (vc-prepare-patch (package-maintainers pkg-desc t) | 783 | (let ((default-directory (package-desc-dir pkg-desc))) |
| 784 | subject revisions)) | 784 | (vc-prepare-patch (package-maintainers pkg-desc t) |
| 785 | subject revisions))) | ||
| 785 | 786 | ||
| 786 | (provide 'package-vc) | 787 | (provide 'package-vc) |
| 787 | ;;; package-vc.el ends here | 788 | ;;; package-vc.el ends here |