Function: elt-satisfies-test-p

elt-satisfies-test-p is a byte-compiled function defined in cl-compat.el.gz.

Signature

(elt-satisfies-test-p ITEM ELT KLIST)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/cl-compat.el.gz
(defun elt-satisfies-test-p (item elt klist)
  (let ((test-not (cdr (assq ':test-not klist)))
	(test (cdr (assq ':test klist)))
	(key (cdr (assq ':key klist))))
    (if key (setq elt (funcall key elt)))
    (if test-not (not (funcall test-not item elt))
      (funcall (or test 'eql) item elt))))