Display which package that has compile errors

This commit is contained in:
Thomas Frössman 2014-09-14 12:57:44 +02:00
parent 4cf50ffbca
commit 351c102010

View file

@ -401,10 +401,11 @@ For full documentation. please see commentary.
(eval-when-compile (eval-when-compile
(when (bound-and-true-p byte-compile-current-file) (when (bound-and-true-p byte-compile-current-file)
,@defines-eval ,@defines-eval
(with-demoted-errors (condition-case err
,(if (stringp name) ,(if (stringp name)
`(load ,name t) `(load ,name t)
`(require ',name nil t))))) `(require ',name nil t))
(error (message "Error compiling %s: %s" ',name err) nil))))
,(if (and (or commands (use-package-plist-get args :defer)) ,(if (and (or commands (use-package-plist-get args :defer))
(not (use-package-plist-get args :demand))) (not (use-package-plist-get args :demand)))