Function: map--plist-member-1

map--plist-member-1 is a byte-compiled function defined in map.el.gz.

Signature

(map--plist-member-1 PLIST PROP &optional PREDICATE)

Documentation

Compatibility shim for the PREDICATE argument of plist-member.

Assumes non-nil PLIST satisfies map--plist-p.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/map.el.gz
(defun map--plist-member-1 (plist prop &optional predicate)
  "Compatibility shim for the PREDICATE argument of `plist-member'.
Assumes non-nil PLIST satisfies `map--plist-p'."
  (if (or (memq predicate '(nil eq)) (null plist))
      (plist-member plist prop)
    (let ((tail plist) found)
      (while (and (not (setq found (funcall predicate (car tail) prop)))
                  (consp (setq tail (cdr tail)))
                  (consp (setq tail (cdr tail)))))
      (and tail (not found)
           (signal 'wrong-type-argument `(plistp ,plist)))
      tail)))