Function: display-table-print-array

display-table-print-array is a byte-compiled function defined in disp-table.el.gz.

Signature

(display-table-print-array DESC)

Source Code

;; Defined in /usr/src/emacs/lisp/disp-table.el.gz
(defun display-table-print-array (desc)
  (insert "[")
  (let ((column (current-column))
	(width (window-width))
	string)
    (dotimes (i (length desc))
      (setq string (format "%s" (aref desc i)))
      (cond
       ((>= (+ (current-column) (length string) 1)
	    width)
	(insert "\n")
	(insert (make-string column ? )))
       ((> i 0)
	(insert " ")))
      (insert string)))
  (insert "]\n"))