procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

always name the compilation unit responsible for the error

Browse source
This commit is contained in:
Andrea Corallo 2019-11-17 11:48:30 +01:00
parent f7c52087b2
commit 13f3b52fa4
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/comp.el
View file

@ -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