From 82778374fef72583ac7c64f96187f56b1641ddea Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 21 Sep 2019 14:06:13 +0200 Subject: [PATCH] better log output --- lisp/emacs-lisp/comp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index e94f3185b4b..1ca086659aa 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -285,7 +285,7 @@ BODY is evaluate only if `comp-debug' is non nil." (defun comp-log-func (func) "Log function FUNC." - (comp-log (format "\n\n Function: %s" (comp-func-symbol-name func))) + (comp-log (format "\n Function: %s" (comp-func-symbol-name func))) (cl-loop for block-name being each hash-keys of (comp-func-blocks func) using (hash-value bb) do (progn @@ -1409,6 +1409,7 @@ If INPUT is a string, use it as the file path to be native compiled." (symbol-name input) (file-name-sans-extension input))))) (mapc (lambda (pass) + (comp-log (format "\nRunning pass %s: " pass)) (setq data (funcall pass data))) comp-passes))) -- 2.39.5