diff --git a/package-build.el b/package-build.el index 80ad6635..8a01117b 100644 --- a/package-build.el +++ b/package-build.el @@ -149,10 +149,6 @@ function for access to this function") "In DIR (or `default-directory' if unset) run COMMAND with ARGS. Output is written to the current buffer." (let* ((default-directory (or dir default-directory)) - (default-directory - (if (file-directory-p default-directory) - (concat (directory-file-name default-directory) "/") - default-directory)) (have-timeout (executable-find "timeout")) (argv (if have-timeout (append (list "timeout" "-k" "60" "600" command) args) @@ -182,9 +178,8 @@ 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)))) - (let ((default-directory working-dir)) - (funcall (intern (format "pb/checkout-%s" repo-type)) - package-name config 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.