Function: json--print-array

json--print-array is a byte-compiled function defined in json.el.gz.

Signature

(json--print-array ARRAY)

Documentation

Like json-encode-array, but insert the JSON at point.

Source Code

;; Defined in /usr/src/emacs/lisp/json.el.gz
;; Array encoding

(defun json--print-array (array)
  "Like `json-encode-array', but insert the JSON at point."
  (insert ?\[)
  (unless (length= array 0)
    (json--with-indentation
      (json--print-indentation)
      (let ((first t))
        (mapc (lambda (elt)
                (if first
                    (setq first nil)
                  (insert json-encoding-separator)
                  (json--print-indentation))
                (json--print elt))
              array)))
    (or json-encoding-lisp-style-closings
        (json--print-indentation)))
  (insert ?\]))