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)
  (cl-assert (or (null alist)
              (memq (caar alist) mpc--proc-alist-to-alists-starters)))
  (let ((starter (caar alist))
        (alists ())
        tmp)
    (dolist (pair alist)
      (when (eq (car pair) starter)
        (if tmp (push (nreverse tmp) alists))
        (setq tmp ()))
      (push pair tmp))
    (if tmp (push (nreverse tmp) alists))
    (nreverse alists)))