From 13f3b52fa422bed85fd7d50b43a167bb011e9070 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 17 Nov 2019 11:48:30 +0100 Subject: [PATCH] always name the compilation unit responsible for the error --- lisp/emacs-lisp/comp.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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 -- 2.39.5