Function: cl-print-expand-ellipsis
cl-print-expand-ellipsis is an autoloaded and byte-compiled function
defined in cl-print.el.gz.
Signature
(cl-print-expand-ellipsis VALUE STREAM)
Documentation
Print the expansion of an ellipsis to STREAM.
VALUE should be the value of the cl-print-ellipsis text property
which was attached to the ellipsis by cl-prin1.
Source Code
;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-print.el.gz
;;;###autoload
(defun cl-print-expand-ellipsis (value stream)
"Print the expansion of an ellipsis to STREAM.
VALUE should be the value of the `cl-print-ellipsis' text property
which was attached to the ellipsis by `cl-prin1'."
(let ((cl-print--depth 1)
(object (nth 0 value))
(start (nth 1 value))
(cl-print--number-table (nth 2 value))
(print-number-table (nth 2 value))
(cl-print--currently-printing (nth 3 value)))
(when (eq object (car cl-print--currently-printing))
(pop cl-print--currently-printing))
(if (equal start 0)
(cl-print-object object stream)
(cl-print-object-contents object start stream))))