Function: comp-log

comp-log is a byte-compiled function defined in comp.el.gz.

Signature

(comp-log DATA &optional (LEVEL 1) QUOTED)

Documentation

Log DATA at LEVEL.

LEVEL is a number from 1-3, and defaults to 1; if it is less than native-comp-verbose, do nothing. If noninteractive, log with message. Otherwise, log with comp-log-to-buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp.el.gz
(cl-defun comp-log (data &optional (level 1) quoted)
  "Log DATA at LEVEL.
LEVEL is a number from 1-3, and defaults to 1; if it is less
than `native-comp-verbose', do nothing.  If `noninteractive', log
with `message'.  Otherwise, log with `comp-log-to-buffer'."
  (when (>= native-comp-verbose level)
    (if noninteractive
        (cl-typecase data
          (atom (message "%s" data))
          (t (dolist (elem data)
               (message "%s" elem))))
      (comp-log-to-buffer data quoted))))