Function: filesets-ormap

filesets-ormap is a byte-compiled function defined in filesets.el.gz.

Signature

(filesets-ormap FSOM-PRED LST)

Documentation

Return the tail of LST for the head of which FSOM-PRED is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/filesets.el.gz
(defun filesets-ormap (fsom-pred lst)
  "Return the tail of LST for the head of which FSOM-PRED is non-nil."
  (let ((fsom-lst lst)
	(fsom-rv nil))
    (while (and fsom-lst
		(null fsom-rv))
      (if (funcall fsom-pred (car fsom-lst))
	  (setq fsom-rv fsom-lst)
	(setq fsom-lst (cdr fsom-lst))))
    fsom-rv))