Function: comp--intersection

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

Signature

(comp--intersection LIST1 LIST2)

Documentation

Like `cl-intersection` but preserves the order of one of its args.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defun comp--intersection (list1 list2)
  "Like `cl-intersection` but preserves the order of one of its args."
  (if (equal list1 list2) list1
    (let ((res nil))
      (while list2
	(if (memq (car list2) list1)
	    (push (car list2) res))
	(pop list2))
      (nreverse res))))