Function: trace--exit-message

trace--exit-message is a byte-compiled function defined in trace.el.gz.

Signature

(trace--exit-message FUNCTION LEVEL VALUE CONTEXT)

Documentation

Generate a string that describes that FUNCTION has exited.

LEVEL is the trace level, VALUE value returned by FUNCTION.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/trace.el.gz
(defun trace--exit-message (function level value context)
  "Generate a string that describes that FUNCTION has exited.
LEVEL is the trace level, VALUE value returned by FUNCTION."
  (unless inhibit-trace
    (let ((inhibit-trace t))
      (trace--insert
       (let ((ctx (funcall context))
             (print-circle t)
             (print-escape-newlines t))
         (format "%s%s%d <- %s: %s%s\n"
                 (mapconcat #'char-to-string (make-string (1- level) ?|) " ")
                 (if (> level 1) " " "")
                 level
                 function
                 ;; Do this so we'll see strings:
                 (cl-prin1-to-string value)
                 ctx))))))