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
    (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)))))