Function: mpc-assq-all

mpc-assq-all is a byte-compiled function defined in mpc.el.gz.

Signature

(mpc-assq-all KEY ALIST)

Source Code

;; Defined in /usr/src/emacs/lisp/mpc.el.gz
;;; Misc utils ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun mpc-assq-all (key alist)
  (let ((res ()) val)
    (dolist (elem alist)
      (if (and (eq (car elem) key)
               (not (member (setq val (cdr elem)) res)))
          (push val res)))
    (nreverse res)))