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

Add error message if the package cannot be found.

Browse source
This commit is contained in:
Donald Ephraim Curtis 2012-01-22 11:51:49 -06:00
parent 5455a7696e
commit c1fdb43d59
1 changed files with 77 additions and 78 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
package-build.el
View file

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