From ba2bbea816ac5a20fa3090b634a17ed0d4a1c2ca Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 24 Nov 2019 19:49:25 +0100 Subject: [PATCH] adjust print verbosity according to the doc --- lisp/emacs-lisp/comp.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 1f23edb58f1..60cfd8e5163 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -428,7 +428,7 @@ Put PREFIX in front of it." (byte-compile (comp-func-name func))) (let ((lap (alist-get nil byte-to-native-lap))) (cl-assert lap) - (comp-log lap 1) + (comp-log lap 2) (let ((lambda-list (aref (comp-func-byte-func func) 0))) (setf (comp-func-args func) (comp-decrypt-lambda-list lambda-list) @@ -1776,6 +1776,9 @@ Prepare every function for final compilation and drive the C back-end." (defun comp-final (_) "Final pass driving the C back-end for code emission." (let (compile-result) + (maphash (lambda (_ f) + (comp-log-func f 1)) + (comp-ctxt-funcs-h comp-ctxt)) (comp--init-ctxt) (unwind-protect (setf compile-result -- 2.39.5