Function: mpc-intersection

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

Signature

(mpc-intersection L1 L2 SELECTFUN)

Documentation

Return L1 after removing all elements not found in L2.

Elements aren't compared directly, but instead they are passed through SELECTFUN before comparison.

Source Code

;; Defined in /usr/src/emacs/lisp/mpc.el.gz
(defun mpc-intersection (l1 l2 selectfun)
  "Return L1 after removing all elements not found in L2.
Elements aren't compared directly, but instead
they are passed through SELECTFUN before comparison."
  (seq-intersection l1 l2 (lambda (x y)
                            (equal (funcall selectfun x)
                                   (funcall selectfun y)))))