From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 21 Sep 2019 12:06:13 +0000 (+0200)
Subject: better log output
X-Git-Tag: emacs-28.0.90~2727^2~1138
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82778374fef72583ac7c64f96187f56b1641ddea;p=emacs.git

better log output
---

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