X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/b5d724dd1f16eb36a3b88de6892c26543f10f1ca..85bbf8d3d51ef892f4707fcbd6ffc841818175d1:/dot-emacs.el?ds=sidebyside

diff --git a/dot-emacs.el b/dot-emacs.el
index c5e3dfd..e10f9ed 100644
--- a/dot-emacs.el
+++ b/dot-emacs.el
@@ -34,7 +34,9 @@
   "Execute FORMS without allowing errors to propagate outside."
   `(condition-case err
        ,(if (cdr forms) (cons 'progn forms) (car forms))
-     (error (message "Error (trapped): %s" (error-message-string err)))))
+     (error (message "Error (trapped): %s in %s"
+		     (error-message-string err)
+		     ',forms))))
 
 ;; --- Configuration reading ---