From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 17 Nov 2019 10:48:30 +0000 (+0100)
Subject: always name the compilation unit responsible for the error
X-Git-Tag: emacs-28.0.90~2727^2~985
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13f3b52fa422bed85fd7d50b43a167bb011e9070;p=emacs.git

always name the compilation unit responsible for the error
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 40125103024..e279713523a 100644
--- 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\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