github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-24 19:19:52 +00:00
Code Issues Projects Releases Packages Wiki Activity

Generate hard build errors when single-file packages are invalid

Browse source
This commit is contained in:
Steve Purcell 2013-03-28 11:07:46 +00:00
parent 85e28911e6
commit a3d2ea68e3
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
package-build.el
View file

@ -718,11 +718,14 @@ FILES is a list of (SOURCE . DEST) relative filepath pairs."
(with-current-buffer (find-file pkg-target) (with-current-buffer (find-file pkg-target)
(pb/update-or-insert-version version) (pb/update-or-insert-version version)
(write-file pkg-target nil) (write-file pkg-target nil)
(condition-case err (let ((valid-package))
(package-buffer-info) (unwind-protect
('error (progn
(message "Warning: package is uninstallable - package-buffer-info reports:\n%S" err))) (package-buffer-info)
(kill-buffer)) (setq valid-package t))
(kill-buffer)
(unless valid-package
(delete-file pkg-target)))))
(pb/write-pkg-readme (and (> (length pkg-info) 4) (aref pkg-info 4)) (pb/write-pkg-readme (and (> (length pkg-info) 4) (aref pkg-info 4))
file-name) file-name)