Add error message if the package cannot be found.

This commit is contained in:
Donald Ephraim Curtis 2012-01-22 11:51:49 -06:00
parent 5455a7696e
commit c1fdb43d59

View file

@ -249,7 +249,7 @@
(file-name-as-directory
(expand-file-name file-name package-build-working-dir))))
(when cfg
(if cfg
(let* ((repo-type (plist-get cfg :fetcher))
(repo-url (plist-get cfg :url))
(files (plist-get cfg :files))
@ -324,10 +324,9 @@
files)
(delete-directory pkg-dir t nil)
(package-build-add-to-archive-contents pkg-info 'tar))
)))
(package-build-dump-archive-contents))))
(package-build-add-to-archive-contents pkg-info 'tar))))
(package-build-dump-archive-contents))
(message "\nERROR: Cannot find package %s\n" file-name))))
(defvar package-build-alist