mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

remove comp-debug

Browse source
This commit is contained in:
Andrea Corallo 2019-09-29 17:54:10 +02:00
parent 734eb8f940
commit de1f89c202
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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