Function: cvs-applicable-p

cvs-applicable-p is a byte-compiled function defined in pcvs-info.el.gz.

Signature

(cvs-applicable-p FI-OR-TYPE FUNC)

Documentation

Check if FUNC is applicable to FI-OR-TYPE.

If FUNC is nil, always return t. FI-OR-TYPE can either be a symbol (a fileinfo-type) or a fileinfo.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs-info.el.gz
;;;;
;;;; Utility functions
;;;;

(defun cvs-applicable-p (fi-or-type func)
  "Check if FUNC is applicable to FI-OR-TYPE.
If FUNC is nil, always return t.
FI-OR-TYPE can either be a symbol (a fileinfo-type) or a fileinfo."
  (let ((type (if (symbolp fi-or-type) fi-or-type
		(cvs-fileinfo->type fi-or-type))))
    (and (not (eq type 'MESSAGE))
	 (eq (car (memq func (cdr (assq type cvs-states)))) func))))