always name the compilation unit responsible for the error

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 4012510302445b3936211c9e9fb8deff6f177938..e279713523a4fcb3b5996c0f5ed7304cc5f0d2d9 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1819,10 +1819,12 @@ Return the compilation unit filename."
                                 (symbol-name input)
                               (file-name-sans-extension (expand-file-name input))))))
     (comp-log "\n\f\n" 1)
-    (mapc (lambda (pass)
-            (comp-log (format "Running pass %s:\n" pass) 2)
-            (setq data (funcall pass data)))
-          comp-passes)
+    (condition-case err
+        (mapc (lambda (pass)
+                (comp-log (format "Running pass %s:\n" pass) 2)
+                (setq data (funcall pass data)))
+              comp-passes)
+      (error (error "While compiling %s: %s" input (error-message-string err))))
     data))
 
 ;;;###autoload