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

Bind default-directory to working-dir on checkout.

Browse source 
Without this, actions in resp. checkout function will affect the project
that is currenly `default-directory`.
This commit is contained in:
Johan Andersson 2014-01-28 14:22:38 +01:00
parent 5e0e03e66a
commit d7f413f039
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
package-build.el
View file

@ -178,8 +178,9 @@ CONFIG, if any, or `package-build-default-files-spec' otherwise."
(pb/message "Fetcher: %s" repo-type) (pb/message "Fetcher: %s" repo-type)
(unless (eq 'wiki repo-type) (unless (eq 'wiki repo-type)
(pb/message "Source: %s\n" (or (plist-get config :repo) (plist-get config :url)))) (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)) (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 (defvar pb/last-wiki-fetch-time 0
"The time at which an emacswiki URL was last requested. "The time at which an emacswiki URL was last requested.