From d7f413f0396352901ed7f97f0f72a00841e78e8b Mon Sep 17 00:00:00 2001 From: Johan Andersson Date: Tue, 28 Jan 2014 14:22:38 +0100 Subject: [PATCH] Bind default-directory to working-dir on checkout. Without this, actions in resp. checkout function will affect the project that is currenly `default-directory`. --- package-build.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/package-build.el b/package-build.el index 0539c877..f49544ac 100644 --- a/package-build.el +++ b/package-build.el @@ -178,8 +178,9 @@ CONFIG, if any, or `package-build-default-files-spec' otherwise." (pb/message "Fetcher: %s" repo-type) (unless (eq 'wiki repo-type) (pb/message "Source: %s\n" (or (plist-get config :repo) (plist-get config :url)))) - (funcall (intern (format "pb/checkout-%s" repo-type)) - package-name config working-dir))) + (let ((default-directory working-dir)) + (funcall (intern (format "pb/checkout-%s" repo-type)) + package-name config working-dir)))) (defvar pb/last-wiki-fetch-time 0 "The time at which an emacswiki URL was last requested.