gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 04:58:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix test regression on issue 418

Browse Source
This commit is contained in:
Ryan C. Thompson 2012-02-27 00:56:04 -08:00
parent 85f273b740
commit 5a527d759a
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
el-get-build.el
View File

@ -123,11 +123,12 @@ recursion.
;; This ensures that post-build-fun is always a lambda, not a
;; symbol, which simplifies the following code.
(post-build-fun
(if (symbolp post-build-fun)
`(lambda (&rest args)
(apply ,(symbol-function post-build-fun) args))
;; Must already be a lambda
post-build-fun))
(cond ((null post-build-fun) (lambda (&rest args) nil))
((symbolp post-build-fun)
`(lambda (&rest args)
(apply ,(symbol-function post-build-fun) args)))
(t (assert (functionp post-build-fun) 'show-args)
post-build-fun)))
;; Do byte-compilation after building, if needed
(byte-compile-then-post-build-fun
`(lambda (package)