dot-emacs: Make `trap' report the erroneous code.

This helps a bit when confusing messages appear.

diff --git a/dot-emacs.el b/dot-emacs.el
index c5e3dfdca9468f860e43bac8e0d1fd91391b856b..e10f9ed82385906b58e3f08b7f7dd8af47abf68c 100644 (file)
--- a/dot-emacs.el
+++ b/dot-emacs.el
@@ -34,7 +34,9 @@ (defmacro trap (&rest forms)
   "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 ---