Function: mpc--proc-alist-to-alists

mpc--proc-alist-to-alists is a byte-compiled function defined in mpc.el.gz.

Signature

(mpc--proc-alist-to-alists ALIST)

Source Code

;; Defined in /usr/src/emacs/lisp/mpc.el.gz
(defun mpc--proc-alist-to-alists (alist)
  ;; ALIST is assumed to contain a flattened sequence of sequences,
  ;; of the form (file . ..) ..filedata.. (directory . ..) ..dirdata..
  ;; See bug#41493.
  (cl-assert (or (null alist)
              (memq (caar alist) mpc--proc-alist-to-alists-starters)))
  (let ((alists ())
        tmp)
    (dolist (pair alist)
      (when (memq (car pair) mpc--proc-alist-to-alists-starters)
        (if tmp (push (nreverse tmp) alists))
        (setq tmp ()))
      (push pair tmp))
    (if tmp (push (nreverse tmp) alists))
    (nreverse alists)))