Show more informative errors when they occur

This commit is contained in:
John Wiegley 2015-03-13 02:58:37 -05:00
parent 3cbf510468
commit aa6e3f47c7

View file

@ -403,9 +403,10 @@ For full documentation. please see commentary.
(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 (with-demoted-errors
,(if (stringp name) ,(format "Error in %s: %%S" name)
`(load ,name t) ,(if (stringp name)
`(require ',name nil t))))) `(load ,name t)
`(require ',name nil t)))))
,(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)))