github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-28 11:09:55 +00:00
Code Issues Projects Releases Packages Wiki Activity

Don't bind default-directory to working-dir on checkout

Browse source 
This reverts commits d7f413f and bf2d52b

See #1444
This commit is contained in:
Steve Purcell 2014-01-30 14:42:58 +00:00
parent 70192e912a
commit f30a6707a6
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
package-build.el
View file

@ -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))))
package-name config working-dir)))
(defvar pb/last-wiki-fetch-time 0
"The time at which an emacswiki URL was last requested.