From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 29 Sep 2019 15:54:10 +0000 (+0200)
Subject: remove comp-debug
X-Git-Tag: emacs-28.0.90~2727^2~1102
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de1f89c202427a8bcb783f0b44fd02326b320a65;p=emacs.git

remove comp-debug
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 5f312e860fb..ef602c13811 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -37,9 +37,9 @@
   "Emacs Lisp native compiler."
   :group 'lisp)
 
-(defcustom comp-debug t
-  "Log compilation process."
-  :type 'boolean
+(defcustom comp-verbose 1
+  "Compiler verbosity. From 0 to 3."
+  :type 'number
   :group 'comp)
 
 (defconst native-compile-log-buffer "*Native-compile-Log*"
@@ -49,8 +49,6 @@
   "This gets bound to t while native compilation.
 Can be used by code that wants to expand differently in this case.")
 
-(defvar comp-verbose nil)
-
 (defvar comp-pass nil
   "Every pass has the right to bind what it likes here.")
 
@@ -290,10 +288,10 @@ The corresponding index is returned."
 
 (defmacro comp-within-log-buff (&rest body)
   "Execute BODY while at the end the log-buffer.
-BODY is evaluate only if `comp-debug' is non nil."
+BODY is evaluate only if `comp-verbose' is > 0."
   (declare (debug (form body))
            (indent defun))
-  `(when comp-debug
+  `(when (> comp-verbose 0)
      (with-current-buffer (get-buffer-create native-compile-log-buffer)
        (setq buffer-read-only t)
        (let ((inhibit-read-only t))
@@ -303,7 +301,7 @@ BODY is evaluate only if `comp-debug' is non nil."
 (defun comp-log (data)
   "Log DATA."
   (if (and noninteractive
-           comp-verbose)
+           (> comp-verbose 0))
       (if (atom data)
           (message "%s" data)
 	(mapc (lambda (x)