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

Fix references to non-local variables

Browse source
This commit is contained in:
Steve Purcell 2012-04-18 10:40:11 +01:00
parent da8cdc5e13
commit c0f349295a
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
package-build.el
View file

@ -199,8 +199,8 @@ seconds; the server cuts off after 10 requests in 20 seconds.")
(delete-directory dir t nil)) (delete-directory dir t nil))
(print "cloning repository") (print "cloning repository")
(pb/run-process nil "svn" "checkout" repo dir))) (pb/run-process nil "svn" "checkout" repo dir)))
(let ((files (pb/expand-file-list pkg-cwd (let ((files (pb/expand-file-list dir
(or (plist-get cfg :files) (or (plist-get config :files)
(list "*.el"))))) (list "*.el")))))
(apply 'pb/run-process dir "svn" "info" files)) (apply 'pb/run-process dir "svn" "info" files))
(while (setq ts (ignore-errors (while (setq ts (ignore-errors
@ -237,8 +237,8 @@ seconds; the server cuts off after 10 requests in 20 seconds.")
(pb/run-process nil "git" "clone" repo dir))) (pb/run-process nil "git" "clone" repo dir)))
(when commit (when commit
(pb/run-process dir "git" "checkout" commit)) (pb/run-process dir "git" "checkout" commit))
(let ((files (pb/expand-file-list pkg-cwd (let ((files (pb/expand-file-list dir
(or (plist-get cfg :files) (or (plist-get config :files)
(list "*.el"))))) (list "*.el")))))
(apply 'pb/run-process dir "git" "log" "-n1" "--pretty=format:'\%ci'" files)) (apply 'pb/run-process dir "git" "log" "-n1" "--pretty=format:'\%ci'" files))
(pb/find-parse-time (pb/find-parse-time