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,6 +403,7 @@ For full documentation. please see commentary.
(when (bound-and-true-p byte-compile-current-file)
,@defines-eval
(with-demoted-errors
,(format "Error in %s: %%S" name)
,(if (stringp name)
`(load ,name t)
`(require ',name nil t)))))