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