From 7ea9c9a53541c6384563c00ecc5269c3daffb6ef Mon Sep 17 00:00:00 2001 From: Fanael Linithien Date: Fri, 2 Jan 2015 17:28:59 +0100 Subject: [PATCH] Error when a string is passed as :fetcher --- package-build.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/package-build.el b/package-build.el index 9d5e1d85..238f642c 100644 --- a/package-build.el +++ b/package-build.el @@ -236,10 +236,10 @@ the same arguments. Returns a last-modification timestamp for the :files listed in CONFIG, if any, or `package-build-default-files-spec' otherwise." (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) (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)))) (defvar pb/last-wiki-fetch-time 0