Function: vc-rcs-responsible-p

vc-rcs-responsible-p is a byte-compiled function defined in vc-rcs.el.gz.

Signature

(vc-rcs-responsible-p FILE)

Documentation

Return the directory if RCS thinks it would be responsible for FILE.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-rcs.el.gz
(defun vc-rcs-responsible-p (file)
  "Return the directory if RCS thinks it would be responsible for FILE."
  ;; TODO: check for all the patterns in vc-rcs-master-templates
  (let ((dir (if (file-directory-p file)
                 file
	       (file-name-directory file))))
    (and (file-directory-p (expand-file-name "RCS" dir))
         (file-name-directory (expand-file-name "RCS" dir)))))