mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-09 09:16:02 -08:00
Code Issues Projects Releases Wiki Activity

Merge pull request from npostavs/master

Browse source 
Byte compilation, fixes for https://github.com/jwiegley/use-package/issues/29 and https://github.com/jwiegley/use-package/issues/30
GitHub-reference: https://github.com/jwiegley/use-package/issues/43
This commit is contained in:
John Wiegley 2013-08-13 18:54:23 -07:00
commit 3d0b14eac2
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/use-package/use-package.el
View file

@ -581,7 +581,7 @@ For full documentation. please see commentary.
(t
pkg-load-path)))
(when byte-compile-current-file
(eval-when-compile
,@defines-eval
,(if (stringp name)
`(load ,name t)
@ -637,12 +637,12 @@ For full documentation. please see commentary.
,init-body
,(unless (null config-body)
`(eval-after-load ,name-string
(quote
(if ,requires-test
,(macroexpand-all
`(with-elapsed-timer
,(format "Configuring package %s" name-string)
,config-body))))))
`(,(lambda ()
(if ,requires-test
,(macroexpand-all
`(with-elapsed-timer
,(format "Configuring package %s" name-string)
,config-body)))))))
t))
`(if (and ,(or predicate t)
,requires-test)