Function: set:intersection

set:intersection is a byte-compiled function defined in set.el.

Signature

(set:intersection &rest SETS)

Documentation

Return intersection of all SETS given as arguments.

Uses set:equal-op for comparison.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/set.el
(defun set:intersection (&rest sets)
  "Return intersection of all SETS given as arguments.
Uses `set:equal-op' for comparison."
  (let (rtn-set)
    (mapc (lambda (elt) (or (memq nil (mapcar (lambda (set) (set:member elt set))
					      (cdr sets)))
			    (setq rtn-set (cons elt rtn-set))))
	    (car sets))
    (nreverse rtn-set)))