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

Merge pull request #2338 from Fanael/master

Browse source 
Error when a string is passed as :fetcher
This commit is contained in:
Donald Ephraim Curtis 2015-01-02 12:26:57 -08:00
commit 04c8ecb176
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
package-build.el
View file

@ -236,10 +236,10 @@ the same arguments.
Returns a last-modification timestamp for the :files listed in Returns a last-modification timestamp for the :files listed in
CONFIG, if any, or `package-build-default-files-spec' otherwise." CONFIG, if any, or `package-build-default-files-spec' otherwise."
(let ((repo-type (plist-get config :fetcher))) (let ((repo-type (plist-get config :fetcher)))
(pb/message "Fetcher: %s" repo-type) (pb/message "Fetcher: %s" (symbol-name 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))))
(funcall (intern (format "pb/checkout-%s" repo-type)) (funcall (intern (format "pb/checkout-%s" (symbol-name repo-type)))
package-name config (file-name-as-directory working-dir)))) package-name config (file-name-as-directory working-dir))))
(defvar pb/last-wiki-fetch-time 0 (defvar pb/last-wiki-fetch-time 0