Ensure that single-file wiki packages aren't bundled unnecessarily as tars

This commit is contained in:
Steve Purcell 2012-01-30 13:27:51 +00:00
parent 3fc3a0200e
commit c070959b20

View file

@ -274,8 +274,11 @@ In turn, this function uses the :fetcher option in the config to choose a
(cond (cond
((not version) ((not version)
(print (format "Unable to check out repository for %s" name))) (print (format "Unable to check out repository for %s" name)))
((= 1 (length files)) ((or (eq 'wiki (plist-get cfg :fetcher))
(let* ((pkgsrc (expand-file-name (car files) pkg-cwd)) (= 1 (length files)))
(let* ((pkgsrc (expand-file-name (or (car files)
(concat file-name ".el"))
pkg-cwd))
(pkgdst (expand-file-name (pkgdst (expand-file-name
(concat file-name "-" version ".el") (concat file-name "-" version ".el")
package-build-archive-dir)) package-build-archive-dir))