Function: json--print-alist

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

Signature

(json--print-alist ALIST &optional DESTRUCTIVE)

Documentation

Insert a JSON representation of ALIST at point.

Sort ALIST first if json-encoding-object-sort-predicate is non-nil. Sorting can optionally be DESTRUCTIVE for speed.

Source Code

;; Defined in /usr/src/emacs/lisp/json.el.gz
;; List encoding (including alists and plists)

(defun json--print-alist (alist &optional destructive)
  "Insert a JSON representation of ALIST at point.
Sort ALIST first if `json-encoding-object-sort-predicate' is
non-nil.  Sorting can optionally be DESTRUCTIVE for speed."
  (json--print-map (if (and json-encoding-object-sort-predicate alist)
                       (sort (if destructive alist (copy-sequence alist))
                             (lambda (a b)
                               (funcall json-encoding-object-sort-predicate
                                        (car a) (car b))))
                     alist)))