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

don't delete the archive until a proper checkout, in case of error

Browse source
This commit is contained in:
Donald Curtis 2013-04-07 23:58:33 -05:00
parent e1700e86cb
commit 4f70dda369
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
package-build.el
View file

@ -717,14 +717,16 @@ FILES is a list of (SOURCE . DEST) relative filepath pairs."
(expand-file-name file-name package-build-working-dir))))
(let ((archive-entry (assq name (package-build-archive-alist))))
(when archive-entry (pb/remove-archive archive-entry)))
(message "\n;;; %s\n" file-name)
(let* ((version (pb/checkout name cfg pkg-cwd))
(files (pb/expand-config-file-list pkg-cwd cfg))
(default-directory package-build-working-dir)
(start-time (current-time)))
(start-time (current-time))
(old-archive-entry (assq name (package-build-archive-alist))))
;; right before we create a new package, clean out the old one
(when old-archive-entry (pb/remove-archive old-archive-entry))
(cond
((not version)
(message "Unable to check out repository for %s" name))